/[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.15 by heimbach, Thu Jun 19 15:00:45 2003 UTC
# Line 60  CEOP Line 60  CEOP
60        IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)        IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)
61  #endif  #endif
62    
63    #ifndef ALLOW_LAND
64          IF (useLand) CALL PACKAGES_CHECK_ERROR('LAND', myThid)
65    #endif
66    
67  #ifndef ALLOW_PTRACERS  #ifndef ALLOW_PTRACERS
68        IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)        IF (usePTRACERS) CALL PACKAGES_CHECK_ERROR('PTRACERS', myThid)
69  #endif  #endif
# Line 76  CEOP Line 80  CEOP
80        IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)        IF (useFLT) CALL PACKAGES_CHECK_ERROR('FLT', myThid)
81  #endif  #endif
82    
83    #ifdef ALLOW_SBO
84          IF (useSBO) CALL SBO_CHECK( myThid )
85    #else
86          IF (useSBO) CALL PACKAGES_CHECK_ERROR('SBO', myThid)
87    #endif
88    
89    #ifdef ALLOW_SEAICE
90          IF (useSEAICE) CALL SEAICE_CHECK( myThid )
91    #else
92          IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid)
93    #endif
94    
95    #if ( defined (ALLOW_ADJOINT_RUN) || \
96          defined (ALLOW_TANGENTLINEAR_RUN) || \
97          defined (ALLOW_GRADIENT_CHECK) || \
98          defined (ALLOW_ECCO_OPTIMIZATION) )
99          CALL CTRL_CHECK( myThid )
100          CALL COST_CHECK( myThid )
101    #endif
102    
103        RETURN        RETURN
104        END        END
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22