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

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

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

revision 1.19 by jmc, Thu Jun 12 18:21:34 2003 UTC revision 1.20 by heimbach, Thu Jun 19 15:00:45 2003 UTC
# Line 74  C--   Initialize SEAICE model. Line 74  C--   Initialize SEAICE model.
74        IF (useSEAICE) CALL SEAICE_INIT( myThid )        IF (useSEAICE) CALL SEAICE_INIT( myThid )
75  #endif  #endif
76    
77  #ifdef ALLOW_OBCS  cph-- moved further down
78  C--   Open boundaries data  cph#ifdef ALLOW_OBCS
79        IF (useOBCS) THEN  cphC--   Open boundaries data
80          CALL OBCS_INIT_VARIABLES( myThid )  cph      IF (useOBCS) THEN
81        ENDIF  cph        CALL OBCS_INIT_VARIABLES( myThid )
82  #endif  cph      ENDIF
83    cph#endif
84    
85  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
86        IF ( usePTRACERS ) CALL PTRACERS_INIT( mythid )        IF ( usePTRACERS ) CALL PTRACERS_INIT( mythid )
# Line 89  C--   Open boundaries data Line 90  C--   Open boundaries data
90        IF ( useLAND ) CALL LAND_INI_VARS( mythid )        IF ( useLAND ) CALL LAND_INI_VARS( mythid )
91  #endif  #endif
92    
93  #if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))  #if (defined (ALLOW_ADJOINT_RUN) || \
94  c--   Map the control variables onto the model state.       defined (ALLOW_TANGENTLINEAR_RUN) || \
95        call ctrl_map_ini( mythid )       defined (ALLOW_ECCO_OPTIMIZATION))
96    c--   Initialise auxiliary xx_ fields
97          CALL CTRL_INIT_VARIABLES ( mythid )
98    c--   Map the control variables onto the model state.
99          CALL CTRL_MAP_INI( mythid )
100        _BARRIER        _BARRIER
101  #endif  #endif
102    
# Line 101  c--   Map the control variables onto the Line 106  c--   Map the control variables onto the
106        CALL INI_FORCING( mythid )        CALL INI_FORCING( mythid )
107  #endif  #endif
108    
109  #ifdef INCLUDE_ECCO_PACKAGE  #ifdef ALLOW_COST
       IF (useECCO) THEN  
        CALL ECCO_INIT( myThid )  
       ENDIF  
 #else  
 # ifdef ALLOW_COST  
110  c--   Initialise the cost function.  c--   Initialise the cost function.
111        call cost_init( mythid )        CALL COST_INITVARIA( mythid )
112        _BARRIER        _BARRIER
113  # endif  #endif
114    
115    #ifdef INCLUDE_ECCO_PACKAGE
116          IF (useECCO) CALL ECCO_INIT( myThid )
117    #endif
118    
119    #ifdef ALLOW_OBCS
120    C--   Open boundaries data
121          IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )
122  #endif  #endif
123    
124  cswdblk -- begin add ---  cswdblk -- begin add ---
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22