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