/[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.31 by molod, Mon Dec 15 23:00:44 2003 UTC revision 1.37 by heimbach, Fri Oct 8 17:25:37 2004 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5    #include "AD_CONFIG.h"
6  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
7    
8  CBOP  CBOP
# Line 26  C       | Line 27  C       |
27  C       |-- KPP_INIT  C       |-- KPP_INIT
28  C       |-- KPP_OPEN_DIAGS  C       |-- KPP_OPEN_DIAGS
29  C       |  C       |
30    C       |-- PP81_INIT
31    C       |
32    C       |-- MY82_INIT
33    C       |
34    C       |-- GGL90_INIT
35    C       |
36  C       |-- SEAICE_INIT  C       |-- SEAICE_INIT
37  C       |  C       |
38  C       |-- OBCS_INIT_VARIABLES  C       |-- OBCS_INIT_VARIABLES
# Line 56  C     === Global variables === Line 63  C     === Global variables ===
63  #include "SIZE.h"  #include "SIZE.h"
64  #include "EEPARAMS.h"  #include "EEPARAMS.h"
65  #include "PARAMS.h"  #include "PARAMS.h"
66    #ifdef ALLOW_AUTODIFF_TAMC
67    # include "DYNVARS.h"
68    # include "tamc.h"
69    # include "tamc_keys.h"
70    #endif
71    
72  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
73  C     === Routine arguments ===  C     === Routine arguments ===
# Line 83  C--   Initialize KPP vertical mixing sch Line 95  C--   Initialize KPP vertical mixing sch
95        ENDIF        ENDIF
96  #endif  #endif
97    
98    #ifdef ALLOW_PP81
99    C--   Initialize PP81 vertical mixing scheme.
100          IF (usePP81) THEN
101           CALL PP81_INIT( myThid )
102          ENDIF
103    #endif
104    
105    #ifdef ALLOW_MY82
106    C--   Initialize MY82 vertical mixing scheme.
107          IF (useMY82) THEN
108           CALL MY82_INIT( myThid )
109          ENDIF
110    #endif
111    
112    #ifdef ALLOW_GGL90
113    C--   Initialize GGL90 vertical mixing scheme.
114          IF (useGGL90) THEN
115           CALL GGL90_INIT( myThid )
116          ENDIF
117    #endif
118    
119  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
120  C--   Initialize SEAICE model.  C--   Initialize SEAICE model.
121        IF (useSEAICE) CALL SEAICE_INIT( myThid )        IF (useSEAICE) CALL SEAICE_INIT( myThid )
# Line 114  cph#endif Line 147  cph#endif
147  #endif  #endif
148    
149  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
150    CADJ STORE theta = tapelev_ini_bibj_k, key = 1
151  c--   Initialise auxiliary xx_ fields  c--   Initialise auxiliary xx_ fields
152        CALL CTRL_INIT_VARIABLES ( mythid )        CALL CTRL_INIT_VARIABLES ( mythid )
153  c--   Map the control variables onto the model state.  c--   Map the control variables onto the model state.
# Line 123  c--   Map the control variables onto the Line 157  c--   Map the control variables onto the
157    
158  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
159        CALL EXF_INIT( mythid )        CALL EXF_INIT( mythid )
160  #else  cph#else
161    #endif
162        CALL INI_FORCING( mythid )        CALL INI_FORCING( mythid )
163    cph#endif
164    
165    #ifdef ALLOW_EBM
166    # ifdef ALLOW_AUTODIFF
167    CADJ STORE theta = tapelev3, key = 1
168    # endif
169          IF (useEBM) CALL EBM_INI_VARS( mythid )
170  #endif  #endif
171    
172  #ifdef ALLOW_COST  #ifdef ALLOW_COST
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22