This question is a follow-up to my previous question.

The code I use to plot is the following:

Data = NIntegrate[myrotorz1[x, y, t], {x, -5, 5}, {y, -5, 5}];
Table[Plot[Re[Data], {t, 0, 6, 0.1}], PlotRange -> All]

I would like to know whether to use the NIntegrate within the NDSolve domain.

I tryed with

Plot[Re[NIntegrate[myrotorz1[x, y, t], {x, -5, 5}, {y, -5, 5}]], {t, 0, 6}]

got this error

NIntegrate::inumr: The integrand myrotorz1[x,y,0.000122571] has evaluated to non-numerical values for all sampling points in the region with boundaries {{-5,5},{-5,5}}. >>

NIntegrate::inumr: The integrand myrotorz1[x,y,0.000122571] has evaluated to non-numerical values for all sampling points in the region with boundaries {{-5.,5.},{-5.,5.}}. >>

NIntegrate::inumr: The integrand myrotorz1[x,y,0.000122571] has evaluated to non-numerical values for all sampling points in the region with boundaries {{-5.,5.},{-5.,5.}}. >>

General::stop: Further output of NIntegrate::inumr will be suppressed during this calculation. >>