Parent Directory | Revision Log | Revision Graph | Patch
revision 1.9 by cnh, Fri Nov 6 22:44:47 1998 UTC | revision 1.10 by adcroft, Tue Dec 8 18:04:51 1998 UTC | |
---|---|---|
# | Line 96 C Set initial tendency terms | Line 96 C Set initial tendency terms |
96 | DO I=1,sNx | DO I=1,sNx |
97 | gt (I,J,K,bi,bj) = 0. _d 0 | gt (I,J,K,bi,bj) = 0. _d 0 |
98 | gtNM1(I,J,K,bi,bj) = 0. _d 0 | gtNM1(I,J,K,bi,bj) = 0. _d 0 |
99 | IF (hFacC(I,J,K,bi,bj).EQ.0) theta(I,J,K,bi,bj) = 0. | |
100 | ENDDO | ENDDO |
101 | ENDDO | ENDDO |
102 | ENDDO | ENDDO |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |