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