/[MITgcm]/MITgcm_contrib/rpa_layers/modsrc/packages_check.F
ViewVC logotype

Diff of /MITgcm_contrib/rpa_layers/modsrc/packages_check.F

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

revision 1.1 by rpa, Tue Sep 15 19:46:38 2009 UTC revision 1.2 by jmc, Wed Sep 16 18:06:39 2009 UTC
# Line 280  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_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
290        IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )        IF (useMYPACKAGE) CALL MYPACKAGE_CHECK( myThid )
291  #else  #else
# Line 294  C---  Continue with standard packages (w Line 300  C---  Continue with standard packages (w
300    
301  #ifdef ALLOW_ECCO  #ifdef ALLOW_ECCO
302        CALL ECCO_CHECK( myThid )        CALL ECCO_CHECK( myThid )
303  #endif  #endif
   
 C-- added by RPA  
 #ifdef ALLOW_LAYERS  
       IF ( useLayers ) CALL LAYERS_CHECK( myThid )  
 #else  
       IF ( useLayers )  
      &       CALL PACKAGES_CHECK_ERROR('LAYERS')  
 #endif /* ALLOW_LAYERS */  
304    
305  C---  Exclusive packages (which cannot be used together):  C---  Exclusive packages (which cannot be used together):
306        IF ( useEXF .AND. useBulkForce ) THEN        IF ( useEXF .AND. useBulkForce ) THEN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22