/[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.12 by heimbach, Tue Nov 12 20:45:41 2002 UTC revision 1.18 by edhill, Thu Oct 23 04:41:40 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "AD_CONFIG.h"
5    #include "PACKAGES_CONFIG.h"
6  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
7    
8  CBOP  CBOP
# Line 56  CEOP Line 58  CEOP
58        IF (useOBCS) CALL PACKAGES_CHECK_ERROR('OBCS', myThid)        IF (useOBCS) CALL PACKAGES_CHECK_ERROR('OBCS', myThid)
59  #endif  #endif
60    
61    #ifndef ALLOW_BULK_FORCE
62          IF (useBulkforce) CALL PACKAGES_CHECK_ERROR('BULK?FORCE',myThid)
63    #endif
64    
65    #ifndef ALLOW_THERM_SEAICE
66          IF (useThermSeaIce)
67         &   CALL PACKAGES_CHECK_ERROR('THERM?SEAICE', myThid)
68    #endif
69    
70  #ifndef ALLOW_AIM  #ifndef ALLOW_AIM
71        IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)        IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)
72  #endif  #endif
73    
74    #ifndef ALLOW_LAND
75          IF (useLand) CALL PACKAGES_CHECK_ERROR('LAND', myThid)
76    #endif
77    
78  #ifndef ALLOW_PTRACERS  #ifndef ALLOW_PTRACERS
79        IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)        IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)
80  #endif  #endif
# Line 76  CEOP Line 91  CEOP
91        IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)        IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)
92  #endif  #endif
93    
94    #ifdef ALLOW_SBO
95          IF (useSBO) CALL SBO_CHECK( myThid )
96    #else
97          IF (useSBO) CALL PACKAGES_CHECK_ERROR('SBO', myThid)
98    #endif
99    
100  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
101        IF (useSEAICE) CALL SEAICE_CHECK( myThid )        IF (useSEAICE) CALL SEAICE_CHECK( myThid )
102  #else  #else
103        IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid)        IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid)
104  #endif  #endif
105    
106    #if ( defined (ALLOW_ADJOINT_RUN) || \
107          defined (ALLOW_TANGENTLINEAR_RUN) || \
108          defined (ALLOW_GRADIENT_CHECK) || \
109          defined (ALLOW_ECCO_OPTIMIZATION) )
110          CALL CTRL_CHECK( myThid )
111          CALL COST_CHECK( myThid )
112    #endif
113    
114        RETURN        RETURN
115        END        END
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22