/[MITgcm]/MITgcm/model/src/packages_init_fixed.F
ViewVC logotype

Diff of /MITgcm/model/src/packages_init_fixed.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.52 by edhill, Tue Aug 15 04:24:03 2006 UTC revision 1.80 by gforget, Fri Jun 22 02:03:03 2012 UTC
# Line 21  C     PACKAGES_INIT_FIXED Line 21  C     PACKAGES_INIT_FIXED
21  C       |  C       |
22  C       |-- RUNCLOCK_INIT  C       |-- RUNCLOCK_INIT
23  C       |  C       |
24    C       |-- CAL_INIT_FIXED
25    C       |
26  C       |-- DIAGNOSTICS_INIT_EARLY  C       |-- DIAGNOSTICS_INIT_EARLY
27  C       |-- DIAGNOSTICS_MAIN_INIT  C       |-- DIAGNOSTICS_MAIN_INIT
28  C       |  C       |
29  C       |-- GAD_INIT  C       |-- GAD_INIT_FIXED
30  C       |  C       |
31  C       |-- MOM_INIT_FIXED  C       |-- MOM_INIT_FIXED
32  C       |  C       |
# Line 32  C       |-- CD_CODE_INIT_FIXED Line 34  C       |-- CD_CODE_INIT_FIXED
34  C       |  C       |
35  C       |-- EXF_INIT_FIXED  C       |-- EXF_INIT_FIXED
36  C       |  C       |
37    C       |-- CHEAPAML_INIT_FIXED
38    C       |
39  C       |-- GMREDI_INIT_FIXED  C       |-- GMREDI_INIT_FIXED
40  C       |  C       |
41    C       |-- DWNSLP_INIT_FIXED
42    C       |
43    C       |-- BBL_INIT_FIXED
44    C       |
45  C       |-- KPP_INIT_FIXED  C       |-- KPP_INIT_FIXED
46  C       |  C       |
47    C       |-- PP81_INIT_FIXED
48    C       |
49    C       |-- MY82_INIT_FIXED
50    C       |
51    C       |-- GGL90_INIT_FIXED
52    C       |
53  C       |-- OPPS_INIT  C       |-- OPPS_INIT
54  C       |  C       |
55  C       |-- OBCS_INIT_FIXED  C       |-- OBCS_INIT_FIXED
56  C       |  C       |
 C       |-- FLT_INIT  
 C       |  
57  C       |-- TIMEAVE_INIT_FIXED  C       |-- TIMEAVE_INIT_FIXED
58  C       |  C       |
59  C       |-- SHAP_FILT_INIT_FIZED  C       |-- SHAP_FILT_INIT_FIZED
# Line 60  C       |-- SEAICE_COST_INIT_FIXED Line 72  C       |-- SEAICE_COST_INIT_FIXED
72  C       |  C       |
73  C       |-- ECCO_COST_INIT_FIXED  C       |-- ECCO_COST_INIT_FIXED
74  C       |  C       |
75    C       |-- PROFILES_INIT_FIXED
76    C       |
77  C       |-- CTRL_INIT  C       |-- CTRL_INIT
78  C       |  C       |
79    C       |-- FLT_INIT_FIXED
80    C       |
81    C       |-- LONGSTEP_INIT_FIXED
82    C       |
83  C       |-- PTRACERS_INIT_FIXED  C       |-- PTRACERS_INIT_FIXED
84  C       |  C       |
85  C       |-- GCHEM_INIT_FIXED  C       |-- GCHEM_INIT_FIXED
86  C       |  C       |
87  C       |-- DIC_INIT_FIXED  C       |-- FRAZIL_INIT_FIXED
88  C       |  C       |
89  C       |-- THSICE_INIT_FIXED  C       |-- THSICE_INIT_FIXED
90  C       |  C       |
91    C       |-- SEAICE_INIT_FIXED
92    C       |
93  C       |-- SHELFICE_INIT_FIXED  C       |-- SHELFICE_INIT_FIXED
94  C       |  C       |
95  C       |-- MYPACKAGE_INIT_FIXED  C       |-- ICEFRONT_INIT_FIXED
96  C       |  C       |
97  C       |-- CPL_INIT_FIXED  C       |-- CPL_INIT_FIXED
98  C       |  C       |
99  C       |-- DIAGNOSTICS_INIT_FIXED  C       |-- ATM2D_INIT_FIXED
100  C       |  C       |
101  C       |-- REGRID_INIT_FIXED  C       |-- REGRID_INIT_FIXED
102    C       |
103    C       |-- LAYERS_INIT_FIXED
104    C       |
105    C       |-- SALT_PLUME_INIT_FIXED
106    C       |
107    C       |-- MYPACKAGE_INIT_FIXED
108    C       |
109    C       |-- DIAGNOSTICS_INIT_FIXED
110    
111    
112  C     !USES:  C     !USES:
113        IMPLICIT NONE        IMPLICIT NONE
# Line 89  C     === Global variables === Line 118  C     === Global variables ===
118    
119  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
120  C     === Routine arguments ===  C     === Routine arguments ===
121  C     myThid -  Number of this instances  C     myThid :: my Thread Id Number
122        INTEGER myThid        INTEGER myThid
123  CEOP  CEOP
124    
125    #ifdef ALLOW_DEBUG
126          IF (debugMode) CALL DEBUG_ENTER('PACKAGES_INIT_FIXED',myThid)
127    #endif
128    
129  #ifdef ALLOW_RUNCLOCK  #ifdef ALLOW_RUNCLOCK
130        IF ( useRunClock ) THEN        IF ( useRunClock ) THEN
131    # ifdef ALLOW_DEBUG
132            IF (debugMode) CALL DEBUG_CALL('RUNCLOCK_INIT',myThid)
133    # endif
134          CALL RUNCLOCK_INIT( myThid )          CALL RUNCLOCK_INIT( myThid )
135        ENDIF        ENDIF
136  #endif  #endif
137    
138    #ifdef ALLOW_CAL
139    C--   Initialise the calendar package.
140          IF ( useCAL ) THEN
141    # ifdef ALLOW_DEBUG
142            IF (debugMode) CALL DEBUG_CALL('CAL_INIT_FIXED',myThid)
143    # endif
144            CALL CAL_INIT_FIXED( myThid )
145          ENDIF
146    #endif /* ALLOW_CAL */
147    
148  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
149        IF ( useDiagnostics ) THEN        IF ( useDiagnostics ) THEN
150  C-    needs to call DIAGNOSTICS_INIT_EARLY before all package-diag-init calls  C-    needs to call DIAGNOSTICS_INIT_EARLY before all package-diag-init calls
151    # ifdef ALLOW_DEBUG
152            IF (debugMode) CALL DEBUG_CALL('DIAGNOSTICS_INIT_EARLY',myThid)
153    # endif
154          CALL DIAGNOSTICS_INIT_EARLY( myThid )          CALL DIAGNOSTICS_INIT_EARLY( myThid )
155    # ifdef ALLOW_DEBUG
156            IF (debugMode) CALL DEBUG_CALL('DIAGNOSTICS_MAIN_INIT',myThid)
157    # endif
158          CALL DIAGNOSTICS_MAIN_INIT( myThid )          CALL DIAGNOSTICS_MAIN_INIT( myThid )
159        ENDIF        ENDIF
160  #endif  #endif
161    
162  #ifdef ALLOW_GENERIC_ADVDIFF  #ifdef ALLOW_GENERIC_ADVDIFF
163  C--   Initialize fixed params for GAD  C--   Initialize fixed params for GAD
164        CALL GAD_INIT( myThid )  # ifdef ALLOW_DEBUG
165            IF (debugMode) CALL DEBUG_CALL('GAD_INIT_FIXED',myThid)
166    # endif
167          CALL GAD_INIT_FIXED( myThid )
168  #endif  #endif
169    
170  #ifdef ALLOW_MOM_COMMON  #ifdef ALLOW_MOM_COMMON
171  C--   Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)  C--   Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)
172        IF ( momStepping ) THEN        IF ( momStepping ) THEN
173         CALL MOM_INIT_FIXED( myThid )  # ifdef ALLOW_DEBUG
174            IF (debugMode) CALL DEBUG_CALL('MOM_INIT_FIXED',myThid)
175    # endif
176            CALL MOM_INIT_FIXED( myThid )
177        ENDIF        ENDIF
178  #endif  #endif
179    
180  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
181        IF (useCDscheme) THEN        IF (useCDscheme) THEN
182         CALL CD_CODE_INIT_FIXED(mythid)  # ifdef ALLOW_DEBUG
183            IF (debugMode) CALL DEBUG_CALL('CD_CODE_INIT_FIXED',myThid)
184    # endif
185            CALL CD_CODE_INIT_FIXED(myThid)
186        ENDIF        ENDIF
187  #endif  #endif
188    
189  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
190  C--   Initialize fixed arrays for EXF  C--   Initialize fixed arrays for EXF
191  c     IF ( useEXF ) THEN        IF ( useEXF ) THEN
192         CALL EXF_INIT_FIXED( myThid )  # ifdef ALLOW_DEBUG
193  c     ENDIF          IF (debugMode) CALL DEBUG_CALL('EXF_INIT_FIXED',myThid)
194    # endif
195            CALL EXF_INIT_FIXED( myThid )
196          ENDIF
197    #endif
198    
199    #ifdef ALLOW_CHEAPAML
200          IF ( useCheapAML ) THEN
201    # ifdef ALLOW_DEBUG
202            IF (debugMode) CALL DEBUG_CALL('CHEAPAML_INIT_FIXED',myThid)
203    # endif
204            CALL CHEAPAML_INIT_FIXED( myThid )
205          ENDIF
206  #endif  #endif
207    
208  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
209  C--   Initialize fixed arrays for GM-Redi  C--   Initialize fixed arrays for GM-Redi
210        IF ( useGMRedi ) THEN        IF ( useGMRedi ) THEN
211         CALL GMREDI_INIT_FIXED( myThid )  # ifdef ALLOW_DEBUG
212            IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT_FIXED',myThid)
213    # endif
214            CALL GMREDI_INIT_FIXED( myThid )
215          ENDIF
216    #endif
217    
218    #ifdef ALLOW_DOWN_SLOPE
219    C--   Initialize fixed arrays for Down-Slope pkg
220          IF ( useDOWN_SLOPE ) THEN
221    # ifdef ALLOW_DEBUG
222            IF (debugMode) CALL DEBUG_CALL('DWNSLP_INIT_FIXED',myThid)
223    # endif
224            CALL DWNSLP_INIT_FIXED( myThid )
225          ENDIF
226    #endif
227    
228    #ifdef ALLOW_BBL
229    C--   Initialize fixed arrays for BBL pkg
230          IF ( useBBL ) THEN
231    # ifdef ALLOW_DEBUG
232            IF (debugMode) CALL DEBUG_CALL('BBL_INIT_FIXED',myThid)
233    # endif
234            CALL BBL_INIT_FIXED( myThid )
235        ENDIF        ENDIF
236  #endif  #endif
237    
238  #ifdef ALLOW_KPP  #ifdef ALLOW_KPP
239  C--   Initialize fixed arrays for KPP  C--   Initialize fixed arrays for KPP
240        IF ( useKPP ) THEN        IF ( useKPP ) THEN
241         CALL KPP_INIT_FIXED( myThid )  # ifdef ALLOW_DEBUG
242            IF (debugMode) CALL DEBUG_CALL('KPP_INIT_FIXED',myThid)
243    # endif
244            CALL KPP_INIT_FIXED( myThid )
245          ENDIF
246    #endif
247    
248    #ifdef ALLOW_PP81
249    C--   Initialize fixed arrays for PP81
250          IF ( usePP81 ) THEN
251    # ifdef ALLOW_DEBUG
252            IF (debugMode) CALL DEBUG_CALL('PP81_INIT_FIXED',myThid)
253    # endif
254            CALL PP81_INIT_FIXED( myThid )
255          ENDIF
256    #endif
257    
258    #ifdef ALLOW_MY82
259    C--   Initialize fixed arrays for MY82
260          IF ( useMY82 ) THEN
261    # ifdef ALLOW_DEBUG
262            IF (debugMode) CALL DEBUG_CALL('MY82_INIT_FIXED',myThid)
263    # endif
264            CALL MY82_INIT_FIXED( myThid )
265          ENDIF
266    #endif
267    
268    #ifdef ALLOW_GGL90
269    C--   Initialize fixed arrays for GGL90
270          IF ( useGGL90 ) THEN
271    # ifdef ALLOW_DEBUG
272            IF (debugMode) CALL DEBUG_CALL('GGL90_INIT_FIXED',myThid)
273    # endif
274            CALL GGL90_INIT_FIXED( myThid )
275        ENDIF        ENDIF
276  #endif  #endif
277    
278  #ifdef ALLOW_OPPS  #ifdef ALLOW_OPPS
279        IF (useOPPS) CALL OPPS_INIT( myThid )        IF (useOPPS) THEN
280    # ifdef ALLOW_DEBUG
281            IF (debugMode) CALL DEBUG_CALL('OPPS_INIT',myThid)
282    # endif
283            CALL OPPS_INIT( myThid )
284          ENDIF
285  #endif /* ALLOW_OPPS */  #endif /* ALLOW_OPPS */
286    
287  C--   Initialize fixed arrays for OBCS  C--   Initialize fixed arrays for OBCS
288  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
289        IF (useOBCS) THEN        IF (useOBCS) THEN
290         CALL OBCS_INIT_FIXED( myThid )  # ifdef ALLOW_DEBUG
291        ENDIF          IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_FIXED',myThid)
292  #endif  # endif
293            CALL OBCS_INIT_FIXED( myThid )
 #ifdef ALLOW_FLT  
 C--   Initialise Float positions  
       IF (useFLT) THEN  
        CALL FLT_INIT(nIter0,startTime,myThid )  
       _BARRIER  
294        ENDIF        ENDIF
295  #endif  #endif
296    
297  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
298  C     IF (useTIMEAVE) THEN  C     IF (useTIMEAVE) THEN
299        IF ( taveFreq.GT.0. ) THEN        IF ( taveFreq.GT.0. ) THEN
300         CALL TIMEAVE_INIT_FIXED( myThid )  # ifdef ALLOW_DEBUG
301            IF (debugMode) CALL DEBUG_CALL('TIMEAVE_INIT_FIXED',myThid)
302    # endif
303            CALL TIMEAVE_INIT_FIXED( myThid )
304        ENDIF        ENDIF
305  #endif  #endif
306    
307  #ifdef ALLOW_SHAP_FILT  #ifdef ALLOW_SHAP_FILT
308  C--   Shapiro filter initialisation  C--   Shapiro filter initialisation
309        IF (useSHAP_FILT) THEN        IF (useSHAP_FILT) THEN
310         CALL SHAP_FILT_INIT_FIXED( myThid )  # ifdef ALLOW_DEBUG
311            IF (debugMode) CALL DEBUG_CALL('SHAP_FILT_INIT_FIXED',myThid)
312    # endif
313            CALL SHAP_FILT_INIT_FIXED( myThid )
314        ENDIF        ENDIF
315  #endif  #endif
316    
317  #ifdef ALLOW_ZONAL_FILT  #ifdef ALLOW_ZONAL_FILT
318  C--   Latitude circle filter initialisation  C--   Latitude circle filter initialisation
319        IF (useZONAL_FILT) THEN        IF (useZONAL_FILT) THEN
320         CALL ZONAL_FILT_INIT(myThid)  # ifdef ALLOW_DEBUG
321        _BARRIER          IF (debugMode) CALL DEBUG_CALL('ZONAL_FILT_INIT',myThid)
322    # endif
323            CALL ZONAL_FILT_INIT(myThid)
324        ENDIF        ENDIF
325  #endif  #endif
326    
327  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
328  C--   Initialise & Read AIM physical parameters  C--   Initialise & Read AIM physical parameters
329        IF (useAIM) CALL AIM_INITIALISE( myThid )        IF (useAIM) THEN
330    # ifdef ALLOW_DEBUG
331            IF (debugMode) CALL DEBUG_CALL('AIM_INITIALISE',myThid)
332    # endif
333            CALL AIM_INITIALISE( myThid )
334          ENDIF
335  #endif  #endif
336    
 C AMM  
337  #ifdef ALLOW_GRIDALT  #ifdef ALLOW_GRIDALT
338  C--   Initialise GRIDALT parameters - the alternative grid  C--   Initialise GRIDALT parameters - the alternative grid
339        IF (useGRIDALT) then        IF (useGRIDALT) then
340         CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)  # ifdef ALLOW_DEBUG
341         CALL GRIDALT_INITIALISE( myThid )          IF (debugMode) CALL DEBUG_CALL('GRIDALT_INITIALISE',myThid)
342         CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',mythid)  # endif
343            CALL GRIDALT_INITIALISE( myThid )
344        ENDIF        ENDIF
   
345  #endif  #endif
346    
347  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
348  C--   Initialise & Read FIZHI physical parameters  C--   Initialise & Read FIZHI physical parameters
349        IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )        IF (useFIZHI) THEN
350    # ifdef ALLOW_DEBUG
351            IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_FIXED',myThid)
352    # endif
353            CALL FIZHI_INIT_FIXED( myThid )
354          ENDIF
355  #endif  #endif
 C AMM  
356    
357  #ifdef ALLOW_LAND  #ifdef ALLOW_LAND
358  C--   Initialise & Read Land package parameters  C--   Initialise & Read Land package parameters
359        IF (useLand) CALL LAND_INITIALISE( myThid )        IF (useLand) THEN
360    # ifdef ALLOW_DEBUG
361            IF (debugMode) CALL DEBUG_CALL('LAND_INITIALISE',myThid)
362    # endif
363            CALL LAND_INITIALISE( myThid )
364          ENDIF
365  #endif  #endif
366    
367  #if (defined (ALLOW_SEAICE) && defined (ALLOW_COST))  #if (defined (ALLOW_SEAICE) && defined (ALLOW_COST))
368  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
369  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
370  C--   in order to provide the weight files  C--   in order to provide the weight files
371        CALL SEAICE_COST_INIT_FIXED( myThid )        IF (useSEAICE) THEN
372    # ifdef ALLOW_DEBUG
373            IF (debugMode) CALL DEBUG_CALL('SEAICE_COST_INIT_FIXED',myThid)
374    # endif
375            CALL SEAICE_COST_INIT_FIXED( myThid )
376          ENDIF
377  #endif  #endif
378    
379    #ifdef ALLOW_SMOOTH
380    # ifdef ALLOW_DEBUG
381            IF (debugMode) CALL DEBUG_CALL('SMOOTH_INIT_FIXED',myThid)
382    # endif
383          CALL SMOOTH_INIT_FIXED(myThid)
384    #endif /* ALLOW_SMOOTH */
385    
386  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
387  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
388  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
389  C--   in order to provide the weight files  C--   in order to provide the weight files
390    # ifdef ALLOW_DEBUG
391            IF (debugMode) CALL DEBUG_CALL('ECCO_COST_INIT_FIXED',myThid)
392    # endif
393        CALL ECCO_COST_INIT_FIXED( myThid )        CALL ECCO_COST_INIT_FIXED( myThid )
394  #endif  #endif
395    
396  #ifdef ALLOW_PROFILES  #ifdef ALLOW_PROFILES
397        CALL PROFILES_INIT_FIXED( myThid )        IF (usePROFILES) THEN
398    # ifdef ALLOW_DEBUG
399            IF (debugMode) CALL DEBUG_CALL('PROFILES_INIT_FIXED',myThid)
400    # endif
401            CALL PROFILES_INIT_FIXED( myThid )
402          ENDIF
403  #endif  #endif
404    
405  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
406  C--   Initialise the control variables  C--   Initialise the control variables
407    # ifdef ALLOW_DEBUG
408            IF (debugMode) CALL DEBUG_CALL('CTRL_INIT',myThid)
409    # endif
410        CALL CTRL_INIT( myThid )        CALL CTRL_INIT( myThid )
411        _BARRIER  #endif
412    
413    #ifdef ALLOW_ADMTLM
414    C--   Initialise ADMTLM
415    # ifdef ALLOW_DEBUG
416            IF (debugMode) CALL DEBUG_CALL('CTRL_ADMTLM',myThid)
417    # endif
418          CALL CTRL_ADMTLM( myThid )
419    #endif
420    
421    #ifdef ALLOW_FLT
422    C--   Initialise fixed array for Float pkg
423          IF ( useFLT ) THEN
424    # ifdef ALLOW_DEBUG
425            IF (debugMode) CALL DEBUG_CALL('FLT_INIT_FIXED',myThid)
426    # endif
427            CALL FLT_INIT_FIXED( myThid )
428          ENDIF
429    #endif
430    
431    #ifdef ALLOW_LONGSTEP
432          IF (usePTRACERS) THEN
433    # ifdef ALLOW_DEBUG
434            IF (debugMode) CALL DEBUG_CALL('LONGSTEP_INIT_FIXED',myThid)
435    # endif
436            CALL LONGSTEP_INIT_FIXED(myThid)
437          ENDIF
438  #endif  #endif
439    
440  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
441        IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)        IF (usePTRACERS) THEN
442    # ifdef ALLOW_DEBUG
443            IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_FIXED',myThid)
444    # endif
445            CALL PTRACERS_INIT_FIXED(myThid)
446          ENDIF
447  #endif  #endif
448    
449  #ifdef ALLOW_GCHEM  #ifdef ALLOW_GCHEM
450        IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)        IF (useGCHEM) THEN
451    # ifdef ALLOW_DEBUG
452            IF (debugMode) CALL DEBUG_CALL('GCHEM_INIT_FIXED',myThid)
453    # endif
454            CALL GCHEM_INIT_FIXED(myThid)
455          ENDIF
456  #endif  #endif
457    
458  #ifdef ALLOW_DIC  #ifdef ALLOW_RBCS
459  C     IF (useDIC)        IF (useRBCS) THEN
460        CALL DIC_INIT_FIXED(mythid)  # ifdef ALLOW_DEBUG
461            IF (debugMode) CALL DEBUG_CALL('RBCS_INIT_FIXED',myThid)
462    # endif
463            CALL RBCS_INIT_FIXED(myThid)
464          ENDIF
465  #endif  #endif
466    
467  #ifdef ALLOW_RBCS  #ifdef ALLOW_FRAZIL
468        IF (useRBCS) CALL RBCS_INIT_FIXED(mythid)        IF (useFRAZIL) THEN
469    # ifdef ALLOW_DEBUG
470            IF (debugMode) CALL DEBUG_CALL('FRAZIL_INIT_FIXED',myThid)
471    # endif
472            CALL FRAZIL_INIT_FIXED(myThid)
473          ENDIF
474  #endif  #endif
475    
476  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
477        IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)        IF (useThSIce) THEN
478    # ifdef ALLOW_DEBUG
479            IF (debugMode) CALL DEBUG_CALL('THSICE_INIT_FIXED',myThid)
480    # endif
481            CALL THSICE_INIT_FIXED(myThid)
482          ENDIF
483    #endif
484    
485    #ifdef ALLOW_SEAICE
486          IF (useSEAICE) THEN
487    # ifdef ALLOW_DEBUG
488            IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_FIXED',myThid)
489    # endif
490            CALL SEAICE_INIT_FIXED(myThid)
491          ENDIF
492  #endif  #endif
493    
494  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
495        IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )        IF (useShelfIce) THEN
496    # ifdef ALLOW_DEBUG
497            IF (debugMode) CALL DEBUG_CALL('SHELFICE_INIT_FIXED',myThid)
498    # endif
499            CALL SHELFICE_INIT_FIXED( myThid )
500          ENDIF
501  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
502    
503  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_ICEFRONT
504        IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(mythid)        IF (useICEFRONT) THEN
505    # ifdef ALLOW_DEBUG
506            IF (debugMode) CALL DEBUG_CALL('ICEFRONT_INIT_FIXED',myThid)
507    # endif
508            CALL ICEFRONT_INIT_FIXED( myThid )
509          ENDIF
510    #endif /* ALLOW_ICEFRONT */
511    
512    #ifdef ALLOW_STREAMICE
513          IF (useStreamIce) THEN
514    # ifdef ALLOW_DEBUG
515            IF (debugMode) CALL DEBUG_CALL('STREAMICE_INIT_FIXED',myThid)
516    # endif
517           CALL STREAMICE_INIT_FIXED( myThid )
518          ENDIF
519    #endif /* ALLOW_STREAMICE */
520    
521    #ifdef ALLOW_EMBED_FILES
522          IF ( useEMBED_FILES ) THEN
523    # ifdef ALLOW_DEBUG
524            IF (debugMode) CALL DEBUG_CALL('EMBED_FILES_INIT',myThid)
525    # endif
526            CALL EMBED_FILES_INIT( myThid )
527          ENDIF
528  #endif  #endif
529    
530    #ifdef ALLOW_REGRID
531          IF ( useREGRID ) THEN
532    # ifdef ALLOW_DEBUG
533            IF (debugMode) CALL DEBUG_CALL('REGRID_INIT_FIXED',myThid)
534    # endif
535            CALL REGRID_INIT_FIXED( myThid )
536          ENDIF
537    #endif
538    
539    #ifdef ALLOW_LAYERS
540          IF ( useLayers ) THEN
541    # ifdef ALLOW_DEBUG
542            IF (debugMode) CALL DEBUG_CALL('LAYERS_INIT_FIXED',myThid)
543    # endif
544            CALL LAYERS_INIT_FIXED( myThid )
545          ENDIF
546    #endif /* ALLOW_LAYERS */
547    
548  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
549        IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )        IF ( useCoupler ) THEN
550    # ifdef ALLOW_DEBUG
551            IF (debugMode) CALL DEBUG_CALL('CPL_INIT_FIXED',myThid)
552    # endif
553            CALL CPL_INIT_FIXED( myThid )
554          ENDIF
555  #endif  #endif
556    
557  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_ATM2D
558  C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls        IF ( useAtm2d ) THEN
559        IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )  # ifdef ALLOW_DEBUG
560            IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_FIXED',myThid)
561    # endif
562            CALL ATM2D_INIT_FIXED( myThid )
563          ENDIF
564  #endif  #endif
565    
566  #ifdef ALLOW_EMBED_FILES  #ifdef ALLOW_SALT_PLUME
567        IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )        IF (useSALT_PLUME) THEN
568    # ifdef ALLOW_DEBUG
569            IF (debugMode) CALL DEBUG_CALL('SALT_PLUME_INIT_FIXED',myThid)
570    # endif
571            CALL SALT_PLUME_INIT_FIXED(myThid)
572          ENDIF
573  #endif  #endif
574    
575  #ifdef ALLOW_REGRID  #ifdef ALLOW_OASIS
576        IF ( useREGRID ) CALL REGRID_INIT_FIXED( mythid )  C--   needs to be called after the OASIS_INIT
577          IF (useOASIS) THEN
578    # ifdef ALLOW_DEBUG
579            IF (debugMode) CALL DEBUG_CALL('OASIS_INIT_FIXED',myThid)
580    # endif
581            CALL OASIS_INIT_FIXED(myThid)
582          ENDIF
583    #endif
584    
585    #ifdef ALLOW_MYPACKAGE
586          IF (useMYPACKAGE) THEN
587    # ifdef ALLOW_DEBUG
588            IF (debugMode) CALL DEBUG_CALL('MYPACKAGE_INIT_FIXED',myThid)
589    # endif
590            CALL MYPACKAGE_INIT_FIXED(myThid)
591          ENDIF
592    #endif
593    
594    #ifdef ALLOW_DIAGNOSTICS
595    C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
596          IF ( useDiagnostics ) THEN
597    # ifdef ALLOW_DEBUG
598            IF (debugMode) CALL DEBUG_CALL('DIAGNOSTICS_INIT_FIXED',myThid)
599    # endif
600            CALL DIAGNOSTICS_INIT_FIXED( myThid )
601          ENDIF
602    #endif
603    
604    #ifdef ALLOW_DEBUG
605          IF (debugMode) CALL DEBUG_LEAVE('PACKAGES_INIT_FIXED',myThid)
606  #endif  #endif
607    
608        RETURN        RETURN
Legend:
Removed from v.1.52  
changed lines
  Added in v.1.80
  ViewVC Help
Powered by ViewVC 1.1.22