/[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.33 by jmc, Fri Mar 17 03:55:43 2006 UTC revision 1.37 by jscott, Wed Sep 6 15:30:25 2006 UTC
# Line 95  CEOP Line 95  CEOP
95        IF (useThSIce) CALL PACKAGES_CHECK_ERROR('THSICE', myThid)        IF (useThSIce) CALL PACKAGES_CHECK_ERROR('THSICE', myThid)
96  #endif  #endif
97    
98    #ifndef ALLOW_ATM2D
99          IF (useATM2D) CALL PACKAGES_CHECK_ERROR('ATM2D', myThid)
100    #endif
101    
102  #ifndef ALLOW_AIM  #ifndef ALLOW_AIM
103        IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)        IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)
104  #endif  #endif
# Line 168  CEOP Line 172  CEOP
172  #endif  #endif
173    
174  #ifdef ALLOW_GRDCHK  #ifdef ALLOW_GRDCHK
175        CALL GRDCHK_CHECK( myThid )        IF (useGRDCHK) CALL GRDCHK_CHECK( myThid )
176  #endif  #endif
177    
178  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
# Line 178  CEOP Line 182  CEOP
182       &   CALL PACKAGES_CHECK_ERROR('DIAGNOSTICS', myThid )       &   CALL PACKAGES_CHECK_ERROR('DIAGNOSTICS', myThid )
183  #endif  #endif
184    
185    #ifdef ALLOW_REGRID
186          IF (useREGRID) CALL REGRID_CHECK( myThid )
187    #else
188          IF (useREGRID) CALL PACKAGES_CHECK_ERROR('REGRID', myThid)
189    #endif
190    
191    #ifdef ALLOW_MYPACKAGE
192          IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )
193    #else
194          IF (useMYPACKAGE) CALL PACKAGES_CHECK_ERROR('MYPACKAGE', myThid)
195    #endif
196    
197        RETURN        RETURN
198        END        END
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22