/[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.34 by heimbach, Fri May 21 21:45:35 2004 UTC revision 1.50 by jmc, Wed May 24 00:47:02 2006 UTC
# Line 12  C     !INTERFACE: Line 12  C     !INTERFACE:
12    
13  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
14  C     *==========================================================*  C     *==========================================================*
15  C     | SUBROUTINE PACKAGES_INIT_VARIABLES                          C     | SUBROUTINE PACKAGES_INIT_VARIABLES
16  C     | o Does initialisation of package-related variable data      C     | o Does initialisation of package-related variable data
17  C     *==========================================================*  C     *==========================================================*
18  C     \ev  C     \ev
19    
# Line 27  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
39  C       |  C       |
40  C       |-- PTRACERS_INIT  C       |-- PTRACERS_INIT_VARIA
41  C       |  C       |
42  C       |-- LAND_INI_VARS  C       |-- LAND_INI_VARS
43  C       |  C       |
# Line 45  C       |-- ECCO_INIT Line 51  C       |-- ECCO_INIT
51  C       |  C       |
52  C       |-- COST_INIT  C       |-- COST_INIT
53  C       |  C       |
54  C       |-- BULKF_INIT  C       |-- BULKF_INIT_VARIA
55  C       |  C       |
56  C       |-- THSICE_INI_VARS  C       |-- THSICE_INI_VARS
57  C       |  C       |
# Line 69  C     myThid -  Number of this instances Line 75  C     myThid -  Number of this instances
75        INTEGER myThid        INTEGER myThid
76  CEOP  CEOP
77    
78    #ifdef ALLOW_DEBUG
79          IF (debugMode)
80         &     CALL DEBUG_ENTER('PACKAGES_INIT_VARIABLES',myThid)
81    #endif
82    
83    #ifdef ALLOW_DIAGNOSTICS
84          IF ( useDiagnostics ) THEN
85            CALL DIAGNOSTICS_INIT_VARIA( myThid )
86          ENDIF
87    #endif
88    
89  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
90  C--   Initialize CD_CODE variables:  C--   Initialize CD_CODE variables:
91  C- note(jmc): before packaging CD_CODE, was done within ini_fields (=called before),  C- note(jmc): before packaging CD_CODE, was done within ini_fields (=called before),
92  C             therefore call CD-ini-vars before others pkg.  C             therefore call CD-ini-vars before others pkg.
93    #ifdef ALLOW_DEBUG
94          IF (debugMode) CALL DEBUG_CALL('CD_CODE_INI',myThid)
95    #endif
96        IF (useCDscheme) CALL CD_CODE_INI_VARS( myThid )        IF (useCDscheme) CALL CD_CODE_INI_VARS( myThid )
97  #endif  #endif
98    
99  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
100  C--   Initialize GM/Redi parameterization  C--   Initialize GM/Redi parameterization
101    #ifdef ALLOW_DEBUG
102          IF (debugMode) CALL DEBUG_CALL('CD_CODE_INI',myThid)
103    #endif
104        IF (useGMRedi) CALL GMREDI_INIT( myThid )        IF (useGMRedi) CALL GMREDI_INIT( myThid )
105  #endif  #endif
106    
107  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
108  C--   Initialize KPP vertical mixing scheme.  C--   Initialize KPP vertical mixing scheme.
109        IF (useKPP) THEN        IF (useKPP) THEN
110    #ifdef ALLOW_DEBUG
111           IF (debugMode)
112         &       CALL DEBUG_CALL('KPP_INIT + KPP_OPEN_DIAGS',myThid)
113    #endif
114         CALL KPP_INIT( myThid )         CALL KPP_INIT( myThid )
115         CALL KPP_OPEN_DIAGS( myThid )         CALL KPP_OPEN_DIAGS( myThid )
116        ENDIF        ENDIF
117  #endif  #endif
118    
119    #ifdef ALLOW_PP81
120    C--   Initialize PP81 vertical mixing scheme.
121          IF (usePP81) THEN
122    #ifdef ALLOW_DEBUG
123          IF (debugMode) CALL DEBUG_CALL('PP81_INIT',myThid)
124    #endif
125           CALL PP81_INIT( myThid )
126          ENDIF
127    #endif
128    
129    #ifdef ALLOW_MY82
130    C--   Initialize MY82 vertical mixing scheme.
131          IF (useMY82) THEN
132           CALL MY82_INIT( myThid )
133          ENDIF
134    #endif
135    
136    #ifdef ALLOW_GGL90
137    C--   Initialize GGL90 vertical mixing scheme.
138          IF (useGGL90) THEN
139    #ifdef ALLOW_DEBUG
140          IF (debugMode) CALL DEBUG_CALL('GGL90_INIT',myThid)
141    #endif
142           CALL GGL90_INIT( myThid )
143          ENDIF
144    #endif
145    
146  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
147  C--   Initialize SEAICE model.  C--   Initialize SEAICE model.
148    #ifdef ALLOW_DEBUG
149          IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT',myThid)
150    #endif
151        IF (useSEAICE) CALL SEAICE_INIT( myThid )        IF (useSEAICE) CALL SEAICE_INIT( myThid )
152  #endif  #endif
153    
# Line 106  cph#endif Line 163  cph#endif
163  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
164        IF ( usePTRACERS ) THEN        IF ( usePTRACERS ) THEN
165  # endif  # endif
166           CALL PTRACERS_INIT( mythid )  #ifdef ALLOW_DEBUG
167          IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_VARIA',myThid)
168    #endif
169             CALL PTRACERS_INIT_VARIA( myThid )
170  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
171           CALL GCHEM_INIT_VARI( mythid )  # ifndef ALLOW_AUTODIFF_TAMC
172             IF (useGCHEM) THEN
173    # endif
174              CALL GCHEM_INIT_VARI( mythid )
175    # ifndef ALLOW_AUTODIFF_TAMC
176             ENDIF
177    # endif
178  #endif  #endif
179  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
180        ENDIF        ENDIF
# Line 116  cph#endif Line 182  cph#endif
182  #endif  #endif
183    
184  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
185    #ifdef ALLOW_DEBUG
186          IF (debugMode) CALL DEBUG_CALL('LAND_INI_VARS',myThid)
187    #endif
188        IF ( useLAND ) CALL LAND_INI_VARS( mythid )        IF ( useLAND ) CALL LAND_INI_VARS( mythid )
189  #endif  #endif
190    
191  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
192  CADJ STORE theta = tapelev3, key = 1  CADJ STORE theta = tapelev_init, key = 1
193  c--   Initialise auxiliary xx_ fields  c--   Initialise auxiliary xx_ fields
194        CALL CTRL_INIT_VARIABLES ( mythid )        CALL CTRL_INIT_VARIABLES ( mythid )
195  c--   Map the control variables onto the model state.  c--   Map the control variables onto the model state.
196    # ifdef ALLOW_ECCO
197          CALL CTRL_MAP_INI_ECCO( mythid )
198    # else
199        CALL CTRL_MAP_INI( mythid )        CALL CTRL_MAP_INI( mythid )
200    # endif
201        _BARRIER        _BARRIER
202  #endif  #endif
203    
204  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
205    #ifdef ALLOW_DEBUG
206          IF (debugMode) CALL DEBUG_CALL('EXF_INIT',myThid)
207    #endif
208        CALL EXF_INIT( mythid )        CALL EXF_INIT( mythid )
209  cph#else  #endif
210    
211    #ifdef ALLOW_DEBUG
212          IF (debugMode) CALL DEBUG_CALL('INI_FORCING',myThid)
213  #endif  #endif
214        CALL INI_FORCING( mythid )        CALL INI_FORCING( mythid )
 cph#endif  
215    
216  #ifdef ALLOW_EBM  #ifdef ALLOW_EBM
217  # ifdef ALLOW_AUTODIFF  # ifdef ALLOW_AUTODIFF
218  CADJ STORE theta = tapelev3, key = 1  CADJ STORE theta = tapelev_init, key = 1
219  # endif  # endif
220        IF (useEBM) CALL EBM_INI_VARS( mythid )        IF (useEBM) CALL EBM_INI_VARS( mythid )
221  #endif  #endif
# Line 145  CADJ STORE theta = tapelev3, key = 1 Line 223  CADJ STORE theta = tapelev3, key = 1
223  #ifdef ALLOW_COST  #ifdef ALLOW_COST
224  c--   Initialise the cost function.  c--   Initialise the cost function.
225  ceh3 needs an IF ( useCOST ) THEN  ceh3 needs an IF ( useCOST ) THEN
226        CALL COST_INITVARIA( mythid )        CALL COST_INIT_VARIA( mythid )
227          _BARRIER
228    #endif
229    
230    #ifdef ALLOW_PROFILES
231    c--   Initialise the cost function.
232          CALL PROFILES_INIT_VARIA( mythid )
233        _BARRIER        _BARRIER
234  #endif  #endif
235    
236  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
237  C--   Open boundaries data  C--   Open boundaries data
238    #ifdef ALLOW_DEBUG
239          IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_VARIABLES',myThid)
240    #endif
241        IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )        IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )
242  #endif  #endif
243    
244  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
245        IF (useBulkForce) CALL BULKF_INIT( mythid)        IF (useBulkForce) CALL BULKF_INIT_VARIA( mythid)
246  #endif  #endif
247    
248  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
249    #ifdef ALLOW_DEBUG
250          IF (debugMode) CALL DEBUG_CALL('THSICE_INI_VARS',myThid)
251    #endif
252        IF (useThSIce) CALL THSICE_INI_VARS( mythid)        IF (useThSIce) CALL THSICE_INI_VARS( mythid)
253  #endif  #endif
254    
255  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
256        IF ( useCoupler ) CALL CPL_INI_VARS( mythid )  #ifdef ALLOW_DEBUG
257          IF (debugMode) CALL DEBUG_CALL('CPL_INI_VARS',myThid)
258    #endif
259          IF (useCoupler) CALL CPL_INI_VARS( mythid )
260  #endif  #endif
261    
 C AMM  
262  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
263  C Initialize FIZHI state variables  C Initialize FIZHI state variables
264    #ifdef ALLOW_DEBUG
265          IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_VARS',myThid)
266    #endif
267        IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid)        IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid)
268  #endif  #endif
 C AMM  
269    
270    #ifdef ALLOW_MATRIX
271    #ifdef ALLOW_DEBUG
272          IF (debugMode) CALL DEBUG_CALL('MATRIX_INIT',myThid)
273    #endif
274          IF ( useMATRIX ) CALL MATRIX_INIT( myThid )
275    #endif
276    
277    #ifdef ALLOW_DEBUG
278          IF (debugMode)
279         &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)
280    #endif
281        RETURN        RETURN
282        END        END
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.50
  ViewVC Help
Powered by ViewVC 1.1.22