/[MITgcm]/MITgcm/model/src/packages_init_fixed.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_init_fixed.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.7 by jmc, Thu Jun 12 18:21:34 2003 UTC revision 1.10 by stephd, Mon Oct 6 20:37:30 2003 UTC
# Line 77  C--   Initialise & Read Land package par Line 77  C--   Initialise & Read Land package par
77        IF (useLand) CALL LAND_INITIALISE( myThid )        IF (useLand) CALL LAND_INITIALISE( myThid )
78  #endif  #endif
79    
80    #if (defined (ALLOW_ADJOINT_RUN) || \
81         defined (ALLOW_TANGENTLINEAR_RUN) || \
82         defined (ALLOW_ECCO_OPTIMIZATION))
83    C--   Initialise the control variables
84          CALL CTRL_INIT( myThid )
85          _BARRIER
86    #endif
87    
88    #ifdef INCLUDE_ECCO_PACKAGE
89    # ifdef ALLOW_COST
90    C--   Initialise ecco-specific cost function.
91           IF (useECCO) CALL COST_INIT_FIXED( myThid )
92    # endif
93    #endif
94    
95    #ifdef ALLOW_PTRACERS
96    #ifdef ALLOW_GCHEM
97          IF (usePTRACERS) then
98           call GCHEM_INIT_FIXED(mythid)
99          ENDIF
100    #endif
101    #endif
102    
103    
104        RETURN        RETURN
105        END        END
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22