/[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.11 by adcroft, Mon Mar 4 17:26:41 2002 UTC revision 1.16 by edhill, Thu Oct 9 04:19:18 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7  CBOP  CBOP
# Line 60  CEOP Line 61  CEOP
61        IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)        IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)
62  #endif  #endif
63    
64    #ifndef ALLOW_LAND
65          IF (useLand) CALL PACKAGES_CHECK_ERROR('LAND', myThid)
66    #endif
67    
68  #ifndef ALLOW_PTRACERS  #ifndef ALLOW_PTRACERS
69        IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)        IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)
70  #endif  #endif
# Line 76  CEOP Line 81  CEOP
81        IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)        IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)
82  #endif  #endif
83    
84    #ifdef ALLOW_SBO
85          IF (useSBO) CALL SBO_CHECK( myThid )
86    #else
87          IF (useSBO) CALL PACKAGES_CHECK_ERROR('SBO', myThid)
88    #endif
89    
90    #ifdef ALLOW_SEAICE
91          IF (useSEAICE) CALL SEAICE_CHECK( myThid )
92    #else
93          IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid)
94    #endif
95    
96    #if ( defined (ALLOW_ADJOINT_RUN) || \
97          defined (ALLOW_TANGENTLINEAR_RUN) || \
98          defined (ALLOW_GRADIENT_CHECK) || \
99          defined (ALLOW_ECCO_OPTIMIZATION) )
100          CALL CTRL_CHECK( myThid )
101          CALL COST_CHECK( myThid )
102    #endif
103    
104        RETURN        RETURN
105        END        END
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22