/[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.67 by jmc, Tue Aug 5 22:02:23 2008 UTC revision 1.68 by jmc, Sun Aug 17 02:07:17 2008 UTC
# Line 28  C       |-- CD_CODE_INI_VARS Line 28  C       |-- CD_CODE_INI_VARS
28  C       |  C       |
29  C       |-- GMREDI_INIT  C       |-- GMREDI_INIT
30  C       |  C       |
31    C       |-- DWNSLP_INIT_VARIA
32    C       |
33  C       |-- KPP_INIT  C       |-- KPP_INIT
34  C       |-- KPP_OPEN_DIAGS  C       |-- KPP_OPEN_DIAGS
35  C       |  C       |
# Line 75  C       |-- RBCS_INIT_VARIA Line 77  C       |-- RBCS_INIT_VARIA
77  C       |  C       |
78  C       |-- REGRID_INIT_VARIA  C       |-- REGRID_INIT_VARIA
79  C       |  C       |
 C       |-- MYPACKAGE_INIT_VARIA  
 C       |  
80  C       |-- SALT_PLUME_INIT_VARIA  C       |-- SALT_PLUME_INIT_VARIA
81  C       |  C       |
82  C       |-- CHEAPAML_INIT_VARIA  C       |-- CHEAPAML_INIT_VARIA
83    C       |
84    C       |-- MYPACKAGE_INIT_VARIA
85    
86  C     !USES:  C     !USES:
87        IMPLICIT NONE        IMPLICIT NONE
# Line 102  CEOP Line 104  CEOP
104  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
105        IF (debugMode)        IF (debugMode)
106       &     CALL DEBUG_ENTER('PACKAGES_INIT_VARIABLES',myThid)       &     CALL DEBUG_ENTER('PACKAGES_INIT_VARIABLES',myThid)
107  #endif  #endif /* ALLOW_DEBUG */
108    
109  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
110        IF ( useDiagnostics ) THEN        IF ( useDiagnostics ) THEN
111          CALL DIAGNOSTICS_INIT_VARIA( myThid )          CALL DIAGNOSTICS_INIT_VARIA( myThid )
112        ENDIF        ENDIF
113  #endif  #endif /* ALLOW_DIAGNOSTICS */
114    
115  #ifdef ALLOW_GENERIC_ADVDIFF  #ifdef ALLOW_GENERIC_ADVDIFF
116  #ifdef ALLOW_DEBUG        IF ( useGAD ) THEN
117        IF (debugMode) CALL DEBUG_CALL('GAD_INIT_VARIA',myThid)  # ifdef ALLOW_DEBUG
118  #endif          IF (debugMode) CALL DEBUG_CALL('GAD_INIT_VARIA',myThid)
119        IF ( useGAD ) CALL GAD_INIT_VARIA( myThid )  # endif
120            CALL GAD_INIT_VARIA( myThid )
121          ENDIF
122  #endif /* ALLOW_GENERIC_ADVDIFF */  #endif /* ALLOW_GENERIC_ADVDIFF */
123    
124  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
125  C--   Initialize CD_CODE variables:  C--   Initialize CD_CODE variables:
126  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),
127  C             therefore call CD-ini-vars before others pkg.  C             therefore call CD-ini-vars before others pkg.
128  #ifdef ALLOW_DEBUG        IF (useCDscheme) THEN
129        IF (debugMode) CALL DEBUG_CALL('CD_CODE_INI',myThid)  # ifdef ALLOW_DEBUG
130  #endif          IF (debugMode) CALL DEBUG_CALL('CD_CODE_INI_VARS',myThid)
131        IF (useCDscheme) CALL CD_CODE_INI_VARS( myThid )  # endif
132  #endif          CALL CD_CODE_INI_VARS( myThid )
133          ENDIF
134    #endif /* ALLOW_CD_CODE */
135    
136  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
137  C--   Initialize GM/Redi parameterization  C--   Initialize GM/Redi parameterization
138  #ifdef ALLOW_DEBUG        IF (useGMRedi) THEN
139        IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT',myThid)  # ifdef ALLOW_DEBUG
140  #endif          IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT',myThid)
141        IF (useGMRedi) CALL GMREDI_INIT( myThid )  # endif
142  #endif          CALL GMREDI_INIT( myThid )
143          ENDIF
144    #endif /* ALLOW_GMREDI */
145    
146    #ifdef ALLOW_DOWN_SLOPE
147          IF ( useDOWN_SLOPE ) THEN
148            CALL DWNSLP_INIT_VARIA( myThid )
149          ENDIF
150    #endif /* ALLOW_DOWN_SLOPE */
151    
152  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
153  C--   Initialize KPP vertical mixing scheme.  C--   Initialize KPP vertical mixing scheme.
154        IF (useKPP) THEN        IF (useKPP) THEN
155  #ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
156         IF (debugMode)         IF (debugMode)
157       &       CALL DEBUG_CALL('KPP_INIT + KPP_OPEN_DIAGS',myThid)       &       CALL DEBUG_CALL('KPP_INIT + KPP_OPEN_DIAGS',myThid)
158  #endif  # endif
159         CALL KPP_INIT( myThid )         CALL KPP_INIT( myThid )
160         CALL KPP_OPEN_DIAGS( myThid )         CALL KPP_OPEN_DIAGS( myThid )
161        ENDIF        ENDIF
162  #endif  #endif /* ALLOW_KPP */
163    
164  #ifdef ALLOW_PP81  #ifdef ALLOW_PP81
165  C--   Initialize PP81 vertical mixing scheme.  C--   Initialize PP81 vertical mixing scheme.
166        IF (usePP81) THEN        IF (usePP81) THEN
167  #ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
168        IF (debugMode) CALL DEBUG_CALL('PP81_INIT',myThid)         IF (debugMode) CALL DEBUG_CALL('PP81_INIT',myThid)
169  #endif  # endif
170         CALL PP81_INIT( myThid )         CALL PP81_INIT( myThid )
171        ENDIF        ENDIF
172  #endif  #endif /* ALLOW_PP81 */
173    
174  #ifdef ALLOW_MY82  #ifdef ALLOW_MY82
175  C--   Initialize MY82 vertical mixing scheme.  C--   Initialize MY82 vertical mixing scheme.
176        IF (useMY82) THEN        IF (useMY82) THEN
177         CALL MY82_INIT_VARIA( myThid )         CALL MY82_INIT_VARIA( myThid )
178        ENDIF        ENDIF
179  #endif  #endif /* ALLOW_MY82 */
180    
181  #ifdef ALLOW_GGL90  #ifdef ALLOW_GGL90
182  C--   Initialize GGL90 vertical mixing scheme.  C--   Initialize GGL90 vertical mixing scheme.
183        IF (useGGL90) THEN        IF (useGGL90) THEN
184  #ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
185        IF (debugMode) CALL DEBUG_CALL('GGL90_INIT',myThid)         IF (debugMode) CALL DEBUG_CALL('GGL90_INIT',myThid)
186  #endif  # endif
187         CALL GGL90_INIT( myThid )         CALL GGL90_INIT( myThid )
188        ENDIF        ENDIF
189  #endif  #endif /* ALLOW_GGL90 */
190    
191  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
192  C--   Initialize SEAICE model.  C--   Initialize SEAICE model.
 # ifdef ALLOW_DEBUG  
       IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_VARIA',myThid)  
 # endif  
193  cph# ifndef ALLOW_AUTODIFF_TAMC  cph# ifndef ALLOW_AUTODIFF_TAMC
194        IF (useSEAICE) THEN        IF (useSEAICE) THEN
195  cph# endif  cph# endif
196    # ifdef ALLOW_DEBUG
197           IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_VARIA',myThid)
198    # endif
199         CALL SEAICE_INIT_VARIA( myThid )         CALL SEAICE_INIT_VARIA( myThid )
200  cph# ifndef ALLOW_AUTODIFF_TAMC  cph# ifndef ALLOW_AUTODIFF_TAMC
201        ENDIF        ENDIF
202  cph# endif  cph# endif
203  #endif  #endif /* ALLOW_SEAICE */
204    
205  cph-- moved further down  cph-- moved further down
206  cph#ifdef ALLOW_OBCS  cph#ifdef ALLOW_OBCS
# Line 200  cph#endif Line 214  cph#endif
214  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
215        IF ( usePTRACERS ) THEN        IF ( usePTRACERS ) THEN
216  # endif  # endif
217  #ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
218        IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_VARIA',myThid)          IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_VARIA',myThid)
219  #endif  # endif
220           CALL PTRACERS_INIT_VARIA( myThid )          CALL PTRACERS_INIT_VARIA( myThid )
 #ifdef ALLOW_GCHEM  
221  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
222           IF (useGCHEM) THEN        ENDIF
223  # endif  # endif
224            CALL GCHEM_INIT_VARI( myThid )  #endif /* ALLOW_PTRACERS */
225    
226    #ifdef ALLOW_GCHEM
227  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
228           ENDIF        IF (useGCHEM) THEN
229  # endif  # endif
230  #endif          CALL GCHEM_INIT_VARI( myThid )
231  # ifndef ALLOW_AUTODIFF_TAMC  # ifndef ALLOW_AUTODIFF_TAMC
232        ENDIF        ENDIF
233  # endif  # endif
234  #endif  #endif /* ALLOW_GCHEM */
235    
236  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
237  #ifdef ALLOW_DEBUG        IF ( useLAND ) THEN
238        IF (debugMode) CALL DEBUG_CALL('LAND_INI_VARS',myThid)  # ifdef ALLOW_DEBUG
239  #endif          IF (debugMode) CALL DEBUG_CALL('LAND_INI_VARS',myThid)
240        IF ( useLAND ) CALL LAND_INI_VARS( myThid )  # endif
241  #endif          CALL LAND_INI_VARS( myThid )
242          ENDIF
243    #endif /* ALLOW_LAND */
244    
245  #ifdef ALLOW_SMOOTH  #ifdef ALLOW_SMOOTH
246        call smooth_init_varia(mythid)        CALL SMOOTH_INIT_VARIA(myThid)
247  #endif  #endif /* ALLOW_SMOOTH */
248    
249  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
250  CADJ STORE theta = tapelev_init, key = 1  CADJ STORE theta = tapelev_init, key = 1
# Line 243  c--   Map the control variables onto the Line 260  c--   Map the control variables onto the
260        CALL CTRL_MAP_INI( myThid )        CALL CTRL_MAP_INI( myThid )
261  # endif  # endif
262        _BARRIER        _BARRIER
263  #endif  #endif /* ALLOW_AUTODIFF */
264    
265  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
266        IF (useEXF) THEN        IF (useEXF) THEN
267  #ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
268        IF (debugMode) CALL DEBUG_CALL('EXF_INIT',myThid)         IF (debugMode) CALL DEBUG_CALL('EXF_INIT',myThid)
269  #endif  # endif
270         CALL EXF_INIT( myThid )         CALL EXF_INIT( myThid )
271        ENDIF        ENDIF
272  #endif  #endif /* ALLOW_EXF */
273    
274  #ifdef ALLOW_EBM  #ifdef ALLOW_EBM
275  # ifdef ALLOW_AUTODIFF  # ifdef ALLOW_AUTODIFF
276  CADJ STORE theta = tapelev_init, key = 1  CADJ STORE theta = tapelev_init, key = 1
277  # endif  # endif
278        IF (useEBM) CALL EBM_INI_VARS( myThid )        IF (useEBM) THEN
279  #endif          CALL EBM_INI_VARS( myThid )
280          ENDIF
281    #endif /* ALLOW_EBM */
282    
283  #ifdef ALLOW_COST  #ifdef ALLOW_COST
284  c--   Initialise the cost function.  c--   Initialise the cost function.
285  ceh3 needs an IF ( useCOST ) THEN  ceh3 needs an IF ( useCOST ) THEN
286        CALL COST_INIT_VARIA( myThid )        CALL COST_INIT_VARIA( myThid )
287        _BARRIER        _BARRIER
288  #endif  #endif /* ALLOW_COST */
289    
290  #ifdef ALLOW_PROFILES  #ifdef ALLOW_PROFILES
291  c--   Initialise the cost function.  c--   Initialise the cost function.
292        CALL PROFILES_INIT_VARIA( myThid )        CALL PROFILES_INIT_VARIA( myThid )
293        _BARRIER        _BARRIER
294  #endif  #endif /* ALLOW_PROFILES */
295    
296  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
297  C--   Open boundaries data  C--   Open boundaries data
298  #ifdef ALLOW_DEBUG        IF (useOBCS) THEN
299        IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_VARIABLES',myThid)  # ifdef ALLOW_DEBUG
300  #endif          IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_VARIABLES',myThid)
301        IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )  # endif
302  #endif          CALL OBCS_INIT_VARIABLES( myThid )
303          ENDIF
304    #endif /* ALLOW_OBCS */
305    
306  #ifdef ALLOW_BULK_FORCE  #ifdef ALLOW_BULK_FORCE
307        IF (useBulkForce) CALL BULKF_INIT_VARIA( myThid)        IF (useBulkForce) THEN
308  #endif          CALL BULKF_INIT_VARIA( myThid )
309          ENDIF
310    #endif /* ALLOW_BULK_FORCE */
311    
312  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
313  #ifdef ALLOW_DEBUG        IF (useThSIce) THEN
314        IF (debugMode) CALL DEBUG_CALL('THSICE_INI_VARS',myThid)  # ifdef ALLOW_DEBUG
315  #endif          IF (debugMode) CALL DEBUG_CALL('THSICE_INI_VARS',myThid)
316        IF (useThSIce) CALL THSICE_INI_VARS( myThid)  # endif
317  #endif          CALL THSICE_INI_VARS( myThid)
318          ENDIF
319    #endif /* ALLOW_THSICE */
320    
321  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
322  #ifdef ALLOW_DEBUG        IF (useCoupler) THEN
323        IF (debugMode) CALL DEBUG_CALL('CPL_INI_VARS',myThid)  # ifdef ALLOW_DEBUG
324  #endif          IF (debugMode) CALL DEBUG_CALL('CPL_INI_VARS',myThid)
325        IF (useCoupler) CALL CPL_INI_VARS( myThid )  # endif
326  #endif          CALL CPL_INI_VARS( myThid )
327          ENDIF
328    #endif /* COMPONENT_MODULE */
329    
330  #ifdef ALLOW_ATM2D  #ifdef ALLOW_ATM2D
331  #ifdef ALLOW_DEBUG        IF (useAtm2d) THEN
332        IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_VARS',myThid)  # ifdef ALLOW_DEBUG
333  #endif          IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_VARS',myThid)
334        IF (useAtm2d) CALL ATM2D_INIT_VARS( myThid )  # endif
335  #endif          CALL ATM2D_INIT_VARS( myThid )
336          ENDIF
337    #endif /* ALLOW_ATM2D */
338    
339  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
340  C Initialize FIZHI state variables  C Initialize FIZHI state variables
341  #ifdef ALLOW_DEBUG        IF (useFIZHI) THEN
342        IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_VARS',myThid)  # ifdef ALLOW_DEBUG
343  #endif          IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_VARS',myThid)
344        IF (useFIZHI) CALL FIZHI_INIT_VARS( myThid )  # endif
345  #endif          CALL FIZHI_INIT_VARS( myThid )
346          ENDIF
347    #endif /* ALLOW_FIZHI */
348    
349  #ifdef ALLOW_MATRIX  #ifdef ALLOW_MATRIX
350  #ifdef ALLOW_DEBUG        IF ( useMATRIX ) THEN
351        IF (debugMode) CALL DEBUG_CALL('MATRIX_INIT',myThid)  # ifdef ALLOW_DEBUG
352  #endif          IF (debugMode) CALL DEBUG_CALL('MATRIX_INIT',myThid)
353        IF ( useMATRIX ) CALL MATRIX_INIT( myThid )  # endif
354  #endif          CALL MATRIX_INIT( myThid )
355          ENDIF
356    #endif /* ALLOW_MATRIX */
357    
358  #ifdef ALLOW_RBCS  #ifdef ALLOW_RBCS
359        IF ( useRBCS ) CALL RBCS_INIT_VARIA( myThid )        IF ( useRBCS ) THEN
360  #endif          CALL RBCS_INIT_VARIA( myThid )
361          ENDIF
362    #endif /* ALLOW_RBCS */
363    
364  #ifdef ALLOW_REGRID  #ifdef ALLOW_REGRID
365        IF ( useREGRID ) CALL REGRID_INIT_VARIA( myThid )        IF ( useREGRID ) THEN
366  #endif          CALL REGRID_INIT_VARIA( myThid )
367          ENDIF
368  #ifdef ALLOW_MYPACKAGE  #endif /* ALLOW_REGRID */
       IF ( useMYPACKAGE ) CALL MYPACKAGE_INIT_VARIA( myThid )  
 #endif  
369    
370  #ifdef ALLOW_SALT_PLUME  #ifdef ALLOW_SALT_PLUME
371        IF ( useSALT_PLUME ) CALL SALT_PLUME_INIT_VARIA( myThid )        IF ( useSALT_PLUME ) THEN
372  #endif          CALL SALT_PLUME_INIT_VARIA( myThid )
373          ENDIF
374    #endif /* ALLOW_SALT_PLUME */
375    
376  #ifdef ALLOW_CHEAPAML  #ifdef ALLOW_CHEAPAML
377        IF (useCheapaml) CALL CHEAPAML_INIT_VARIA( mythid)        IF (useCheapAML) THEN
378  #endif          CALL CHEAPAML_INIT_VARIA( myThid )
379          ENDIF
380    #endif /* ALLOW_CHEAPAML */
381    
382    #ifdef ALLOW_MYPACKAGE
383          IF ( useMYPACKAGE ) THEN
384            CALL MYPACKAGE_INIT_VARIA( myThid )
385          ENDIF
386    #endif /* ALLOW_MYPACKAGE */
387    
388  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
389        IF (debugMode)        IF (debugMode)
390       &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)       &     CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)
391  #endif  #endif /* ALLOW_DEBUG */
392    
393        RETURN        RETURN
394        END        END
Legend:
Removed from v.1.67  
changed lines
  Added in v.1.68
  ViewVC Help
Powered by ViewVC 1.1.22