/[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.43 by jmc, Mon Apr 7 21:15:06 2008 UTC revision 1.47 by jmc, Tue Nov 24 00:17:42 2009 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 163  C---  Continue with standard packages (w Line 163  C---  Continue with standard packages (w
163        IF (useGMRedi) CALL PACKAGES_ERROR_MSG('GMRedi',' ',myThid)        IF (useGMRedi) CALL PACKAGES_ERROR_MSG('GMRedi',' ',myThid)
164  #endif  #endif
165    
166    #ifndef ALLOW_DOWN_SLOPE
167          IF (useDOWN_SLOPE)
168         &            CALL PACKAGES_ERROR_MSG('DOWN_SLOPE',' ',myThid)
169    #endif
170    
171  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
172        IF (useOBCS) CALL OBCS_CHECK( myThid )        IF (useOBCS) CALL OBCS_CHECK( myThid )
173  #else  #else
# Line 275  C---  Continue with standard packages (w Line 280  C---  Continue with standard packages (w
280        IF (useREGRID) CALL PACKAGES_ERROR_MSG('REGRID',' ',myThid)        IF (useREGRID) CALL PACKAGES_ERROR_MSG('REGRID',' ',myThid)
281  #endif  #endif
282    
283    #ifdef ALLOW_LAYERS
284          IF ( useLayers ) CALL LAYERS_CHECK( myThid )
285    #else
286          IF ( useLayers ) CALL PACKAGES_ERROR_MSG('LAYERS',' ',myThid)
287    #endif /* ALLOW_LAYERS */
288    
289    #ifdef ALLOW_NEST_CHILD
290          IF (useNEST_CHILD) CALL NEST_CHILD_CHECK( myThid )
291    #else
292          IF (useNEST_CHILD) CALL PACKAGES_ERROR_MSG(
293         & 'NEST_CHILD',' ',myThid)
294    #endif
295    
296    #ifdef ALLOW_NEST_PARENT
297          IF (useNEST_PARENT) CALL NEST_PARENT_CHECK( myThid )
298    #else
299          IF (useNEST_PARENT) CALL PACKAGES_ERROR_MSG(
300         & 'NEST_PARENT',' ',myThid)
301    #endif
302    
303  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
304        IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )        IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )
305  #else  #else
# Line 287  C---  Continue with standard packages (w Line 312  C---  Continue with standard packages (w
312        IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid)        IF (useSALT_PLUME)CALL PACKAGES_ERROR_MSG('SALT_PLUME',' ',myThid)
313  #endif  #endif
314    
315    #ifdef ALLOW_ECCO
316          CALL ECCO_CHECK( myThid )
317    #endif
318    
319  C---  Exclusive packages (which cannot be used together):  C---  Exclusive packages (which cannot be used together):
320        IF ( useEXF .AND. useBulkForce ) THEN        IF ( useEXF .AND. useBulkForce ) THEN
321          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
Legend:
Removed from v.1.43  
changed lines
  Added in v.1.47
  ViewVC Help
Powered by ViewVC 1.1.22