/[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.44 by jmc, Sun Aug 17 02:08:24 2008 UTC revision 1.48 by dimitri, Wed Jan 20 23:33:45 2010 UTC
# Line 35  C     myThid ::  Number of this instance Line 35  C     myThid ::  Number of this instance
35    
36  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
37  C     === Local variables ===  C     === Local variables ===
38  C     msgBuf :: Informational/error meesage buffer  C     msgBuf :: Informational/error message buffer
39        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
40  CEOP  CEOP
41    
# Line 251  C---  Continue with standard packages (w Line 251  C---  Continue with standard packages (w
251        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)
252  #endif  #endif
253    
254    #ifdef ALLOW_ICEFRONT
255          IF (useICEFRONT) CALL ICEFRONT_CHECK( myThid )
256    #else
257          IF (useICEFRONT) CALL PACKAGES_ERROR_MSG('ICEFRONT',' ',myThid)
258    #endif
259    
260  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
261        CALL AUTODIFF_CHECK( myThid )        CALL AUTODIFF_CHECK( myThid )
262  #endif  #endif
# Line 280  C---  Continue with standard packages (w Line 286  C---  Continue with standard packages (w
286        IF (useREGRID) CALL PACKAGES_ERROR_MSG('REGRID',' ',myThid)        IF (useREGRID) CALL PACKAGES_ERROR_MSG('REGRID',' ',myThid)
287  #endif  #endif
288    
289    #ifdef ALLOW_LAYERS
290          IF ( useLayers ) CALL LAYERS_CHECK( myThid )
291    #else
292          IF ( useLayers ) CALL PACKAGES_ERROR_MSG('LAYERS',' ',myThid)
293    #endif /* ALLOW_LAYERS */
294    
295    #ifdef ALLOW_NEST_CHILD
296          IF (useNEST_CHILD) CALL NEST_CHILD_CHECK( myThid )
297    #else
298          IF (useNEST_CHILD) CALL PACKAGES_ERROR_MSG(
299         & 'NEST_CHILD',' ',myThid)
300    #endif
301    
302    #ifdef ALLOW_NEST_PARENT
303          IF (useNEST_PARENT) CALL NEST_PARENT_CHECK( myThid )
304    #else
305          IF (useNEST_PARENT) CALL PACKAGES_ERROR_MSG(
306         & 'NEST_PARENT',' ',myThid)
307    #endif
308    
309  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
310        IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )        IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )
311  #else  #else
# Line 292  C---  Continue with standard packages (w Line 318  C---  Continue with standard packages (w
318        IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid)        IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid)
319  #endif  #endif
320    
321    #ifdef ALLOW_ECCO
322          CALL ECCO_CHECK( myThid )
323    #endif
324    
325  C---  Exclusive packages (which cannot be used together):  C---  Exclusive packages (which cannot be used together):
326        IF ( useEXF .AND. useBulkForce ) THEN        IF ( useEXF .AND. useBulkForce ) THEN
327          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
Legend:
Removed from v.1.44  
changed lines
  Added in v.1.48
  ViewVC Help
Powered by ViewVC 1.1.22