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