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

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

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

revision 1.23 by jmc, Sun May 17 20:15:22 2009 UTC revision 1.24 by jmc, Fri Dec 11 13:56:28 2009 UTC
# Line 37  C     Set model variables to initial/res Line 37  C     Set model variables to initial/res
37  #ifdef INCLUDE_EP_FORCING_CODE  #ifdef INCLUDE_EP_FORCING_CODE
38          CALL INI_EP( myThid )          CALL INI_EP( myThid )
39  #endif  #endif
         IF (nonHydrostatic) CALL INI_PNH( myThid )  
40        ELSEIF ( .NOT.useOffLine ) THEN        ELSEIF ( .NOT.useOffLine ) THEN
41          CALL READ_PICKUP( nIter0, myThid )          CALL READ_PICKUP( nIter0, myThid )
42    
# Line 48  c       ENDIF Line 47  c       ENDIF
47    
48        ENDIF        ENDIF
49    
50    #ifdef ALLOW_NONHYDROSTATIC
51          IF ( nonHydrostatic ) THEN
52            CALL INI_NH_FIELDS( myThid )
53          ENDIF
54    #endif /* ALLOW_NONHYDROSTATIC */
55    
56        RETURN        RETURN
57        END        END
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22