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

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

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

revision 1.55 by dimitri, Sun Aug 7 07:08:15 2011 UTC revision 1.56 by heimbach, Sat Feb 4 01:43:40 2012 UTC
# Line 113  C     If taveFreq is finite, make sure t Line 113  C     If taveFreq is finite, make sure t
113  #endif  #endif
114    
115  #ifndef ALLOW_CD_CODE  #ifndef ALLOW_CD_CODE
116        IF (useCDscheme) CALL PACKAGES_ERROR_MSG(         IF (useCDscheme) CALL PACKAGES_ERROR_MSG(
117       &                  'CD_CODE', 'useCDscheme=.T.', myThid )       &                  'CD_CODE', 'useCDscheme=.T.', myThid )
118  #endif  #endif
119    
# Line 283  C---  Continue with standard packages (w Line 283  C---  Continue with standard packages (w
283        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)
284  #endif  #endif
285    
286    #ifdef ALLOW_STREAMICE
287          IF (useStreamIce) CALL STREAMICE_CHECK( myThid )
288    #else
289          IF (useStreamIce) CALL PACKAGES_ERROR_MSG('StreamIce',' ',myThid)
290    #endif
291    
292  #ifdef ALLOW_ICEFRONT  #ifdef ALLOW_ICEFRONT
293        IF (useICEFRONT) CALL ICEFRONT_CHECK( myThid )        IF (useICEFRONT) CALL ICEFRONT_CHECK( myThid )
294  #else  #else
Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56
  ViewVC Help
Powered by ViewVC 1.1.22