/[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.72 by jmc, Wed Jun 17 14:57:50 2009 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       |
# Line 42  C       |-- SEAICE_INIT_VARIA Line 42  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 62  C       |-- PROFILES_INIT_VARIA Line 64  C       |-- PROFILES_INIT_VARIA
64  C       |  C       |
65  C       |-- FLT_INIT_VARIA  C       |-- FLT_INIT_VARIA
66  C       |  C       |
 C       |-- OBCS_INIT_VARIABLES  
 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 80  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 100  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 140  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 212  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 228  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 310  c--   Initialise float position Line 334  c--   Initialise float position
334        ENDIF        ENDIF
335  #endif /* ALLOW_FLT */  #endif /* ALLOW_FLT */
336    
 #ifdef ALLOW_OBCS  
 C--   Open boundaries data  
       IF (useOBCS) THEN  
 # ifdef ALLOW_DEBUG  
         IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_VARIABLES',myThid)  
 # endif  
         CALL OBCS_INIT_VARIABLES( myThid )  
       ENDIF  
 #endif /* ALLOW_OBCS */  
   
337  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
338        IF (useBulkForce) THEN        IF (useBulkForce) THEN
339          CALL BULKF_INIT_VARIA( myThid )          CALL BULKF_INIT_VARIA( myThid )
# Line 335  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 384  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 402  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.72  
changed lines
  Added in v.1.80
  ViewVC Help
Powered by ViewVC 1.1.22