/[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.11 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 77  C--   Initialise & Read Land package par Line 78  C--   Initialise & Read Land package par
78        IF (useLand) CALL LAND_INITIALISE( myThid )        IF (useLand) CALL LAND_INITIALISE( myThid )
79  #endif  #endif
80    
81    #if (defined (ALLOW_ADJOINT_RUN) || \
82         defined (ALLOW_TANGENTLINEAR_RUN) || \
83         defined (ALLOW_ECCO_OPTIMIZATION))
84    C--   Initialise the control variables
85          CALL CTRL_INIT( myThid )
86          _BARRIER
87    #endif
88    
89    #ifdef INCLUDE_ECCO_PACKAGE
90    # ifdef ALLOW_COST
91    C--   Initialise ecco-specific cost function.
92           IF (useECCO) CALL COST_INIT_FIXED( myThid )
93    # endif
94    #endif
95    
96    #ifdef ALLOW_PTRACERS
97    #ifdef ALLOW_GCHEM
98          IF (usePTRACERS) then
99           call GCHEM_INIT_FIXED(mythid)
100          ENDIF
101    #endif
102    #endif
103    
104    
105        RETURN        RETURN
106        END        END
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22