/[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.76 by jmc, Tue Nov 24 00:17:42 2009 UTC revision 1.84 by heimbach, Thu Jan 5 10:19:20 2012 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       |-- BBL_INIT_VARIA
34    C       |
35  C       |-- KPP_INIT_VARIA  C       |-- KPP_INIT_VARIA
36  C       |  C       |
37  C       |-- PP81_INIT_VARIA  C       |-- PP81_INIT_VARIA
# Line 42  C       |-- SEAICE_INIT_VARIA Line 44  C       |-- SEAICE_INIT_VARIA
44  C       |  C       |
45  C       |-- SHELFICE_INIT_VARIA  C       |-- SHELFICE_INIT_VARIA
46  C       |  C       |
47    C       |-- ICEFRONT_INIT_VARIA
48    C       |
49  C       |-- PTRACERS_INIT_VARIA  C       |-- PTRACERS_INIT_VARIA
50  C       |  C       |
51  C       |-- GCHEM_INIT_VARI  C       |-- GCHEM_INIT_VARI
# Line 62  C       |-- PROFILES_INIT_VARIA Line 66  C       |-- PROFILES_INIT_VARIA
66  C       |  C       |
67  C       |-- FLT_INIT_VARIA  C       |-- FLT_INIT_VARIA
68  C       |  C       |
 C       |-- OBCS_INIT_VARIABLES  
 C       |  
69  C       |-- BULKF_INIT_VARIA  C       |-- BULKF_INIT_VARIA
70  C       |  C       |
71  C       |-- THSICE_INI_VARS  C       |-- THSICE_INI_VARS
# Line 77  C       |-- ATM2D_INIT_VARS Line 79  C       |-- ATM2D_INIT_VARS
79  C       |  C       |
80  C       |-- FIZHI_INI_VARS  C       |-- FIZHI_INI_VARS
81  C       |  C       |
82  C       |-- MATRIX_INIT  C       |-- MATRIX_INIT_VARIA
83  C       |  C       |
84  C       |-- RBCS_INIT_VARIA  C       |-- RBCS_INIT_VARIA
85  C       |  C       |
# Line 90  C       | Line 92  C       |
92  C       |-- CHEAPAML_INIT_VARIA  C       |-- CHEAPAML_INIT_VARIA
93  C       |  C       |
94  C       |-- MYPACKAGE_INIT_VARIA  C       |-- MYPACKAGE_INIT_VARIA
95    C       |
96    C       |-- OBCS_INIT_VARIABLES
97    
98  C     !USES:  C     !USES:
99        IMPLICIT NONE        IMPLICIT NONE
# Line 105  C     === Global variables === Line 109  C     === Global variables ===
109    
110  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
111  C     === Routine arguments ===  C     === Routine arguments ===
112  C     myThid -  Number of this instances  C     myThid  :: my Thread Id number
113        INTEGER myThid        INTEGER myThid
114  CEOP  CEOP
115    
# Line 145  C             therefore call CD-ini-vars Line 149  C             therefore call CD-ini-vars
149  C--   Initialize GM/Redi parameterization  C--   Initialize GM/Redi parameterization
150        IF (useGMRedi) THEN        IF (useGMRedi) THEN
151  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
152          IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT',myThid)          IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT_VARIA',myThid)
153  # endif  # endif
154          CALL GMREDI_INIT( myThid )          CALL GMREDI_INIT_VARIA( myThid )
155        ENDIF        ENDIF
156  #endif /* ALLOW_GMREDI */  #endif /* ALLOW_GMREDI */
157    
# Line 157  C--   Initialize GM/Redi parameterizatio Line 161  C--   Initialize GM/Redi parameterizatio
161        ENDIF        ENDIF
162  #endif /* ALLOW_DOWN_SLOPE */  #endif /* ALLOW_DOWN_SLOPE */
163    
164    #ifdef ALLOW_BBL
165          IF ( useBBL ) THEN
166            CALL BBL_INIT_VARIA( myThid )
167          ENDIF
168    #endif /* ALLOW_BBL */
169    
170  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
171  C--   Initialize KPP vertical mixing scheme.  C--   Initialize KPP vertical mixing scheme.
172        IF (useKPP) THEN        IF (useKPP) THEN
# Line 217  cph# endif Line 227  cph# endif
227        ENDIF        ENDIF
228  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
229    
230  cph-- moved further down  #ifdef ALLOW_ICEFRONT
231  cph#ifdef ALLOW_OBCS        IF (useICEFRONT) THEN
232  cphC--   Open boundaries data  # ifdef ALLOW_DEBUG
233  cph      IF (useOBCS) THEN         IF (debugMode) CALL DEBUG_CALL('ICEFRONT_INIT_VARIA',myThid)
234  cph        CALL OBCS_INIT_VARIABLES( myThid )  # endif
235  cph      ENDIF         CALL ICEFRONT_INIT_VARIA( myThid )
236  cph#endif        ENDIF
237    #endif /* ALLOW_ICEFRONT */
238    
239  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
240  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
# Line 252  cph#endif Line 263  cph#endif
263  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
264        ENDIF        ENDIF
265  # endif  # endif
266  #endif /* ALLOW_RBCS */  #endif /* ALLOW_OFFLINE */
267    
268  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
269  # ifndef ALLOW_AUTODIFF_TAMC  cph# ifndef ALLOW_AUTODIFF_TAMC
270        IF (useGCHEM) THEN        IF (useGCHEM) THEN
271  # endif  cph# endif
272          CALL GCHEM_INIT_VARI( myThid )          CALL GCHEM_INIT_VARI( myThid )
273  # ifndef ALLOW_AUTODIFF_TAMC  cph# ifndef ALLOW_AUTODIFF_TAMC
274        ENDIF        ENDIF
275  # endif  cph# endif
276  #endif /* ALLOW_GCHEM */  #endif /* ALLOW_GCHEM */
277    
278  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
# Line 278  cph#endif Line 289  cph#endif
289  #endif /* ALLOW_SMOOTH */  #endif /* ALLOW_SMOOTH */
290    
291  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
292  CADJ STORE theta = tapelev_init, key = 1  CADJ STORE theta  = tapelev_init, key = 1
293    CADJ STORE salt   = tapelev_init, key = 1
294    # ifdef ALLOW_DIFFKR_CONTROL
295    CADJ STORE diffkr = tapelev_init, key = 1
296    # endif
297  c--   Initialise auxiliary xx_ fields  c--   Initialise auxiliary xx_ fields
298        IF (debugMode) CALL DEBUG_CALL('CTRL_INIT_VARIABLES',myThid)        IF (debugMode) CALL DEBUG_CALL('CTRL_INIT_VARIABLES',myThid)
299        CALL CTRL_INIT_VARIABLES ( myThid )        CALL CTRL_INIT_VARIABLES ( myThid )
# Line 331  c--   Initialise float position Line 346  c--   Initialise float position
346        ENDIF        ENDIF
347  #endif /* ALLOW_FLT */  #endif /* ALLOW_FLT */
348    
 #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 */  
   
349  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
350        IF (useBulkForce) THEN        IF (useBulkForce) THEN
351          CALL BULKF_INIT_VARIA( myThid )          CALL BULKF_INIT_VARIA( myThid )
# Line 411  C Initialize FIZHI state variables Line 416  C Initialize FIZHI state variables
416  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
417          IF (debugMode) CALL DEBUG_CALL('MATRIX_INIT',myThid)          IF (debugMode) CALL DEBUG_CALL('MATRIX_INIT',myThid)
418  # endif  # endif
419          CALL MATRIX_INIT( myThid )          CALL MATRIX_INIT_VARIA( myThid )
420        ENDIF        ENDIF
421  #endif /* ALLOW_MATRIX */  #endif /* ALLOW_MATRIX */
422    
# Line 449  C Initialize FIZHI state variables Line 454  C Initialize FIZHI state variables
454        ENDIF        ENDIF
455  #endif /* ALLOW_MYPACKAGE */  #endif /* ALLOW_MYPACKAGE */
456    
457    #ifdef ALLOW_OBCS
458    C--   put this call in last position (needs to come after few {PKG}_init_varia)
459          IF (useOBCS) THEN
460    # ifdef ALLOW_DEBUG
461            IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_VARIABLES',myThid)
462    # endif
463            CALL OBCS_INIT_VARIABLES( myThid )
464          ENDIF
465    #endif /* ALLOW_OBCS */
466    
467  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
468        IF (debugMode)        IF (debugMode)
469       &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)       &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)
Legend:
Removed from v.1.76  
changed lines
  Added in v.1.84
  ViewVC Help
Powered by ViewVC 1.1.22