/[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.90 by heimbach, Fri Sep 28 14:19:35 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 26  C       |-- GAD_GAD_INIT_VARIA Line 25  C       |-- GAD_GAD_INIT_VARIA
25  C       |  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       |-- DWNSLP_INIT_VARIA  C       |-- DWNSLP_INIT_VARIA
31  C       |  C       |
32    C       |-- BBL_INIT_VARIA
33    C       |
34  C       |-- KPP_INIT_VARIA  C       |-- KPP_INIT_VARIA
35  C       |  C       |
36  C       |-- PP81_INIT_VARIA  C       |-- PP81_INIT_VARIA
# Line 38  C       |-- MY82_INIT_VARIA Line 39  C       |-- MY82_INIT_VARIA
39  C       |  C       |
40  C       |-- GGL90_INIT_VARIA  C       |-- GGL90_INIT_VARIA
41  C       |  C       |
42    C       |-- FRAZIL_INIT_VARIA
43    C       |
44  C       |-- SEAICE_INIT_VARIA  C       |-- SEAICE_INIT_VARIA
45  C       |  C       |
46  C       |-- SHELFICE_INIT_VARIA  C       |-- SHELFICE_INIT_VARIA
47  C       |  C       |
48    C       |-- ICEFRONT_INIT_VARIA
49    C       |
50    C       |-- STREAMICE_INIT_VARIA
51    C       |
52  C       |-- PTRACERS_INIT_VARIA  C       |-- PTRACERS_INIT_VARIA
53  C       |  C       |
54  C       |-- GCHEM_INIT_VARI  C       |-- GCHEM_INIT_VARI
# Line 56  C       |-- EXF_INIT Line 63  C       |-- EXF_INIT
63  C       |  C       |
64  C       |-- EBM_INI_VARS  C       |-- EBM_INI_VARS
65  C       |  C       |
 C       |-- COST_INIT_VARIA  
 C       |  
66  C       |-- PROFILES_INIT_VARIA  C       |-- PROFILES_INIT_VARIA
67  C       |  C       |
68  C       |-- FLT_INIT_VARIA  C       |-- FLT_INIT_VARIA
69  C       |  C       |
 C       |-- OBCS_INIT_VARIABLES  
 C       |  
70  C       |-- BULKF_INIT_VARIA  C       |-- BULKF_INIT_VARIA
71  C       |  C       |
72  C       |-- THSICE_INI_VARS  C       |-- THSICE_INI_VARS
# Line 77  C       |-- ATM2D_INIT_VARS Line 80  C       |-- ATM2D_INIT_VARS
80  C       |  C       |
81  C       |-- FIZHI_INI_VARS  C       |-- FIZHI_INI_VARS
82  C       |  C       |
83  C       |-- MATRIX_INIT  C       |-- MATRIX_INIT_VARIA
84  C       |  C       |
85  C       |-- RBCS_INIT_VARIA  C       |-- RBCS_INIT_VARIA
86  C       |  C       |
# Line 90  C       | Line 93  C       |
93  C       |-- CHEAPAML_INIT_VARIA  C       |-- CHEAPAML_INIT_VARIA
94  C       |  C       |
95  C       |-- MYPACKAGE_INIT_VARIA  C       |-- MYPACKAGE_INIT_VARIA
96    C       |
97    C       |-- OBCS_INIT_VARIABLES
98    
99  C     !USES:  C     !USES:
100        IMPLICIT NONE        IMPLICIT NONE
# Line 105  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    
# Line 145  C             therefore call CD-ini-vars Line 150  C             therefore call CD-ini-vars
150  C--   Initialize GM/Redi parameterization  C--   Initialize GM/Redi parameterization
151        IF (useGMRedi) THEN        IF (useGMRedi) THEN
152  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
153          IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT',myThid)          IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT_VARIA',myThid)
154  # endif  # endif
155          CALL GMREDI_INIT( myThid )          CALL GMREDI_INIT_VARIA( myThid )
156        ENDIF        ENDIF
157  #endif /* ALLOW_GMREDI */  #endif /* ALLOW_GMREDI */
158    
# Line 157  C--   Initialize GM/Redi parameterizatio Line 162  C--   Initialize GM/Redi parameterizatio
162        ENDIF        ENDIF
163  #endif /* ALLOW_DOWN_SLOPE */  #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
# Line 194  C--   Initialize GGL90 vertical mixing s Line 205  C--   Initialize GGL90 vertical mixing s
205        ENDIF        ENDIF
206  #endif /* ALLOW_GGL90 */  #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.
 cph# ifndef ALLOW_AUTODIFF_TAMC  
219        IF (useSEAICE) THEN        IF (useSEAICE) THEN
 cph# endif  
220  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
221         IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_VARIA',myThid)         IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_VARIA',myThid)
222  # endif  # endif
223         CALL SEAICE_INIT_VARIA( myThid )         CALL SEAICE_INIT_VARIA( myThid )
 cph# ifndef ALLOW_AUTODIFF_TAMC  
224        ENDIF        ENDIF
 cph# endif  
225  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
226    
227  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
# Line 217  cph# endif Line 233  cph# endif
233        ENDIF        ENDIF
234  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
235    
236  cph-- moved further down  #ifdef ALLOW_ICEFRONT
237  cph#ifdef ALLOW_OBCS        IF (useICEFRONT) THEN
238  cphC--   Open boundaries data  # ifdef ALLOW_DEBUG
239  cph      IF (useOBCS) THEN         IF (debugMode) CALL DEBUG_CALL('ICEFRONT_INIT_VARIA',myThid)
240  cph        CALL OBCS_INIT_VARIABLES( myThid )  # endif
241           CALL ICEFRONT_INIT_VARIA( myThid )
242          ENDIF
243    #endif /* ALLOW_ICEFRONT */
244    
245    #ifdef ALLOW_STREAMICE
246    cph      IF (useStreamIce) THEN
247    # ifdef ALLOW_DEBUG
248           IF (debugMode) CALL DEBUG_CALL('STREAMICE_INIT_VARIA',myThid)
249    # endif
250           CALL STREAMICE_INIT_VARIA( myThid )
251  cph      ENDIF  cph      ENDIF
252  cph#endif  #endif /* ALLOW_STREAMICE */
253    
254  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
255  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
# Line 252  cph#endif Line 278  cph#endif
278  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
279        ENDIF        ENDIF
280  # endif  # endif
281  #endif /* ALLOW_RBCS */  #endif /* ALLOW_OFFLINE */
282    
283  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
 # ifndef ALLOW_AUTODIFF_TAMC  
284        IF (useGCHEM) THEN        IF (useGCHEM) THEN
 # endif  
285          CALL GCHEM_INIT_VARI( myThid )          CALL GCHEM_INIT_VARI( myThid )
 # ifndef ALLOW_AUTODIFF_TAMC  
286        ENDIF        ENDIF
 # endif  
287  #endif /* ALLOW_GCHEM */  #endif /* ALLOW_GCHEM */
288    
289  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
# Line 278  cph#endif Line 300  cph#endif
300  #endif /* ALLOW_SMOOTH */  #endif /* ALLOW_SMOOTH */
301    
302  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
303  CADJ STORE theta = tapelev_init, key = 1  CADJ STORE theta  = tapelev_init, key = 1
304  c--   Initialise auxiliary xx_ fields  CADJ STORE salt   = tapelev_init, key = 1
305    # ifdef ALLOW_DIFFKR_CONTROL
306    CADJ STORE diffkr = tapelev_init, key = 1
307    # endif
308    C--   Initialise auxiliary xx_ fields
309        IF (debugMode) CALL DEBUG_CALL('CTRL_INIT_VARIABLES',myThid)        IF (debugMode) CALL DEBUG_CALL('CTRL_INIT_VARIABLES',myThid)
310        CALL CTRL_INIT_VARIABLES ( myThid )        CALL CTRL_INIT_VARIABLES ( myThid )
311  c--   Map the control variables onto the model state.  C--   Map the control variables onto the model state.
312  # ifdef ALLOW_ECCO  # ifdef ALLOW_ECCO
313        IF (debugMode) CALL DEBUG_CALL('CTRL_MAP_INI_ECCO',myThid)        IF (debugMode) CALL DEBUG_CALL('CTRL_MAP_INI_ECCO',myThid)
314        CALL CTRL_MAP_INI_ECCO( myThid )        CALL CTRL_MAP_INI_ECCO( myThid )
# Line 290  c--   Map the control variables onto the Line 316  c--   Map the control variables onto the
316        IF (debugMode) CALL DEBUG_CALL('CTRL_MAP_INI',myThid)        IF (debugMode) CALL DEBUG_CALL('CTRL_MAP_INI',myThid)
317        CALL CTRL_MAP_INI( myThid )        CALL CTRL_MAP_INI( myThid )
318  # endif  # endif
       _BARRIER  
319  #endif /* ALLOW_AUTODIFF */  #endif /* ALLOW_AUTODIFF */
320    
321  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
# Line 311  CADJ STORE theta = tapelev_init, key = 1 Line 336  CADJ STORE theta = tapelev_init, key = 1
336        ENDIF        ENDIF
337  #endif /* ALLOW_EBM */  #endif /* ALLOW_EBM */
338    
 #ifdef ALLOW_COST  
 c--   Initialise the cost function.  
 ceh3 needs an IF ( useCOST ) THEN  
       CALL COST_INIT_VARIA( myThid )  
       _BARRIER  
 #endif /* ALLOW_COST */  
   
339  #ifdef ALLOW_PROFILES  #ifdef ALLOW_PROFILES
340  c--   Initialise the cost function.  C--   Initialise Profiles cost function.
341        CALL PROFILES_INIT_VARIA( myThid )        IF (usePROFILES) THEN
342        _BARRIER          CALL PROFILES_INIT_VARIA( myThid )
343          ENDIF
344  #endif /* ALLOW_PROFILES */  #endif /* ALLOW_PROFILES */
345    
346  #ifdef ALLOW_FLT  #ifdef ALLOW_FLT
347  c--   Initialise float position  C--   Initialise float position
348        IF ( useFLT ) THEN        IF ( useFLT ) THEN
349          CALL FLT_INIT_VARIA( myThid )          CALL FLT_INIT_VARIA( myThid )
350        ENDIF        ENDIF
351  #endif /* ALLOW_FLT */  #endif /* ALLOW_FLT */
352    
 #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 */  
   
353  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
354        IF (useBulkForce) THEN        IF (useBulkForce) THEN
355          CALL BULKF_INIT_VARIA( myThid )          CALL BULKF_INIT_VARIA( myThid )
# Line 411  C Initialize FIZHI state variables Line 420  C Initialize FIZHI state variables
420  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
421          IF (debugMode) CALL DEBUG_CALL('MATRIX_INIT',myThid)          IF (debugMode) CALL DEBUG_CALL('MATRIX_INIT',myThid)
422  # endif  # endif
423          CALL MATRIX_INIT( myThid )          CALL MATRIX_INIT_VARIA( myThid )
424        ENDIF        ENDIF
425  #endif /* ALLOW_MATRIX */  #endif /* ALLOW_MATRIX */
426    
# Line 449  C Initialize FIZHI state variables Line 458  C Initialize FIZHI state variables
458        ENDIF        ENDIF
459  #endif /* ALLOW_MYPACKAGE */  #endif /* ALLOW_MYPACKAGE */
460    
461    #ifdef ALLOW_OBCS
462    C--   put this call in last position (needs to come after few {PKG}_init_varia)
463          IF (useOBCS) THEN
464    # ifdef ALLOW_DEBUG
465            IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_VARIABLES',myThid)
466    # endif
467            CALL OBCS_INIT_VARIABLES( myThid )
468          ENDIF
469    #endif /* ALLOW_OBCS */
470    
471  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
472        IF (debugMode)        IF (debugMode)
473       &     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.90
  ViewVC Help
Powered by ViewVC 1.1.22