LwSrc i,j bug

Bug reports, work arounds and fixes

Moderators: arango, robertson

Post Reply
Message
Author
jcwarner
Posts: 1172
Joined: Wed Dec 31, 2003 6:16 pm
Location: USGS, USA

LwSrc i,j bug

#1 Unread post by jcwarner »

For the LwSrc, in step3d_t.F near lines 1146 we need to change
cff=dt(ng)*pm(i,j)*pn(i,j)
to
cff=dt(ng)*pm(Isrc,Jsrc)*pn(Isrc,Jsrc)

and the same near lines 1343 from
cff=dt(ng)*pm(i,j)*pn(i,j)
to
cff=dt(ng)*pm(Isrc,Jsrc)*pn(Isrc,Jsrc)

-j

User avatar
arango
Site Admin
Posts: 1347
Joined: Wed Feb 26, 2003 4:41 pm
Location: DMCS, Rutgers University
Contact:

Re: LwSrc i,j bug

#2 Unread post by arango »

Thanks, John, great catch. Weird, my aggressive compiling/linking flags didn't pick up those out-of-bounce indices in parallel. I will update the code.

Post Reply