/[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.54 by jmc, Tue Aug 15 14:58:32 2006 UTC revision 1.64 by dimitri, Wed Nov 28 09:26:16 2007 UTC
# Line 22  C     PACKAGES_INIT_VARIABLES Line 22  C     PACKAGES_INIT_VARIABLES
22  C       |  C       |
23  C       |-- DIAGNOSTICS_INIT_VARIA  C       |-- DIAGNOSTICS_INIT_VARIA
24  C       |  C       |
25    C       |-- GAD_GAD_INIT_VARIA
26    C       |
27  C       |-- CD_CODE_INI_VARS  C       |-- CD_CODE_INI_VARS
28  C       |  C       |
29  C       |-- GMREDI_INIT  C       |-- GMREDI_INIT
# Line 35  C       |-- MY82_INIT Line 37  C       |-- MY82_INIT
37  C       |  C       |
38  C       |-- GGL90_INIT  C       |-- GGL90_INIT
39  C       |  C       |
40  C       |-- SEAICE_INIT  C       |-- SEAICE_INIT_VARIA
41  C       |  C       |
42  C       |-- PTRACERS_INIT_VARIA  C       |-- PTRACERS_INIT_VARIA
43  C       |  C       |
# Line 49  C       |-- CTRL_MAP_INI Line 51  C       |-- CTRL_MAP_INI
51  C       |  C       |
52  C       |-- EXF_INIT  C       |-- EXF_INIT
53  C       |  C       |
 C       |-- INI_FORCING  
 C       |  
54  C       |-- EBM_INI_VARS  C       |-- EBM_INI_VARS
55  C       |  C       |
56  C       |-- COST_INIT_VARIA  C       |-- COST_INIT_VARIA
# Line 65  C       |-- THSICE_INI_VARS Line 65  C       |-- THSICE_INI_VARS
65  C       |  C       |
66  C       |-- CPL_INI_VARS  C       |-- CPL_INI_VARS
67  C       |  C       |
68    C       |-- ATM2D_INIT_VARS
69    C       |
70  C       |-- FIZHI_INI_VARS  C       |-- FIZHI_INI_VARS
71  C       |  C       |
72  C       |-- MATRIX_INIT  C       |-- MATRIX_INIT
# Line 74  C       | Line 76  C       |
76  C       |-- REGRID_INIT_VARIA  C       |-- REGRID_INIT_VARIA
77  C       |  C       |
78  C       |-- MYPACKAGE_INIT_VARIA  C       |-- MYPACKAGE_INIT_VARIA
79    C       |
80    C       |-- SALT_PLUME_INIT_VARIA
81    
82  C     !USES:  C     !USES:
83        IMPLICIT NONE        IMPLICIT NONE
# Line 104  CEOP Line 108  CEOP
108        ENDIF        ENDIF
109  #endif  #endif
110    
111    #ifdef ALLOW_GENERIC_ADVDIFF
112    #ifdef ALLOW_DEBUG
113          IF (debugMode) CALL DEBUG_CALL('GAD_INIT_VARIA',myThid)
114    #endif
115          IF ( useGAD ) CALL GAD_INIT_VARIA( myThid )
116    #endif /* ALLOW_GENERIC_ADVDIFF */
117    
118  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
119  C--   Initialize CD_CODE variables:  C--   Initialize CD_CODE variables:
120  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),
# Line 117  C             therefore call CD-ini-vars Line 128  C             therefore call CD-ini-vars
128  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
129  C--   Initialize GM/Redi parameterization  C--   Initialize GM/Redi parameterization
130  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
131        IF (debugMode) CALL DEBUG_CALL('CD_CODE_INI',myThid)        IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT',myThid)
132  #endif  #endif
133        IF (useGMRedi) CALL GMREDI_INIT( myThid )        IF (useGMRedi) CALL GMREDI_INIT( myThid )
134  #endif  #endif
# Line 163  C--   Initialize GGL90 vertical mixing s Line 174  C--   Initialize GGL90 vertical mixing s
174    
175  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
176  C--   Initialize SEAICE model.  C--   Initialize SEAICE model.
177  #ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
178        IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT',myThid)        IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_VARIA',myThid)
179  #endif  # endif
180        IF (useSEAICE) CALL SEAICE_INIT( myThid )  cph# ifndef ALLOW_AUTODIFF_TAMC
181          IF (useSEAICE) THEN
182    cph# endif
183           CALL SEAICE_INIT_VARIA( myThid )
184    cph# ifndef ALLOW_AUTODIFF_TAMC
185          ENDIF
186    cph# endif
187  #endif  #endif
188    
189  cph-- moved further down  cph-- moved further down
# Line 189  cph#endif Line 206  cph#endif
206  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
207           IF (useGCHEM) THEN           IF (useGCHEM) THEN
208  # endif  # endif
209            CALL GCHEM_INIT_VARI( mythid )            CALL GCHEM_INIT_VARI( myThid )
210  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
211           ENDIF           ENDIF
212  # endif  # endif
# Line 203  cph#endif Line 220  cph#endif
220  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
221        IF (debugMode) CALL DEBUG_CALL('LAND_INI_VARS',myThid)        IF (debugMode) CALL DEBUG_CALL('LAND_INI_VARS',myThid)
222  #endif  #endif
223        IF ( useLAND ) CALL LAND_INI_VARS( mythid )        IF ( useLAND ) CALL LAND_INI_VARS( myThid )
224    #endif
225    
226    #ifdef ALLOW_SMOOTH
227          call smooth_init_varia(mythid)
228  #endif  #endif
229    
230  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
231  CADJ STORE theta = tapelev_init, key = 1  CADJ STORE theta = tapelev_init, key = 1
232  c--   Initialise auxiliary xx_ fields  c--   Initialise auxiliary xx_ fields
233        CALL CTRL_INIT_VARIABLES ( mythid )        CALL CTRL_INIT_VARIABLES ( myThid )
234  c--   Map the control variables onto the model state.  c--   Map the control variables onto the model state.
235  # ifdef ALLOW_ECCO  # ifdef ALLOW_ECCO
236        CALL CTRL_MAP_INI_ECCO( mythid )        CALL CTRL_MAP_INI_ECCO( myThid )
237  # else  # else
238        CALL CTRL_MAP_INI( mythid )        CALL CTRL_MAP_INI( myThid )
239  # endif  # endif
240        _BARRIER        _BARRIER
241  #endif  #endif
242    
243  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
244          IF (useEXF) THEN
245  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
246        IF (debugMode) CALL DEBUG_CALL('EXF_INIT',myThid)        IF (debugMode) CALL DEBUG_CALL('EXF_INIT',myThid)
247  #endif  #endif
248        CALL EXF_INIT( mythid )         CALL EXF_INIT( myThid )
249  #endif        ENDIF
   
 #ifdef ALLOW_DEBUG  
       IF (debugMode) CALL DEBUG_CALL('INI_FORCING',myThid)  
250  #endif  #endif
       CALL INI_FORCING( mythid )  
251    
252  #ifdef ALLOW_EBM  #ifdef ALLOW_EBM
253  # ifdef ALLOW_AUTODIFF  # ifdef ALLOW_AUTODIFF
254  CADJ STORE theta = tapelev_init, key = 1  CADJ STORE theta = tapelev_init, key = 1
255  # endif  # endif
256        IF (useEBM) CALL EBM_INI_VARS( mythid )        IF (useEBM) CALL EBM_INI_VARS( myThid )
257  #endif  #endif
258    
259  #ifdef ALLOW_COST  #ifdef ALLOW_COST
260  c--   Initialise the cost function.  c--   Initialise the cost function.
261  ceh3 needs an IF ( useCOST ) THEN  ceh3 needs an IF ( useCOST ) THEN
262        CALL COST_INIT_VARIA( mythid )        CALL COST_INIT_VARIA( myThid )
263        _BARRIER        _BARRIER
264  #endif  #endif
265    
266  #ifdef ALLOW_PROFILES  #ifdef ALLOW_PROFILES
267  c--   Initialise the cost function.  c--   Initialise the cost function.
268        CALL PROFILES_INIT_VARIA( mythid )        CALL PROFILES_INIT_VARIA( myThid )
269        _BARRIER        _BARRIER
270  #endif  #endif
271    
# Line 260  C--   Open boundaries data Line 278  C--   Open boundaries data
278  #endif  #endif
279    
280  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
281        IF (useBulkForce) CALL BULKF_INIT_VARIA( mythid)        IF (useBulkForce) CALL BULKF_INIT_VARIA( myThid)
282  #endif  #endif
283    
284  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
285  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
286        IF (debugMode) CALL DEBUG_CALL('THSICE_INI_VARS',myThid)        IF (debugMode) CALL DEBUG_CALL('THSICE_INI_VARS',myThid)
287  #endif  #endif
288        IF (useThSIce) CALL THSICE_INI_VARS( mythid)        IF (useThSIce) CALL THSICE_INI_VARS( myThid)
289  #endif  #endif
290    
291  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
292  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
293        IF (debugMode) CALL DEBUG_CALL('CPL_INI_VARS',myThid)        IF (debugMode) CALL DEBUG_CALL('CPL_INI_VARS',myThid)
294  #endif  #endif
295        IF (useCoupler) CALL CPL_INI_VARS( mythid )        IF (useCoupler) CALL CPL_INI_VARS( myThid )
296    #endif
297    
298    #ifdef ALLOW_ATM2D
299    #ifdef ALLOW_DEBUG
300          IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_VARS',myThid)
301    #endif
302          IF (useAtm2d) CALL ATM2D_INIT_VARS( myThid )
303  #endif  #endif
304    
305  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
# Line 282  C Initialize FIZHI state variables Line 307  C Initialize FIZHI state variables
307  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
308        IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_VARS',myThid)        IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_VARS',myThid)
309  #endif  #endif
310        IF (useFIZHI) CALL FIZHI_INIT_VARS( mythid )        IF (useFIZHI) CALL FIZHI_INIT_VARS( myThid )
311  #endif  #endif
312    
313  #ifdef ALLOW_MATRIX  #ifdef ALLOW_MATRIX
# Line 304  C Initialize FIZHI state variables Line 329  C Initialize FIZHI state variables
329        IF ( useMYPACKAGE ) CALL MYPACKAGE_INIT_VARIA( myThid )        IF ( useMYPACKAGE ) CALL MYPACKAGE_INIT_VARIA( myThid )
330  #endif  #endif
331    
332    #ifdef ALLOW_SALT_PLUME
333          IF ( useSALT_PLUME ) CALL SALT_PLUME_INIT_VARIA( myThid )
334    #endif
335    
336  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
337        IF (debugMode)        IF (debugMode)
338       &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)       &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)
Legend:
Removed from v.1.54  
changed lines
  Added in v.1.64
  ViewVC Help
Powered by ViewVC 1.1.22