Non-confirmable error

Dear all

In regards to my previous mail of non confirmable error about

SPREAD(), again i have some problem. Though the code executed in the first stage, it is retrurning NAN values in my simulations.

Can any one help me to sort this ?
I appreciate your help.

For your reference i am giving the modification i did as per Bret’s advice

if (dim1 ==1)then
where(flow)
LINE_AV = SPREAD(temp2d(1:idim2,1:idim3,3), dim =1, ncopies = size(A1,dim=1) )
elsewhere
LINE_AV = 0.0_r9
endwhere

else if (dim1==2)then
where(flow)
LINE_AV = SPREAD(temp2d(1:idim2,1:idim3,3), dim = 2, ncopies = size(A1,dim=2) )
elsewhere
LINE_AV = 0.0_r9
endwhere

else if (dim1==3) then
where(flow)
LINE_AV = SPREAD(temp2d(1:idim2,1:idim3,3), dim = 3, ncopies = size(A1,dim=3) )
elsewhere
LINE_AV = 0.0_r9
endwhere
end if


“Previously it used to be :”

where(flow)
LINE_AV = SPREAD(temp2d(1:idim2,1:idim3,3), dim = dim1, ncopies = size(A1,dim1) )
elsewhere
LINE_AV = 0.0_r9
endwhere




Thanks
Sreenivas

Hi sreenivas,

Brent is on vacation today, but I’ll ask him tommorow if he has made any progress on this.

Thanks,
Mat