/[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.50 by mlosch, Sat Sep 25 23:09:55 2010 UTC revision 1.57 by jmc, Mon Mar 5 17:56:06 2012 UTC
# Line 87  C---  Start with non-standard packages ( Line 87  C---  Start with non-standard packages (
87        ENDIF        ENDIF
88  #endif  #endif
89    
90  #ifdef ALLOW_GENERIC_ADVDIFF  #ifndef ALLOW_GENERIC_ADVDIFF
       IF (useGAD) CALL GAD_CHECK( myThid )  
 #else  
91        IF ( tempStepping .OR. saltStepping ) THEN        IF ( tempStepping .OR. saltStepping ) THEN
92          WRITE(msgBuf,'(2A)')          WRITE(msgBuf,'(2A)')
93       &  'PACKAGES_CHECK: cannot step forward Temp or Salt',       &  'PACKAGES_CHECK: cannot step forward Temp or Salt',
# Line 115  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 168  C---  Continue with standard packages (w Line 166  C---  Continue with standard packages (w
166       &            CALL PACKAGES_ERROR_MSG('DOWN_SLOPE',' ',myThid)       &            CALL PACKAGES_ERROR_MSG('DOWN_SLOPE',' ',myThid)
167  #endif  #endif
168    
169    #ifdef ALLOW_BBL
170          IF (useBBL) CALL BBL_CHECK( myThid )
171    #else
172          IF (useBBL) CALL PACKAGES_ERROR_MSG('BBL',' ',myThid)
173    #endif
174    
175  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
176        IF (useOBCS) CALL OBCS_CHECK( myThid )        IF (useOBCS) CALL OBCS_CHECK( myThid )
177  #else  #else
178        IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid)        IF (useOBCS) CALL PACKAGES_ERROR_MSG('OBCS',' ',myThid)
179  #endif  #endif
180    
181  #ifndef ALLOW_EXF  #ifdef ALLOW_EXF
182          IF (useEXF) CALL EXF_CHECK( myThid )
183    #else
184        IF (useEXF) CALL PACKAGES_ERROR_MSG('EXF',' ',myThid)        IF (useEXF) CALL PACKAGES_ERROR_MSG('EXF',' ',myThid)
185  #endif  #endif
186    
# Line 191  C---  Continue with standard packages (w Line 197  C---  Continue with standard packages (w
197        IF (useCheapAML) CALL PACKAGES_ERROR_MSG('CheapAML',' ',myThid)        IF (useCheapAML) CALL PACKAGES_ERROR_MSG('CheapAML',' ',myThid)
198  #endif  #endif
199    
200    #ifndef ALLOW_FRAZIL
201          IF (useFRAZIL) CALL PACKAGES_ERROR_MSG('FRAZIL',' ',myThid)
202    #endif
203    
204  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
205        IF (useThSIce) CALL THSICE_CHECK( myThid )        IF (useThSIce) CALL THSICE_CHECK( myThid )
206  #else  #else
# Line 277  C---  Continue with standard packages (w Line 287  C---  Continue with standard packages (w
287        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)        IF (useShelfIce) CALL PACKAGES_ERROR_MSG('ShelfIce',' ',myThid)
288  #endif  #endif
289    
290    #ifdef ALLOW_STREAMICE
291          IF (useStreamIce) CALL STREAMICE_CHECK( myThid )
292    #else
293          IF (useStreamIce) CALL PACKAGES_ERROR_MSG('StreamIce',' ',myThid)
294    #endif
295    
296  #ifdef ALLOW_ICEFRONT  #ifdef ALLOW_ICEFRONT
297        IF (useICEFRONT) CALL ICEFRONT_CHECK( myThid )        IF (useICEFRONT) CALL ICEFRONT_CHECK( myThid )
298  #else  #else
# Line 336  C---  Continue with standard packages (w Line 352  C---  Continue with standard packages (w
352       & 'NEST_PARENT',' ',myThid)       & 'NEST_PARENT',' ',myThid)
353  #endif  #endif
354    
355    #ifdef ALLOW_OASIS
356          IF (useOASIS) CALL OASIS_CHECK( myThid )
357    #else
358          IF (useOASIS) CALL PACKAGES_ERROR_MSG('OASIS',' ',myThid)
359    #endif
360    
361    #ifdef ALLOW_ECCO
362          CALL ECCO_CHECK( myThid )
363    #endif
364    
365  #ifndef ALLOW_EMBED_FILES  #ifndef ALLOW_EMBED_FILES
366        IF (useEMBED_FILES) CALL PACKAGES_ERROR_MSG(        IF (useEMBED_FILES) CALL PACKAGES_ERROR_MSG(
367       &                                  'EMBED_FILES',' ',myThid)       &                                  'EMBED_FILES',' ',myThid)
# Line 347  C---  Continue with standard packages (w Line 373  C---  Continue with standard packages (w
373        IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)        IF (useMYPACKAGE) CALL PACKAGES_ERROR_MSG('MYPACKAGE',' ',myThid)
374  #endif  #endif
375    
376  #ifdef ALLOW_OASIS  #ifdef ALLOW_GENERIC_ADVDIFF
377        IF (useOASIS) CALL OASIS_CHECK( myThid )  C-    Check generic AdvDiff setting and related overlap minimum size:
378  #else  C     for this reason, called after other ${pkg}_check S/R
379        IF (useOASIS) CALL PACKAGES_ERROR_MSG('OASIS',' ',myThid)        IF (useGAD) CALL GAD_CHECK( myThid )
 #endif  
   
 #ifdef ALLOW_ECCO  
       CALL ECCO_CHECK( myThid )  
380  #endif  #endif
381    
382  C---  Exclusive packages (which cannot be used together):  C---  Exclusive packages (which cannot be used together):
# Line 364  C---  Exclusive packages (which cannot b Line 386  C---  Exclusive packages (which cannot b
386          CALL PRINT_ERROR( msgBuf , myThid )          CALL PRINT_ERROR( msgBuf , myThid )
387          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',          WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
388       &  ' but cannot be used together => need to select only one.'       &  ' but cannot be used together => need to select only one.'
389            CALL PRINT_ERROR( msgBuf , myThid )
390            STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
391          ENDIF
392    
393    C---  Exclusive packages (which cannot be used together):
394          IF ( useDOWN_SLOPE .AND. useBBL ) THEN
395            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
396         &  'both useDOWN_SLOPE and useBBL are set'
397            CALL PRINT_ERROR( msgBuf , myThid )
398            WRITE(msgBuf,'(2A)') 'PACKAGES_CHECK: ',
399         &  ' but cannot be used together => need to select only one.'
400          CALL PRINT_ERROR( msgBuf , myThid )          CALL PRINT_ERROR( msgBuf , myThid )
401          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'          STOP 'ABNORMAL END: S/R PACKAGES_CHECK'
402        ENDIF        ENDIF
Legend:
Removed from v.1.50  
changed lines
  Added in v.1.57
  ViewVC Help
Powered by ViewVC 1.1.22