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

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

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

revision 1.2 by cnh, Fri Apr 24 02:05:41 1998 UTC revision 1.3 by cnh, Mon Jun 8 21:43:01 1998 UTC
# Line 71  C         Test for eastern edge Line 71  C         Test for eastern edge
71  C         Test for northern edge  C         Test for northern edge
72            IF ( jG .EQ. nY ) H(i,j,bi,bj) = 0.            IF ( jG .EQ. nY ) H(i,j,bi,bj) = 0.
73  C         Island  C         Island
74              IF ( iG .EQ. 1 .AND.
75         &         jG .EQ. 24 ) H(i,j,bi,bj) = 0.75*phi
76  C         IF ( iG .EQ. 1 .AND.  C         IF ( iG .EQ. 1 .AND.
77  C    &         jG .EQ. 24 ) H(i,j,bi,bj) = 0.  C    &         jG .EQ. 24 ) H(i,j,bi,bj) = 0.
78                        
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22