/[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.16 by edhill, Thu Oct 9 04:19:18 2003 UTC revision 1.20 by edhill, Thu Oct 30 12:00:41 2003 UTC
# Line 57  CEOP Line 57  CEOP
57        IF (useOBCS) CALL PACKAGES_CHECK_ERROR('OBCS', myThid)        IF (useOBCS) CALL PACKAGES_CHECK_ERROR('OBCS', myThid)
58  #endif  #endif
59    
60    #ifndef ALLOW_BULK_FORCE
61          IF (useBulkforce) CALL PACKAGES_CHECK_ERROR('BULK?FORCE',myThid)
62    #endif
63    
64    #ifndef ALLOW_THERM_SEAICE
65          IF (useThermSeaIce)
66         &   CALL PACKAGES_CHECK_ERROR('THERM?SEAICE', myThid)
67    #endif
68    
69  #ifndef ALLOW_AIM  #ifndef ALLOW_AIM
70        IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)        IF (useAIM) CALL PACKAGES_CHECK_ERROR('AIM', myThid)
71  #endif  #endif
# Line 93  CEOP Line 102  CEOP
102        IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid)        IF (useSEAICE) CALL PACKAGES_CHECK_ERROR('SEAICE', myThid)
103  #endif  #endif
104    
105  #if ( defined (ALLOW_ADJOINT_RUN) || \  #ifndef ALLOW_CD_CODE
106        defined (ALLOW_TANGENTLINEAR_RUN) || \        IF (useCDscheme) CALL PACKAGES_CHECK_ERROR('CD_CODE', myThid)
107        defined (ALLOW_GRADIENT_CHECK) || \  #endif
108        defined (ALLOW_ECCO_OPTIMIZATION) )  
109    #ifdef ALLOW_AUTODIFF
110        CALL CTRL_CHECK( myThid )        CALL CTRL_CHECK( myThid )
111        CALL COST_CHECK( myThid )        CALL COST_CHECK( myThid )
112  #endif  #endif
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22