/[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.76 by mlosch, Wed Oct 26 09:30:17 2011 UTC revision 1.82 by jmc, Wed May 8 00:06:32 2013 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       |
# Line 30  C       |-- MOM_INIT_FIXED Line 32  C       |-- MOM_INIT_FIXED
32  C       |  C       |
33  C       |-- CD_CODE_INIT_FIXED  C       |-- CD_CODE_INIT_FIXED
34  C       |  C       |
35  C       |-- EXF_INIT_FIXED  C       |-- OBCS_INIT_FIXED
36  C       |  C       |
37  C       |-- CHEAPAML_INIT_FIXED  C       |-- SHAP_FILT_INIT_FIZED
38  C       |  C       |
39  C       |-- GMREDI_INIT_FIXED  C       |-- ZONAL_FILT_INIT
40  C       |  C       |
41  C       |-- DWNSLP_INIT_FIXED  C       |-- EXF_INIT_FIXED
42  C       |  C       |
43  C       |-- BBL_INIT_FIXED  C       |-- CHEAPAML_INIT_FIXED
44  C       |  C       |
45  C       |-- KPP_INIT_FIXED  C       |-- OPPS_INIT
46  C       |  C       |
47  C       |-- PP81_INIT_FIXED  C       |-- PP81_INIT_FIXED
48  C       |  C       |
# Line 48  C       |-- MY82_INIT_FIXED Line 50  C       |-- MY82_INIT_FIXED
50  C       |  C       |
51  C       |-- GGL90_INIT_FIXED  C       |-- GGL90_INIT_FIXED
52  C       |  C       |
53  C       |-- OPPS_INIT  C       |-- KPP_INIT_FIXED
 C       |  
 C       |-- OBCS_INIT_FIXED  
 C       |  
 C       |-- TIMEAVE_INIT_FIXED  
 C       |  
 C       |-- SHAP_FILT_INIT_FIZED  
 C       |  
 C       |-- ZONAL_FILT_INIT  
 C       |  
 C       |-- AIM_INITIALISE  
54  C       |  C       |
55  C       |-- GRIDALT_INITIALISE  C       |-- GMREDI_INIT_FIXED
56  C       |  C       |
57  C       |-- FIZHI_INIT_FIXED  C       |-- BBL_INIT_FIXED
58  C       |  C       |
59  C       |-- LAND_INITIALISE  C       |-- DWNSLP_INIT_FIXED
60  C       |  C       |
61  C       |-- SEAICE_COST_INIT_FIXED  C       |-- SEAICE_COST_INIT_FIXED
62  C       |  C       |
63    C       |-- SMOOTH_INIT_FIXED
64    C       |
65  C       |-- ECCO_COST_INIT_FIXED  C       |-- ECCO_COST_INIT_FIXED
66  C       |  C       |
67  C       |-- PROFILES_INIT_FIXED  C       |-- PROFILES_INIT_FIXED
68  C       |  C       |
69  C       |-- CTRL_INIT  C       |-- CTRL_INIT
70    C       |-- CTRL_ADMTLM
71  C       |  C       |
72  C       |-- FLT_INIT_FIXED  C       |-- FLT_INIT_FIXED
73  C       |  C       |
# Line 82  C       |-- PTRACERS_INIT_FIXED Line 77  C       |-- PTRACERS_INIT_FIXED
77  C       |  C       |
78  C       |-- GCHEM_INIT_FIXED  C       |-- GCHEM_INIT_FIXED
79  C       |  C       |
80  C       |-- THSICE_INIT_FIXED  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       |  C       |
88  C       |-- SHELFICE_INIT_FIXED  C       |-- SHELFICE_INIT_FIXED
89  C       |  C       |
90    C       |-- STREAMICE_INIT_FIXED
91    C       |
92  C       |-- ICEFRONT_INIT_FIXED  C       |-- ICEFRONT_INIT_FIXED
93  C       |  C       |
94  C       |-- CPL_INIT_FIXED  C       |-- THSICE_INIT_FIXED
95    C       |
96    C       |-- LAND_INITIALISE
97  C       |  C       |
98  C       |-- ATM2D_INIT_FIXED  C       |-- ATM2D_INIT_FIXED
99  C       |  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  C       |-- REGRID_INIT_FIXED
111  C       |  C       |
112  C       |-- LAYERS_INIT_FIXED  C       |-- LAYERS_INIT_FIXED
113  C       |  C       |
114  C       |-- SALT_PLUME_INIT_FIXED  C       |-- CPL_INIT_FIXED
115    C       |
116    C       |-- OASIS_INIT_FIXED
117    C       |
118    C       |-- EMBED_FILES_INIT
119  C       |  C       |
120  C       |-- MYPACKAGE_INIT_FIXED  C       |-- MYPACKAGE_INIT_FIXED
121  C       |  C       |
# Line 129  CEOP Line 148  CEOP
148        ENDIF        ENDIF
149  #endif  #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  #ifdef ALLOW_DIAGNOSTICS
162        IF ( useDiagnostics ) THEN        IF ( useDiagnostics ) THEN
163  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
# Line 170  C--   Initialize fixed params for Moment Line 199  C--   Initialize fixed params for Moment
199        ENDIF        ENDIF
200  #endif  #endif
201    
202  #ifdef ALLOW_EXF  C--   Initialize fixed arrays for OBCS
203  C--   Initialize fixed arrays for EXF  #ifdef ALLOW_OBCS
204        IF ( useEXF ) THEN        IF (useOBCS) THEN
205  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
206          IF (debugMode) CALL DEBUG_CALL('EXF_INIT_FIXED',myThid)          IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_FIXED',myThid)
207  # endif  # endif
208          CALL EXF_INIT_FIXED( myThid )          CALL OBCS_INIT_FIXED( myThid )
209        ENDIF        ENDIF
210  #endif  #endif
211    
212  #ifdef ALLOW_CHEAPAML  #ifdef ALLOW_SHAP_FILT
213        IF ( useCheapAML ) THEN  C--   Shapiro filter initialisation
214          IF (useSHAP_FILT) THEN
215  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
216          IF (debugMode) CALL DEBUG_CALL('CHEAPAML_INIT_FIXED',myThid)          IF (debugMode) CALL DEBUG_CALL('SHAP_FILT_INIT_FIXED',myThid)
217  # endif  # endif
218          CALL CHEAPAML_INIT_FIXED( myThid )          CALL SHAP_FILT_INIT_FIXED( myThid )
219        ENDIF        ENDIF
220  #endif  #endif
221    
222  #ifdef ALLOW_GMREDI  #ifdef ALLOW_ZONAL_FILT
223  C--   Initialize fixed arrays for GM-Redi  C--   Latitude circle filter initialisation
224        IF ( useGMRedi ) THEN        IF (useZONAL_FILT) THEN
225  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
226          IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT_FIXED',myThid)          IF (debugMode) CALL DEBUG_CALL('ZONAL_FILT_INIT',myThid)
227  # endif  # endif
228          CALL GMREDI_INIT_FIXED( myThid )          CALL ZONAL_FILT_INIT(myThid)
229        ENDIF        ENDIF
230  #endif  #endif
231    
232  #ifdef ALLOW_DOWN_SLOPE  #ifdef ALLOW_EXF
233  C--   Initialize fixed arrays for Down-Slope pkg  C--   Initialize fixed arrays for EXF
234        IF ( useDOWN_SLOPE ) THEN        IF ( useEXF ) THEN
235  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
236          IF (debugMode) CALL DEBUG_CALL('DWNSLP_INIT_FIXED',myThid)          IF (debugMode) CALL DEBUG_CALL('EXF_INIT_FIXED',myThid)
237  # endif  # endif
238          CALL DWNSLP_INIT_FIXED( myThid )          CALL EXF_INIT_FIXED( myThid )
239        ENDIF        ENDIF
240  #endif  #endif
241    
242  #ifdef ALLOW_BBL  #ifdef ALLOW_CHEAPAML
243  C--   Initialize fixed arrays for BBL pkg        IF ( useCheapAML ) THEN
       IF ( useBBL ) THEN  
244  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
245          IF (debugMode) CALL DEBUG_CALL('BBL_INIT_FIXED',myThid)          IF (debugMode) CALL DEBUG_CALL('CHEAPAML_INIT_FIXED',myThid)
246  # endif  # endif
247          CALL BBL_INIT_FIXED( myThid )          CALL CHEAPAML_INIT_FIXED( myThid )
248        ENDIF        ENDIF
249  #endif  #endif
250    
251  #ifdef ALLOW_KPP  #ifdef ALLOW_OPPS
252  C--   Initialize fixed arrays for KPP        IF (useOPPS) THEN
       IF ( useKPP ) THEN  
253  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
254          IF (debugMode) CALL DEBUG_CALL('KPP_INIT_FIXED',myThid)          IF (debugMode) CALL DEBUG_CALL('OPPS_INIT',myThid)
255  # endif  # endif
256          CALL KPP_INIT_FIXED( myThid )          CALL OPPS_INIT( myThid )
257        ENDIF        ENDIF
258  #endif  #endif /* ALLOW_OPPS */
259    
260  #ifdef ALLOW_PP81  #ifdef ALLOW_PP81
261  C--   Initialize fixed arrays for PP81  C--   Initialize fixed arrays for PP81
# Line 259  C--   Initialize fixed arrays for GGL90 Line 287  C--   Initialize fixed arrays for GGL90
287        ENDIF        ENDIF
288  #endif  #endif
289    
290  #ifdef ALLOW_OPPS  #ifdef ALLOW_KPP
291        IF (useOPPS) THEN  C--   Initialize fixed arrays for KPP
292  # ifdef ALLOW_DEBUG        IF ( useKPP ) THEN
         IF (debugMode) CALL DEBUG_CALL('OPPS_INIT',myThid)  
 # endif  
         CALL OPPS_INIT( myThid )  
       ENDIF  
 #endif /* ALLOW_OPPS */  
   
 C--   Initialize fixed arrays for OBCS  
 #ifdef ALLOW_OBCS  
       IF (useOBCS) THEN  
 # ifdef ALLOW_DEBUG  
         IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_FIXED',myThid)  
 # endif  
         CALL OBCS_INIT_FIXED( myThid )  
       ENDIF  
 #endif  
   
 #ifdef ALLOW_TIMEAVE  
 C     IF (useTIMEAVE) THEN  
       IF ( taveFreq.GT.0. ) THEN  
 # ifdef ALLOW_DEBUG  
         IF (debugMode) CALL DEBUG_CALL('TIMEAVE_INIT_FIXED',myThid)  
 # endif  
         CALL TIMEAVE_INIT_FIXED( myThid )  
       ENDIF  
 #endif  
   
 #ifdef ALLOW_SHAP_FILT  
 C--   Shapiro filter initialisation  
       IF (useSHAP_FILT) THEN  
 # ifdef ALLOW_DEBUG  
         IF (debugMode) CALL DEBUG_CALL('SHAP_FILT_INIT_FIXED',myThid)  
 # endif  
         CALL SHAP_FILT_INIT_FIXED( myThid )  
       ENDIF  
 #endif  
   
 #ifdef ALLOW_ZONAL_FILT  
 C--   Latitude circle filter initialisation  
       IF (useZONAL_FILT) THEN  
 # ifdef ALLOW_DEBUG  
         IF (debugMode) CALL DEBUG_CALL('ZONAL_FILT_INIT',myThid)  
 # endif  
         CALL ZONAL_FILT_INIT(myThid)  
       ENDIF  
 #endif  
   
 #ifdef ALLOW_AIM  
 C--   Initialise & Read AIM physical parameters  
       IF (useAIM) THEN  
293  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
294          IF (debugMode) CALL DEBUG_CALL('AIM_INITIALISE',myThid)          IF (debugMode) CALL DEBUG_CALL('KPP_INIT_FIXED',myThid)
295  # endif  # endif
296          CALL AIM_INITIALISE( myThid )          CALL KPP_INIT_FIXED( myThid )
297        ENDIF        ENDIF
298  #endif  #endif
299    
300  #ifdef ALLOW_GRIDALT  #ifdef ALLOW_GMREDI
301  C--   Initialise GRIDALT parameters - the alternative grid  C--   Initialize fixed arrays for GM-Redi
302        IF (useGRIDALT) then        IF ( useGMRedi ) THEN
303  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
304          IF (debugMode) CALL DEBUG_CALL('GRIDALT_INITIALISE',myThid)          IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT_FIXED',myThid)
305  # endif  # endif
306          CALL GRIDALT_INITIALISE( myThid )          CALL GMREDI_INIT_FIXED( myThid )
307        ENDIF        ENDIF
308  #endif  #endif
309    
310  #ifdef ALLOW_FIZHI  #ifdef ALLOW_BBL
311  C--   Initialise & Read FIZHI physical parameters  C--   Initialize fixed arrays for BBL pkg
312        IF (useFIZHI) THEN        IF ( useBBL ) THEN
313  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
314          IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_FIXED',myThid)          IF (debugMode) CALL DEBUG_CALL('BBL_INIT_FIXED',myThid)
315  # endif  # endif
316          CALL FIZHI_INIT_FIXED( myThid )          CALL BBL_INIT_FIXED( myThid )
317        ENDIF        ENDIF
318  #endif  #endif
319    
320  #ifdef ALLOW_LAND  #ifdef ALLOW_DOWN_SLOPE
321  C--   Initialise & Read Land package parameters  C--   Initialize fixed arrays for Down-Slope pkg
322        IF (useLand) THEN        IF ( useDOWN_SLOPE ) THEN
323  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
324          IF (debugMode) CALL DEBUG_CALL('LAND_INITIALISE',myThid)          IF (debugMode) CALL DEBUG_CALL('DWNSLP_INIT_FIXED',myThid)
325  # endif  # endif
326          CALL LAND_INITIALISE( myThid )          CALL DWNSLP_INIT_FIXED( myThid )
327        ENDIF        ENDIF
328  #endif  #endif
329    
330  #if (defined (ALLOW_SEAICE) && defined (ALLOW_COST))  #ifdef ALLOW_SEAICE
331  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
332  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
333  C--   in order to provide the weight files  C--   in order to provide the weight files
# Line 367  C--   in order to provide the weight fil Line 346  C--   in order to provide the weight fil
346        CALL SMOOTH_INIT_FIXED(myThid)        CALL SMOOTH_INIT_FIXED(myThid)
347  #endif /* ALLOW_SMOOTH */  #endif /* ALLOW_SMOOTH */
348    
349  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))  #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
# Line 378  C--   in order to provide the weight fil Line 357  C--   in order to provide the weight fil
357  #endif  #endif
358    
359  #ifdef ALLOW_PROFILES  #ifdef ALLOW_PROFILES
360          IF (usePROFILES) THEN
361  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
362          IF (debugMode) CALL DEBUG_CALL('PROFILES_INIT_FIXED',myThid)          IF (debugMode) CALL DEBUG_CALL('PROFILES_INIT_FIXED',myThid)
363  # endif  # endif
364        CALL PROFILES_INIT_FIXED( myThid )          CALL PROFILES_INIT_FIXED( myThid )
365          ENDIF
366  #endif  #endif
367    
368  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
# Line 446  C--   Initialise fixed array for Float p Line 427  C--   Initialise fixed array for Float p
427        ENDIF        ENDIF
428  #endif  #endif
429    
430  #ifdef ALLOW_THSICE  #ifdef ALLOW_FRAZIL
431        IF (useThSIce) THEN        IF (useFRAZIL) THEN
432  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
433          IF (debugMode) CALL DEBUG_CALL('THSICE_INIT_FIXED',myThid)          IF (debugMode) CALL DEBUG_CALL('FRAZIL_INIT_FIXED',myThid)
434  # endif  # endif
435          CALL THSICE_INIT_FIXED(myThid)          CALL FRAZIL_INIT_FIXED(myThid)
436        ENDIF        ENDIF
437  #endif  #endif
438    
# Line 464  C--   Initialise fixed array for Float p Line 445  C--   Initialise fixed array for Float p
445        ENDIF        ENDIF
446  #endif  #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  #ifdef ALLOW_SHELFICE
458        IF (useShelfIce) THEN        IF (useShelfIce) THEN
459  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
# Line 473  C--   Initialise fixed array for Float p Line 463  C--   Initialise fixed array for Float p
463        ENDIF        ENDIF
464  #endif /* ALLOW_SHELFICE */  #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  #ifdef ALLOW_ICEFRONT
476        IF (useICEFRONT) THEN        IF (useICEFRONT) THEN
477  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
# Line 482  C--   Initialise fixed array for Float p Line 481  C--   Initialise fixed array for Float p
481        ENDIF        ENDIF
482  #endif /* ALLOW_ICEFRONT */  #endif /* ALLOW_ICEFRONT */
483    
484  #ifdef ALLOW_EMBED_FILES  #ifdef ALLOW_THSICE
485        IF ( useEMBED_FILES ) THEN        IF (useThSIce) THEN
486  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
487          IF (debugMode) CALL DEBUG_CALL('EMBED_FILES_INIT',myThid)          IF (debugMode) CALL DEBUG_CALL('THSICE_INIT_FIXED',myThid)
488  # endif  # endif
489          CALL EMBED_FILES_INIT( myThid )          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        ENDIF
560  #endif  #endif
561    
# Line 518  C--   Initialise fixed array for Float p Line 586  C--   Initialise fixed array for Float p
586        ENDIF        ENDIF
587  #endif  #endif
588    
 #ifdef ALLOW_ATM2D  
       IF ( useAtm2d ) THEN  
 # ifdef ALLOW_DEBUG  
         IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_FIXED',myThid)  
 # endif  
         CALL ATM2D_INIT_FIXED( myThid )  
       ENDIF  
 #endif  
   
 #ifdef ALLOW_SALT_PLUME  
       IF (useSALT_PLUME) THEN  
 # ifdef ALLOW_DEBUG  
         IF (debugMode) CALL DEBUG_CALL('SALT_PLUME_INIT_FIXED',myThid)  
 # endif  
         CALL SALT_PLUME_INIT_FIXED(myThid)  
       ENDIF  
 #endif  
   
589  #ifdef ALLOW_OASIS  #ifdef ALLOW_OASIS
590  C--   needs to be called after the OASIS_INIT  C--   needs to be called after the OASIS_INIT
591        IF (useOASIS) THEN        IF (useOASIS) THEN
# Line 546  C--   needs to be called after the OASIS Line 596  C--   needs to be called after the OASIS
596        ENDIF        ENDIF
597  #endif  #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  #ifdef ALLOW_MYPACKAGE
609        IF (useMYPACKAGE) THEN        IF (useMYPACKAGE) THEN
610  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
Legend:
Removed from v.1.76  
changed lines
  Added in v.1.82
  ViewVC Help
Powered by ViewVC 1.1.22