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

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

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

revision 1.5 by cnh, Mon May 25 16:17:36 1998 UTC revision 1.6 by cnh, Mon May 25 16:58:49 1998 UTC
# Line 164  C           defaults to 0.51 but can be Line 164  C           defaults to 0.51 but can be
164             pS(I,J,bi,bj) =             pS(I,J,bi,bj) =
165       &     -aS2d(I  ,J  ,bi,bj)/((cg2dpcOffDFac *(aCs+aC))**2 )       &     -aS2d(I  ,J  ,bi,bj)/((cg2dpcOffDFac *(aCs+aC))**2 )
166            ENDIF            ENDIF
167            pC(I,J,bi,bj) = 1.  C         pC(I,J,bi,bj) = 1.
168            pW(I,J,bi,bj) = 0.  C         pW(I,J,bi,bj) = 0.
169            pS(I,J,bi,bj) = 0.  C         pS(I,J,bi,bj) = 0.
170           ENDDO           ENDDO
171          ENDDO          ENDDO
172         ENDDO         ENDDO
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22