Parent Directory | Revision Log | Revision Graph | Patch
revision 1.86 by heimbach, Sun Mar 24 02:36:39 2002 UTC | revision 1.87 by heimbach, Thu May 30 02:30:12 2002 UTC | |
---|---|---|
# | Line 215 C point numbers. This prevents spuri | Line 215 C point numbers. This prevents spuri |
215 | C uninitialised but inert locations. | C uninitialised but inert locations. |
216 | DO j=1-OLy,sNy+OLy | DO j=1-OLy,sNy+OLy |
217 | DO i=1-OLx,sNx+OLx | DO i=1-OLx,sNx+OLx |
DO k=1,Nr | ||
phiHyd(i,j,k) = 0. _d 0 | ||
KappaRU(i,j,k) = 0. _d 0 | ||
KappaRV(i,j,k) = 0. _d 0 | ||
ENDDO | ||
218 | rhoKM1 (i,j) = 0. _d 0 | rhoKM1 (i,j) = 0. _d 0 |
219 | rhok (i,j) = 0. _d 0 | rhok (i,j) = 0. _d 0 |
220 | phiSurfX(i,j) = 0. _d 0 | phiSurfX(i,j) = 0. _d 0 |
# | Line 260 CHPF$& ) | Line 255 CHPF$& ) |
255 | C-- Set up work arrays that need valid initial values | C-- Set up work arrays that need valid initial values |
256 | DO j=1-OLy,sNy+OLy | DO j=1-OLy,sNy+OLy |
257 | DO i=1-OLx,sNx+OLx | DO i=1-OLx,sNx+OLx |
258 | DO k=1,Nr | |
259 | phiHyd(i,j,k) = 0. _d 0 | |
260 | KappaRU(i,j,k) = 0. _d 0 | |
261 | KappaRV(i,j,k) = 0. _d 0 | |
262 | ENDDO | |
263 | fVerU (i,j,1) = 0. _d 0 | fVerU (i,j,1) = 0. _d 0 |
264 | fVerU (i,j,2) = 0. _d 0 | fVerU (i,j,2) = 0. _d 0 |
265 | fVerV (i,j,1) = 0. _d 0 | fVerV (i,j,1) = 0. _d 0 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |