/[MITgcm]/MITgcm/model/src/ini_theta.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_theta.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22