Parent Directory | Revision Log | Revision Graph | Patch
revision 1.6 by jmc, Wed Jun 8 01:21:14 2011 UTC | revision 1.7 by mlosch, Mon Mar 19 14:32:47 2012 UTC | |
---|---|---|
# | Line 121 C- Re-calculate lower-R Boundary positi | Line 121 C- Re-calculate lower-R Boundary positi |
121 | DO bi=myBxLo(myThid), myBxHi(myThid) | DO bi=myBxLo(myThid), myBxHi(myThid) |
122 | DO J=1-Oly,sNy+Oly | DO J=1-Oly,sNy+Oly |
123 | DO I=1-Olx,sNx+Olx | DO I=1-Olx,sNx+Olx |
124 | R_low(I,J,bi,bj) = rF(1) | R_low(i,j,bi,bj) = rF(1) |
125 | DO K=Nr,1,-1 | ENDDO |
126 | ENDDO | |
127 | DO K=Nr,1,-1 | |
128 | DO J=1-Oly,sNy+Oly | |
129 | DO I=1-Olx,sNx+Olx | |
130 | R_low(I,J,bi,bj) = R_low(I,J,bi,bj) | R_low(I,J,bi,bj) = R_low(I,J,bi,bj) |
131 | & - drF(k)*hFacC(I,J,K,bi,bj) | & - drF(K)*hFacC(I,J,K,bi,bj) |
132 | ENDDO | ENDDO |
133 | ENDDO | ENDDO |
134 | ENDDO | ENDDO |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |