/[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.37 by heimbach, Fri Oct 8 17:25:37 2004 UTC revision 1.78 by jmc, Tue Apr 6 20:58:44 2010 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    
20  C     !CALLING SEQUENCE:  C     !CALLING SEQUENCE:
21  C     PACKAGES_INIT_VARIABLES  C     PACKAGES_INIT_VARIABLES
22  C       |  C       |
23    C       |-- DIAGNOSTICS_INIT_VARIA
24    C       |
25    C       |-- GAD_GAD_INIT_VARIA
26    C       |
27  C       |-- CD_CODE_INI_VARS  C       |-- CD_CODE_INI_VARS
28  C       |  C       |
29  C       |-- GMREDI_INIT  C       |-- GMREDI_INIT
30  C       |  C       |
31  C       |-- KPP_INIT  C       |-- DWNSLP_INIT_VARIA
 C       |-- KPP_OPEN_DIAGS  
32  C       |  C       |
33  C       |-- PP81_INIT  C       |-- KPP_INIT_VARIA
34  C       |  C       |
35  C       |-- MY82_INIT  C       |-- PP81_INIT_VARIA
36  C       |  C       |
37  C       |-- GGL90_INIT  C       |-- MY82_INIT_VARIA
38  C       |  C       |
39  C       |-- SEAICE_INIT  C       |-- GGL90_INIT_VARIA
40  C       |  C       |
41  C       |-- OBCS_INIT_VARIABLES  C       |-- SEAICE_INIT_VARIA
42  C       |  C       |
43  C       |-- PTRACERS_INIT  C       |-- SHELFICE_INIT_VARIA
44    C       |
45    C       |-- ICEFRONT_INIT_VARIA
46    C       |
47    C       |-- PTRACERS_INIT_VARIA
48    C       |
49    C       |-- GCHEM_INIT_VARI
50  C       |  C       |
51  C       |-- LAND_INI_VARS  C       |-- LAND_INI_VARS
52  C       |  C       |
53    C       |-- CTRL_INIT_VARIABLES
54    C       |-- CTRL_MAP_INI_ECCO
55  C       |-- CTRL_MAP_INI  C       |-- CTRL_MAP_INI
56  C       |  C       |
57  C       |-- EXF_INIT  C       |-- EXF_INIT
58  C       |  C       |
59  C       |-- INI_FORCING  C       |-- EBM_INI_VARS
60  C       |  C       |
61  C       |-- ECCO_INIT  C       |-- COST_INIT_VARIA
62  C       |  C       |
63  C       |-- COST_INIT  C       |-- PROFILES_INIT_VARIA
64  C       |  C       |
65  C       |-- BULKF_INIT  C       |-- FLT_INIT_VARIA
66    C       |
67    C       |-- OBCS_INIT_VARIABLES
68    C       |
69    C       |-- BULKF_INIT_VARIA
70  C       |  C       |
71  C       |-- THSICE_INI_VARS  C       |-- THSICE_INI_VARS
72  C       |  C       |
73    C       |-- NEST_CHILD_INIT_VARIA
74    C       |-- NEST_PARENT_INIT_VARIA
75    C       |
76  C       |-- CPL_INI_VARS  C       |-- CPL_INI_VARS
77    C       |
78    C       |-- ATM2D_INIT_VARS
79    C       |
80    C       |-- FIZHI_INI_VARS
81    C       |
82    C       |-- MATRIX_INIT
83    C       |
84    C       |-- RBCS_INIT_VARIA
85    C       |
86    C       |-- REGRID_INIT_VARIA
87    C       |
88    C       |-- LAYERS_INIT_VARIA
89    C       |
90    C       |-- SALT_PLUME_INIT_VARIA
91    C       |
92    C       |-- CHEAPAML_INIT_VARIA
93    C       |
94    C       |-- MYPACKAGE_INIT_VARIA
95    
96  C     !USES:  C     !USES:
97        IMPLICIT NONE        IMPLICIT NONE
# Line 75  C     myThid -  Number of this instances Line 111  C     myThid -  Number of this instances
111        INTEGER myThid        INTEGER myThid
112  CEOP  CEOP
113    
114    #ifdef ALLOW_DEBUG
115          IF (debugMode)
116         &     CALL DEBUG_ENTER('PACKAGES_INIT_VARIABLES',myThid)
117    #endif /* ALLOW_DEBUG */
118    
119    #ifdef ALLOW_DIAGNOSTICS
120          IF ( useDiagnostics ) THEN
121            CALL DIAGNOSTICS_INIT_VARIA( myThid )
122          ENDIF
123    #endif /* ALLOW_DIAGNOSTICS */
124    
125    #ifdef ALLOW_GENERIC_ADVDIFF
126          IF ( useGAD ) THEN
127    # ifdef ALLOW_DEBUG
128            IF (debugMode) CALL DEBUG_CALL('GAD_INIT_VARIA',myThid)
129    # endif
130            CALL GAD_INIT_VARIA( myThid )
131          ENDIF
132    #endif /* ALLOW_GENERIC_ADVDIFF */
133    
134  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
135  C--   Initialize CD_CODE variables:  C--   Initialize CD_CODE variables:
136  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),
137  C             therefore call CD-ini-vars before others pkg.  C             therefore call CD-ini-vars before others pkg.
138        IF (useCDscheme) CALL CD_CODE_INI_VARS( myThid )        IF (useCDscheme) THEN
139  #endif  # ifdef ALLOW_DEBUG
140            IF (debugMode) CALL DEBUG_CALL('CD_CODE_INI_VARS',myThid)
141    # endif
142            CALL CD_CODE_INI_VARS( myThid )
143          ENDIF
144    #endif /* ALLOW_CD_CODE */
145    
146  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
147  C--   Initialize GM/Redi parameterization  C--   Initialize GM/Redi parameterization
148        IF (useGMRedi) CALL GMREDI_INIT( myThid )        IF (useGMRedi) THEN
149  #endif  # ifdef ALLOW_DEBUG
150            IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT',myThid)
151    # endif
152            CALL GMREDI_INIT( myThid )
153          ENDIF
154    #endif /* ALLOW_GMREDI */
155    
156    #ifdef ALLOW_DOWN_SLOPE
157          IF ( useDOWN_SLOPE ) THEN
158            CALL DWNSLP_INIT_VARIA( myThid )
159          ENDIF
160    #endif /* ALLOW_DOWN_SLOPE */
161    
162  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
163  C--   Initialize KPP vertical mixing scheme.  C--   Initialize KPP vertical mixing scheme.
164        IF (useKPP) THEN        IF (useKPP) THEN
165         CALL KPP_INIT( myThid )  # ifdef ALLOW_DEBUG
166         CALL KPP_OPEN_DIAGS( myThid )         IF (debugMode) CALL DEBUG_CALL('KPP_INIT_VARIA',myThid)
167    # endif
168           CALL KPP_INIT_VARIA( myThid )
169        ENDIF        ENDIF
170  #endif  #endif /* ALLOW_KPP */
171    
172  #ifdef ALLOW_PP81  #ifdef ALLOW_PP81
173  C--   Initialize PP81 vertical mixing scheme.  C--   Initialize PP81 vertical mixing scheme.
174        IF (usePP81) THEN        IF (usePP81) THEN
175         CALL PP81_INIT( myThid )  # ifdef ALLOW_DEBUG
176           IF (debugMode) CALL DEBUG_CALL('PP81_INIT_VARIA',myThid)
177    # endif
178           CALL PP81_INIT_VARIA( myThid )
179        ENDIF        ENDIF
180  #endif  #endif /* ALLOW_PP81 */
181    
182  #ifdef ALLOW_MY82  #ifdef ALLOW_MY82
183  C--   Initialize MY82 vertical mixing scheme.  C--   Initialize MY82 vertical mixing scheme.
184        IF (useMY82) THEN        IF (useMY82) THEN
185         CALL MY82_INIT( myThid )         CALL MY82_INIT_VARIA( myThid )
186        ENDIF        ENDIF
187  #endif  #endif /* ALLOW_MY82 */
188    
189  #ifdef ALLOW_GGL90  #ifdef ALLOW_GGL90
190  C--   Initialize GGL90 vertical mixing scheme.  C--   Initialize GGL90 vertical mixing scheme.
191        IF (useGGL90) THEN        IF (useGGL90) THEN
192         CALL GGL90_INIT( myThid )  #ifdef ALLOW_DEBUG
193        ENDIF        IF (debugMode) CALL DEBUG_CALL('GGL90_INIT_VARIA',myThid)
194  #endif  #endif
195           CALL GGL90_INIT_VARIA( myThid )
196          ENDIF
197    #endif /* ALLOW_GGL90 */
198    
199  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
200  C--   Initialize SEAICE model.  C--   Initialize SEAICE model.
201        IF (useSEAICE) CALL SEAICE_INIT( myThid )  cph# ifndef ALLOW_AUTODIFF_TAMC
202  #endif        IF (useSEAICE) THEN
203    cph# endif
204    # ifdef ALLOW_DEBUG
205           IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_VARIA',myThid)
206    # endif
207           CALL SEAICE_INIT_VARIA( myThid )
208    cph# ifndef ALLOW_AUTODIFF_TAMC
209          ENDIF
210    cph# endif
211    #endif /* ALLOW_SEAICE */
212    
213    #ifdef ALLOW_SHELFICE
214          IF (useShelfIce) THEN
215    # ifdef ALLOW_DEBUG
216           IF (debugMode) CALL DEBUG_CALL('SHELFICE_INIT_VARIA',myThid)
217    # endif
218           CALL SHELFICE_INIT_VARIA( myThid )
219          ENDIF
220    #endif /* ALLOW_SHELFICE */
221    
222    #ifdef ALLOW_ICEFRONT
223          IF (useICEFRONT) THEN
224    # ifdef ALLOW_DEBUG
225           IF (debugMode) CALL DEBUG_CALL('ICEFRONT_INIT_VARIA',myThid)
226    # endif
227           CALL ICEFRONT_INIT_VARIA( myThid )
228          ENDIF
229    #endif /* ALLOW_ICEFRONT */
230    
231  cph-- moved further down  cph-- moved further down
232  cph#ifdef ALLOW_OBCS  cph#ifdef ALLOW_OBCS
# Line 133  cph#endif Line 240  cph#endif
240  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
241        IF ( usePTRACERS ) THEN        IF ( usePTRACERS ) THEN
242  # endif  # endif
243           CALL PTRACERS_INIT( mythid )  # ifdef ALLOW_DEBUG
244            IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_VARIA',myThid)
245    # endif
246            CALL PTRACERS_INIT_VARIA( myThid )
247    # ifdef ALLOW_LONGSTEP
248    #  ifdef ALLOW_DEBUG
249            IF (debugMode) CALL DEBUG_CALL('LONGSTEP_INIT_VARIA',myThid)
250    #  endif
251            CALL LONGSTEP_INIT_VARIA( myThid )
252    # endif /* ALLOW_LONGSTEP */
253    # ifndef ALLOW_AUTODIFF_TAMC
254          ENDIF
255    # endif
256    #endif /* ALLOW_PTRACERS */
257    
258    #ifdef ALLOW_OFFLINE
259    # ifndef ALLOW_AUTODIFF_TAMC
260          IF ( useOFFLINE ) THEN
261    # endif
262            CALL OFFLINE_INIT_VARIA( myThid )
263    # ifndef ALLOW_AUTODIFF_TAMC
264          ENDIF
265    # endif
266    #endif /* ALLOW_OFFLINE */
267    
268  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
269           CALL GCHEM_INIT_VARI( mythid )  # ifndef ALLOW_AUTODIFF_TAMC
270  #endif        IF (useGCHEM) THEN
271    # endif
272            CALL GCHEM_INIT_VARI( myThid )
273  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
274        ENDIF        ENDIF
275  # endif  # endif
276  #endif  #endif /* ALLOW_GCHEM */
277    
278  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
279        IF ( useLAND ) CALL LAND_INI_VARS( mythid )        IF ( useLAND ) THEN
280  #endif  # ifdef ALLOW_DEBUG
281            IF (debugMode) CALL DEBUG_CALL('LAND_INI_VARS',myThid)
282    # endif
283            CALL LAND_INI_VARS( myThid )
284          ENDIF
285    #endif /* ALLOW_LAND */
286    
287    #ifdef ALLOW_SMOOTH
288          CALL SMOOTH_INIT_VARIA(myThid)
289    #endif /* ALLOW_SMOOTH */
290    
291  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
292  CADJ STORE theta = tapelev_ini_bibj_k, key = 1  CADJ STORE theta = tapelev_init, key = 1
293  c--   Initialise auxiliary xx_ fields  c--   Initialise auxiliary xx_ fields
294        CALL CTRL_INIT_VARIABLES ( mythid )        IF (debugMode) CALL DEBUG_CALL('CTRL_INIT_VARIABLES',myThid)
295          CALL CTRL_INIT_VARIABLES ( myThid )
296  c--   Map the control variables onto the model state.  c--   Map the control variables onto the model state.
297        CALL CTRL_MAP_INI( mythid )  # ifdef ALLOW_ECCO
298          IF (debugMode) CALL DEBUG_CALL('CTRL_MAP_INI_ECCO',myThid)
299          CALL CTRL_MAP_INI_ECCO( myThid )
300    # else
301          IF (debugMode) CALL DEBUG_CALL('CTRL_MAP_INI',myThid)
302          CALL CTRL_MAP_INI( myThid )
303    # endif
304        _BARRIER        _BARRIER
305  #endif  #endif /* ALLOW_AUTODIFF */
306    
307  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
308        CALL EXF_INIT( mythid )        IF (useEXF) THEN
309  cph#else  # ifdef ALLOW_DEBUG
310  #endif         IF (debugMode) CALL DEBUG_CALL('EXF_INIT',myThid)
311        CALL INI_FORCING( mythid )  # endif
312  cph#endif         CALL EXF_INIT( myThid )
313          ENDIF
314    #endif /* ALLOW_EXF */
315    
316  #ifdef ALLOW_EBM  #ifdef ALLOW_EBM
317  # ifdef ALLOW_AUTODIFF  # ifdef ALLOW_AUTODIFF
318  CADJ STORE theta = tapelev3, key = 1  CADJ STORE theta = tapelev_init, key = 1
319  # endif  # endif
320        IF (useEBM) CALL EBM_INI_VARS( mythid )        IF (useEBM) THEN
321  #endif          CALL EBM_INI_VARS( myThid )
322          ENDIF
323    #endif /* ALLOW_EBM */
324    
325  #ifdef ALLOW_COST  #ifdef ALLOW_COST
326  c--   Initialise the cost function.  c--   Initialise the cost function.
327  ceh3 needs an IF ( useCOST ) THEN  ceh3 needs an IF ( useCOST ) THEN
328        CALL COST_INITVARIA( mythid )        CALL COST_INIT_VARIA( myThid )
329        _BARRIER        _BARRIER
330  #endif  #endif /* ALLOW_COST */
331    
332    #ifdef ALLOW_PROFILES
333    c--   Initialise the cost function.
334          CALL PROFILES_INIT_VARIA( myThid )
335          _BARRIER
336    #endif /* ALLOW_PROFILES */
337    
338    #ifdef ALLOW_FLT
339    c--   Initialise float position
340          IF ( useFLT ) THEN
341            CALL FLT_INIT_VARIA( myThid )
342          ENDIF
343    #endif /* ALLOW_FLT */
344    
345  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
346  C--   Open boundaries data  C--   Open boundaries data
347        IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )        IF (useOBCS) THEN
348  #endif  # ifdef ALLOW_DEBUG
349            IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_VARIABLES',myThid)
350    # endif
351            CALL OBCS_INIT_VARIABLES( myThid )
352          ENDIF
353    #endif /* ALLOW_OBCS */
354    
355  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
356        IF (useBulkForce) CALL BULKF_INIT( mythid)        IF (useBulkForce) THEN
357  #endif          CALL BULKF_INIT_VARIA( myThid )
358          ENDIF
359    #endif /* ALLOW_BULK_FORCE */
360    
361  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
362        IF (useThSIce) CALL THSICE_INI_VARS( mythid)        IF (useThSIce) THEN
363    # ifdef ALLOW_DEBUG
364            IF (debugMode) CALL DEBUG_CALL('THSICE_INI_VARS',myThid)
365    # endif
366            CALL THSICE_INI_VARS( myThid)
367          ENDIF
368    #endif /* ALLOW_THSICE */
369    
370    #ifdef ALLOW_NEST_CHILD
371    C--   Initialize NEST in CHILD configuration
372          IF (useNEST_CHILD) THEN
373    #ifdef ALLOW_DEBUG
374           IF (debugMode)
375         &       CALL DEBUG_CALL('NEST_CHILD_INIT_VARIA',myThid)
376    #endif
377           CALL NEST_CHILD_INIT_VARIA( myThid )
378          ENDIF
379    #endif /* ALLOW_NEST_CHILD */
380    C
381    #ifdef ALLOW_NEST_PARENT
382    C--   Initialize NEST in PARENT configuration
383          IF (useNEST_PARENT) THEN
384    #ifdef ALLOW_DEBUG
385           IF (debugMode)
386         &       CALL DEBUG_CALL('NEST_PARENT_INIT',myThid)
387  #endif  #endif
388           CALL NEST_PARENT_INIT_VARIA( myThid )
389          ENDIF
390    #endif /* ALLOW_NEST_PARENT */
391    
392  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
393        IF ( useCoupler ) CALL CPL_INI_VARS( mythid )        IF (useCoupler) THEN
394  #endif  # ifdef ALLOW_DEBUG
395            IF (debugMode) CALL DEBUG_CALL('CPL_INI_VARS',myThid)
396    # endif
397            CALL CPL_INI_VARS( myThid )
398          ENDIF
399    #endif /* COMPONENT_MODULE */
400    
401    #ifdef ALLOW_ATM2D
402          IF (useAtm2d) THEN
403    # ifdef ALLOW_DEBUG
404            IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_VARS',myThid)
405    # endif
406            CALL ATM2D_INIT_VARS( myThid )
407          ENDIF
408    #endif /* ALLOW_ATM2D */
409    
 C AMM  
410  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
411  C Initialize FIZHI state variables  C Initialize FIZHI state variables
412        IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid)        IF (useFIZHI) THEN
413  #endif  # ifdef ALLOW_DEBUG
414  C AMM          IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_VARS',myThid)
415    # endif
416            CALL FIZHI_INIT_VARS( myThid )
417          ENDIF
418    #endif /* ALLOW_FIZHI */
419    
420    #ifdef ALLOW_MATRIX
421          IF ( useMATRIX ) THEN
422    # ifdef ALLOW_DEBUG
423            IF (debugMode) CALL DEBUG_CALL('MATRIX_INIT',myThid)
424    # endif
425            CALL MATRIX_INIT( myThid )
426          ENDIF
427    #endif /* ALLOW_MATRIX */
428    
429    #ifdef ALLOW_RBCS
430          IF ( useRBCS ) THEN
431            CALL RBCS_INIT_VARIA( myThid )
432          ENDIF
433    #endif /* ALLOW_RBCS */
434    
435    #ifdef ALLOW_REGRID
436          IF ( useREGRID ) THEN
437            CALL REGRID_INIT_VARIA( myThid )
438          ENDIF
439    #endif /* ALLOW_REGRID */
440    
441    #ifdef ALLOW_LAYERS
442          IF ( useLayers ) CALL LAYERS_INIT_VARIA( myThid )
443    #endif /* ALLOW_LAYERS */
444    
445    #ifdef ALLOW_SALT_PLUME
446          IF ( useSALT_PLUME ) THEN
447            CALL SALT_PLUME_INIT_VARIA( myThid )
448          ENDIF
449    #endif /* ALLOW_SALT_PLUME */
450    
451    #ifdef ALLOW_CHEAPAML
452          IF (useCheapAML) THEN
453            CALL CHEAPAML_INIT_VARIA( myThid )
454          ENDIF
455    #endif /* ALLOW_CHEAPAML */
456    
457    #ifdef ALLOW_MYPACKAGE
458          IF ( useMYPACKAGE ) THEN
459            CALL MYPACKAGE_INIT_VARIA( myThid )
460          ENDIF
461    #endif /* ALLOW_MYPACKAGE */
462    
463    #ifdef ALLOW_DEBUG
464          IF (debugMode)
465         &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)
466    #endif /* ALLOW_DEBUG */
467    
468        RETURN        RETURN
469        END        END
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.78
  ViewVC Help
Powered by ViewVC 1.1.22