/[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.69 by mlosch, Wed Sep 10 09:18:57 2008 UTC revision 1.80 by jmc, Wed Dec 15 23:06:34 2010 UTC
# Line 26  C       |-- GAD_GAD_INIT_VARIA Line 26  C       |-- GAD_GAD_INIT_VARIA
26  C       |  C       |
27  C       |-- CD_CODE_INI_VARS  C       |-- CD_CODE_INI_VARS
28  C       |  C       |
29  C       |-- GMREDI_INIT  C       |-- GMREDI_INIT_VARIA
30  C       |  C       |
31  C       |-- DWNSLP_INIT_VARIA  C       |-- DWNSLP_INIT_VARIA
32  C       |  C       |
33  C       |-- KPP_INIT  C       |-- KPP_INIT_VARIA
 C       |-- KPP_OPEN_DIAGS  
34  C       |  C       |
35  C       |-- PP81_INIT  C       |-- PP81_INIT_VARIA
36  C       |  C       |
37  C       |-- MY82_INIT_VARIA  C       |-- MY82_INIT_VARIA
38  C       |  C       |
39  C       |-- GGL90_INIT  C       |-- GGL90_INIT_VARIA
40  C       |  C       |
41  C       |-- SEAICE_INIT_VARIA  C       |-- SEAICE_INIT_VARIA
42  C       |  C       |
43  C       |-- SHELFICE_INIT_VARIA  C       |-- SHELFICE_INIT_VARIA
44  C       |  C       |
45    C       |-- ICEFRONT_INIT_VARIA
46    C       |
47  C       |-- PTRACERS_INIT_VARIA  C       |-- PTRACERS_INIT_VARIA
48  C       |  C       |
49  C       |-- GCHEM_INIT_VARI  C       |-- GCHEM_INIT_VARI
# Line 61  C       |-- COST_INIT_VARIA Line 62  C       |-- COST_INIT_VARIA
62  C       |  C       |
63  C       |-- PROFILES_INIT_VARIA  C       |-- PROFILES_INIT_VARIA
64  C       |  C       |
65  C       |-- OBCS_INIT_VARIABLES  C       |-- FLT_INIT_VARIA
66  C       |  C       |
67  C       |-- BULKF_INIT_VARIA  C       |-- BULKF_INIT_VARIA
68  C       |  C       |
69  C       |-- THSICE_INI_VARS  C       |-- THSICE_INI_VARS
70  C       |  C       |
71    C       |-- NEST_CHILD_INIT_VARIA
72    C       |-- NEST_PARENT_INIT_VARIA
73    C       |
74  C       |-- CPL_INI_VARS  C       |-- CPL_INI_VARS
75  C       |  C       |
76  C       |-- ATM2D_INIT_VARS  C       |-- ATM2D_INIT_VARS
# Line 79  C       |-- RBCS_INIT_VARIA Line 83  C       |-- RBCS_INIT_VARIA
83  C       |  C       |
84  C       |-- REGRID_INIT_VARIA  C       |-- REGRID_INIT_VARIA
85  C       |  C       |
86    C       |-- LAYERS_INIT_VARIA
87    C       |
88  C       |-- SALT_PLUME_INIT_VARIA  C       |-- SALT_PLUME_INIT_VARIA
89  C       |  C       |
90  C       |-- CHEAPAML_INIT_VARIA  C       |-- CHEAPAML_INIT_VARIA
91  C       |  C       |
92  C       |-- MYPACKAGE_INIT_VARIA  C       |-- MYPACKAGE_INIT_VARIA
93    C       |
94    C       |-- OBCS_INIT_VARIABLES
95    
96  C     !USES:  C     !USES:
97        IMPLICIT NONE        IMPLICIT NONE
# Line 99  C     === Global variables === Line 107  C     === Global variables ===
107    
108  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
109  C     === Routine arguments ===  C     === Routine arguments ===
110  C     myThid -  Number of this instances  C     myThid  :: my Thread Id number
111        INTEGER myThid        INTEGER myThid
112  CEOP  CEOP
113    
# Line 139  C             therefore call CD-ini-vars Line 147  C             therefore call CD-ini-vars
147  C--   Initialize GM/Redi parameterization  C--   Initialize GM/Redi parameterization
148        IF (useGMRedi) THEN        IF (useGMRedi) THEN
149  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
150          IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT',myThid)          IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT_VARIA',myThid)
151  # endif  # endif
152          CALL GMREDI_INIT( myThid )          CALL GMREDI_INIT_VARIA( myThid )
153        ENDIF        ENDIF
154  #endif /* ALLOW_GMREDI */  #endif /* ALLOW_GMREDI */
155    
# Line 155  C--   Initialize GM/Redi parameterizatio Line 163  C--   Initialize GM/Redi parameterizatio
163  C--   Initialize KPP vertical mixing scheme.  C--   Initialize KPP vertical mixing scheme.
164        IF (useKPP) THEN        IF (useKPP) THEN
165  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
166         IF (debugMode)         IF (debugMode) CALL DEBUG_CALL('KPP_INIT_VARIA',myThid)
      &       CALL DEBUG_CALL('KPP_INIT + KPP_OPEN_DIAGS',myThid)  
167  # endif  # endif
168         CALL KPP_INIT( myThid )         CALL KPP_INIT_VARIA( myThid )
        CALL KPP_OPEN_DIAGS( myThid )  
169        ENDIF        ENDIF
170  #endif /* ALLOW_KPP */  #endif /* ALLOW_KPP */
171    
# Line 167  C--   Initialize KPP vertical mixing sch Line 173  C--   Initialize KPP vertical mixing sch
173  C--   Initialize PP81 vertical mixing scheme.  C--   Initialize PP81 vertical mixing scheme.
174        IF (usePP81) THEN        IF (usePP81) THEN
175  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
176         IF (debugMode) CALL DEBUG_CALL('PP81_INIT',myThid)         IF (debugMode) CALL DEBUG_CALL('PP81_INIT_VARIA',myThid)
177  # endif  # endif
178         CALL PP81_INIT( myThid )         CALL PP81_INIT_VARIA( myThid )
179        ENDIF        ENDIF
180  #endif /* ALLOW_PP81 */  #endif /* ALLOW_PP81 */
181    
# Line 183  C--   Initialize MY82 vertical mixing sc Line 189  C--   Initialize MY82 vertical mixing sc
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  # ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
193         IF (debugMode) CALL DEBUG_CALL('GGL90_INIT',myThid)        IF (debugMode) CALL DEBUG_CALL('GGL90_INIT_VARIA',myThid)
194  # endif  #endif
195         CALL GGL90_INIT( myThid )         CALL GGL90_INIT_VARIA( myThid )
196        ENDIF        ENDIF
197  #endif /* ALLOW_GGL90 */  #endif /* ALLOW_GGL90 */
198    
# Line 213  cph# endif Line 219  cph# endif
219        ENDIF        ENDIF
220  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
221    
222  cph-- moved further down  #ifdef ALLOW_ICEFRONT
223  cph#ifdef ALLOW_OBCS        IF (useICEFRONT) THEN
224  cphC--   Open boundaries data  # ifdef ALLOW_DEBUG
225  cph      IF (useOBCS) THEN         IF (debugMode) CALL DEBUG_CALL('ICEFRONT_INIT_VARIA',myThid)
226  cph        CALL OBCS_INIT_VARIABLES( myThid )  # endif
227  cph      ENDIF         CALL ICEFRONT_INIT_VARIA( myThid )
228  cph#endif        ENDIF
229    #endif /* ALLOW_ICEFRONT */
230    
231  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
232  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
# Line 229  cph#endif Line 236  cph#endif
236          IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_VARIA',myThid)          IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_VARIA',myThid)
237  # endif  # endif
238          CALL PTRACERS_INIT_VARIA( myThid )          CALL PTRACERS_INIT_VARIA( myThid )
239    # ifdef ALLOW_LONGSTEP
240    #  ifdef ALLOW_DEBUG
241            IF (debugMode) CALL DEBUG_CALL('LONGSTEP_INIT_VARIA',myThid)
242    #  endif
243            CALL LONGSTEP_INIT_VARIA( myThid )
244    # endif /* ALLOW_LONGSTEP */
245  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
246        ENDIF        ENDIF
247  # endif  # endif
248  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
249    
250    #ifdef ALLOW_OFFLINE
251    # ifndef ALLOW_AUTODIFF_TAMC
252          IF ( useOFFLINE ) THEN
253    # endif
254            CALL OFFLINE_INIT_VARIA( myThid )
255    # ifndef ALLOW_AUTODIFF_TAMC
256          ENDIF
257    # endif
258    #endif /* ALLOW_OFFLINE */
259    
260  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
261  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
262        IF (useGCHEM) THEN        IF (useGCHEM) THEN
# Line 304  c--   Initialise the cost function. Line 327  c--   Initialise the cost function.
327        _BARRIER        _BARRIER
328  #endif /* ALLOW_PROFILES */  #endif /* ALLOW_PROFILES */
329    
330  #ifdef ALLOW_OBCS  #ifdef ALLOW_FLT
331  C--   Open boundaries data  c--   Initialise float position
332        IF (useOBCS) THEN        IF ( useFLT ) THEN
333  # ifdef ALLOW_DEBUG          CALL FLT_INIT_VARIA( myThid )
         IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_VARIABLES',myThid)  
 # endif  
         CALL OBCS_INIT_VARIABLES( myThid )  
334        ENDIF        ENDIF
335  #endif /* ALLOW_OBCS */  #endif /* ALLOW_FLT */
336    
337  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
338        IF (useBulkForce) THEN        IF (useBulkForce) THEN
# Line 329  C--   Open boundaries data Line 349  C--   Open boundaries data
349        ENDIF        ENDIF
350  #endif /* ALLOW_THSICE */  #endif /* ALLOW_THSICE */
351    
352    #ifdef ALLOW_NEST_CHILD
353    C--   Initialize NEST in CHILD configuration
354          IF (useNEST_CHILD) THEN
355    #ifdef ALLOW_DEBUG
356           IF (debugMode)
357         &       CALL DEBUG_CALL('NEST_CHILD_INIT_VARIA',myThid)
358    #endif
359           CALL NEST_CHILD_INIT_VARIA( myThid )
360          ENDIF
361    #endif /* ALLOW_NEST_CHILD */
362    C
363    #ifdef ALLOW_NEST_PARENT
364    C--   Initialize NEST in PARENT configuration
365          IF (useNEST_PARENT) THEN
366    #ifdef ALLOW_DEBUG
367           IF (debugMode)
368         &       CALL DEBUG_CALL('NEST_PARENT_INIT',myThid)
369    #endif
370           CALL NEST_PARENT_INIT_VARIA( myThid )
371          ENDIF
372    #endif /* ALLOW_NEST_PARENT */
373    
374  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
375        IF (useCoupler) THEN        IF (useCoupler) THEN
376  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
# Line 378  C Initialize FIZHI state variables Line 420  C Initialize FIZHI state variables
420        ENDIF        ENDIF
421  #endif /* ALLOW_REGRID */  #endif /* ALLOW_REGRID */
422    
423    #ifdef ALLOW_LAYERS
424          IF ( useLayers ) CALL LAYERS_INIT_VARIA( myThid )
425    #endif /* ALLOW_LAYERS */
426    
427  #ifdef ALLOW_SALT_PLUME  #ifdef ALLOW_SALT_PLUME
428        IF ( useSALT_PLUME ) THEN        IF ( useSALT_PLUME ) THEN
429          CALL SALT_PLUME_INIT_VARIA( myThid )          CALL SALT_PLUME_INIT_VARIA( myThid )
# Line 396  C Initialize FIZHI state variables Line 442  C Initialize FIZHI state variables
442        ENDIF        ENDIF
443  #endif /* ALLOW_MYPACKAGE */  #endif /* ALLOW_MYPACKAGE */
444    
445    #ifdef ALLOW_OBCS
446    C--   put this call in last position (needs to come after few {PKG}_init_varia)
447          IF (useOBCS) THEN
448    # ifdef ALLOW_DEBUG
449            IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_VARIABLES',myThid)
450    # endif
451            CALL OBCS_INIT_VARIABLES( myThid )
452          ENDIF
453    #endif /* ALLOW_OBCS */
454    
455  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
456        IF (debugMode)        IF (debugMode)
457       &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)       &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)
Legend:
Removed from v.1.69  
changed lines
  Added in v.1.80
  ViewVC Help
Powered by ViewVC 1.1.22