/[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.8 by heimbach, Thu Jun 19 15:00:45 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    C--   Initialise ecco-specific cost function.
90           IF (useECCO) CALL COST_INIT( myThid )
91    #endif
92    
93        RETURN        RETURN
94        END        END
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22