Parent Directory | Revision Log | Revision Graph | Patch
revision 1.8 by cnh, Sat Aug 22 17:51:08 1998 UTC | revision 1.9 by cnh, Mon Nov 2 03:34:11 1998 UTC | |
---|---|---|
# | Line 143 C dxC, dyC is separation between cel | Line 143 C dxC, dyC is separation between cel |
143 | DO bi = myBxLo(myThid), myBxHi(myThid) | DO bi = myBxLo(myThid), myBxHi(myThid) |
144 | DO J=1,sNy | DO J=1,sNy |
145 | DO I=1,sNx | DO I=1,sNx |
146 | dxC(I,J,bi,bj) = (dxF(I,J,bi,bj)+dxF(I-1,J,bi,bj))*0.5 D0 | dxC(I,J,bi,bj) = (dxF(I,J,bi,bj)+dxF(I-1,J,bi,bj))*0.5 _d 0 |
147 | dyC(I,J,bi,bj) = (dyF(I,J,bi,bj)+dyF(I,J-1,bi,bj))*0.5 D0 | dyC(I,J,bi,bj) = (dyF(I,J,bi,bj)+dyF(I,J-1,bi,bj))*0.5 _d 0 |
148 | ENDDO | ENDDO |
149 | ENDDO | ENDDO |
150 | ENDDO | ENDDO |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |