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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.7 by cnh, Fri Nov 6 22:44:47 1998 UTC revision 1.8 by adcroft, Tue Dec 8 18:04:51 1998 UTC
# Line 73  C     Set initial tendency terms Line 73  C     Set initial tendency terms
73            DO I=1,sNx            DO I=1,sNx
74             gs   (I,J,K,bi,bj) = 0. _d 0             gs   (I,J,K,bi,bj) = 0. _d 0
75             gsNM1(I,J,K,bi,bj) = 0. _d 0             gsNM1(I,J,K,bi,bj) = 0. _d 0
76               IF (hFacC(I,J,K,bi,bj).EQ.0) salt(I,J,K,bi,bj) = 0.
77            ENDDO            ENDDO
78           ENDDO           ENDDO
79          ENDDO          ENDDO
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22