Parent Directory | Revision Log | Revision Graph | Patch
revision 1.3 by jmc, Mon Mar 4 01:32:55 2002 UTC | revision 1.4 by jmc, Mon Mar 4 02:28:25 2002 UTC | |
---|---|---|
# | Line 55 CEOP | Line 55 CEOP |
55 | DO bj=myByLo(myThid),myByHi(myThid) | DO bj=myByLo(myThid),myByHi(myThid) |
56 | DO bi=myBxLo(myThid),myBxHi(myThid) | DO bi=myBxLo(myThid),myBxHi(myThid) |
57 | DO K=1,kSize | DO K=1,kSize |
58 | DO J=1,sNy | DO J=1-OLy,sNy+OLy |
59 | DO I=1,sNx | DO I=1-OLx,sNx+OLx |
60 | tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) | tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj) |
61 | ENDDO | ENDDO |
62 | ENDDO | ENDDO |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |