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

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

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

revision 1.13 by cnh, Wed Sep 26 18:09:15 2001 UTC revision 1.14 by edhill, Thu Oct 9 04:19:18 2003 UTC
# Line 37  C     myThid - Thread no. that called th Line 37  C     myThid - Thread no. that called th
37        INTEGER myThid        INTEGER myThid
38    
39  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
40    ceh3 needs an IF ( useNONHYDROSTATIC ) THEN
41    
42  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
43  C     === Local variables ===  C     === Local variables ===
# Line 111  caja &     +drF(K-1)*_hFacC(i,j,k-1,bi,b Line 112  caja &     +drF(K-1)*_hFacC(i,j,k-1,bi,b
112           ENDDO           ENDDO
113          ENDDO          ENDDO
114  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
115    ceh3 needs an IF ( useOBCS ) THEN
116          DO K=1,Nr          DO K=1,Nr
117           IF (useOBCS) THEN           IF (useOBCS) THEN
118            DO I=1,sNx            DO I=1,sNx
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22