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