/[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.83 by jmc, Wed May 28 22:01:57 2014 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_INIT_FIXED
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       |
122  C       |-- DIAGNOSTICS_INIT_FIXED  C       |-- DIAGNOSTICS_INIT_FIXED
123    
   
124  C     !USES:  C     !USES:
125        IMPLICIT NONE        IMPLICIT NONE
126  C     === Global variables ===  C     === Global variables ===
# Line 129  CEOP Line 147  CEOP
147        ENDIF        ENDIF
148  #endif  #endif
149    
150    #ifdef ALLOW_CAL
151    C--   Initialise the calendar package.
152          IF ( useCAL ) THEN
153    # ifdef ALLOW_DEBUG
154            IF (debugMode) CALL DEBUG_CALL('CAL_INIT_FIXED',myThid)
155    # endif
156            CALL CAL_INIT_FIXED( myThid )
157          ENDIF
158    #endif /* ALLOW_CAL */
159    
160  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
161        IF ( useDiagnostics ) THEN        IF ( useDiagnostics ) THEN
162  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 198  C--   Initialize fixed params for Moment
198        ENDIF        ENDIF
199  #endif  #endif
200    
201  #ifdef ALLOW_EXF  C--   Initialize fixed arrays for OBCS
202  C--   Initialize fixed arrays for EXF  #ifdef ALLOW_OBCS
203        IF ( useEXF ) THEN        IF (useOBCS) THEN
204  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
205          IF (debugMode) CALL DEBUG_CALL('EXF_INIT_FIXED',myThid)          IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_FIXED',myThid)
206  # endif  # endif
207          CALL EXF_INIT_FIXED( myThid )          CALL OBCS_INIT_FIXED( myThid )
208        ENDIF        ENDIF
209  #endif  #endif
210    
211  #ifdef ALLOW_CHEAPAML  #ifdef ALLOW_SHAP_FILT
212        IF ( useCheapAML ) THEN  C--   Shapiro filter initialisation
213          IF (useSHAP_FILT) THEN
214  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
215          IF (debugMode) CALL DEBUG_CALL('CHEAPAML_INIT_FIXED',myThid)          IF (debugMode) CALL DEBUG_CALL('SHAP_FILT_INIT_FIXED',myThid)
216  # endif  # endif
217          CALL CHEAPAML_INIT_FIXED( myThid )          CALL SHAP_FILT_INIT_FIXED( myThid )
218        ENDIF        ENDIF
219  #endif  #endif
220    
221  #ifdef ALLOW_GMREDI  #ifdef ALLOW_ZONAL_FILT
222  C--   Initialize fixed arrays for GM-Redi  C--   Latitude circle filter initialisation
223        IF ( useGMRedi ) THEN        IF (useZONAL_FILT) THEN
224  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
225          IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT_FIXED',myThid)          IF (debugMode) CALL DEBUG_CALL('ZONAL_FILT_INIT',myThid)
226  # endif  # endif
227          CALL GMREDI_INIT_FIXED( myThid )          CALL ZONAL_FILT_INIT(myThid)
228        ENDIF        ENDIF
229  #endif  #endif
230    
231  #ifdef ALLOW_DOWN_SLOPE  #ifdef ALLOW_EXF
232  C--   Initialize fixed arrays for Down-Slope pkg  C--   Initialize fixed arrays for EXF
233        IF ( useDOWN_SLOPE ) THEN        IF ( useEXF ) THEN
234  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
235          IF (debugMode) CALL DEBUG_CALL('DWNSLP_INIT_FIXED',myThid)          IF (debugMode) CALL DEBUG_CALL('EXF_INIT_FIXED',myThid)
236  # endif  # endif
237          CALL DWNSLP_INIT_FIXED( myThid )          CALL EXF_INIT_FIXED( myThid )
238        ENDIF        ENDIF
239  #endif  #endif
240    
241  #ifdef ALLOW_BBL  #ifdef ALLOW_CHEAPAML
242  C--   Initialize fixed arrays for BBL pkg        IF ( useCheapAML ) THEN
       IF ( useBBL ) THEN  
243  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
244          IF (debugMode) CALL DEBUG_CALL('BBL_INIT_FIXED',myThid)          IF (debugMode) CALL DEBUG_CALL('CHEAPAML_INIT_FIXED',myThid)
245  # endif  # endif
246          CALL BBL_INIT_FIXED( myThid )          CALL CHEAPAML_INIT_FIXED( myThid )
247        ENDIF        ENDIF
248  #endif  #endif
249    
250  #ifdef ALLOW_KPP  #ifdef ALLOW_OPPS
251  C--   Initialize fixed arrays for KPP        IF (useOPPS) THEN
       IF ( useKPP ) THEN  
252  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
253          IF (debugMode) CALL DEBUG_CALL('KPP_INIT_FIXED',myThid)          IF (debugMode) CALL DEBUG_CALL('OPPS_INIT',myThid)
254  # endif  # endif
255          CALL KPP_INIT_FIXED( myThid )          CALL OPPS_INIT( myThid )
256        ENDIF        ENDIF
257  #endif  #endif /* ALLOW_OPPS */
258    
259  #ifdef ALLOW_PP81  #ifdef ALLOW_PP81
260  C--   Initialize fixed arrays for PP81  C--   Initialize fixed arrays for PP81
# Line 259  C--   Initialize fixed arrays for GGL90 Line 286  C--   Initialize fixed arrays for GGL90
286        ENDIF        ENDIF
287  #endif  #endif
288    
289  #ifdef ALLOW_OPPS  #ifdef ALLOW_KPP
290        IF (useOPPS) THEN  C--   Initialize fixed arrays for KPP
291  # 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  
292  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
293          IF (debugMode) CALL DEBUG_CALL('AIM_INITIALISE',myThid)          IF (debugMode) CALL DEBUG_CALL('KPP_INIT_FIXED',myThid)
294  # endif  # endif
295          CALL AIM_INITIALISE( myThid )          CALL KPP_INIT_FIXED( myThid )
296        ENDIF        ENDIF
297  #endif  #endif
298    
299  #ifdef ALLOW_GRIDALT  #ifdef ALLOW_GMREDI
300  C--   Initialise GRIDALT parameters - the alternative grid  C--   Initialize fixed arrays for GM-Redi
301        IF (useGRIDALT) then        IF ( useGMRedi ) THEN
302  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
303          IF (debugMode) CALL DEBUG_CALL('GRIDALT_INITIALISE',myThid)          IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT_FIXED',myThid)
304  # endif  # endif
305          CALL GRIDALT_INITIALISE( myThid )          CALL GMREDI_INIT_FIXED( myThid )
306        ENDIF        ENDIF
307  #endif  #endif
308    
309  #ifdef ALLOW_FIZHI  #ifdef ALLOW_BBL
310  C--   Initialise & Read FIZHI physical parameters  C--   Initialize fixed arrays for BBL pkg
311        IF (useFIZHI) THEN        IF ( useBBL ) THEN
312  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
313          IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_FIXED',myThid)          IF (debugMode) CALL DEBUG_CALL('BBL_INIT_FIXED',myThid)
314  # endif  # endif
315          CALL FIZHI_INIT_FIXED( myThid )          CALL BBL_INIT_FIXED( myThid )
316        ENDIF        ENDIF
317  #endif  #endif
318    
319  #ifdef ALLOW_LAND  #ifdef ALLOW_DOWN_SLOPE
320  C--   Initialise & Read Land package parameters  C--   Initialize fixed arrays for Down-Slope pkg
321        IF (useLand) THEN        IF ( useDOWN_SLOPE ) THEN
322  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
323          IF (debugMode) CALL DEBUG_CALL('LAND_INITIALISE',myThid)          IF (debugMode) CALL DEBUG_CALL('DWNSLP_INIT_FIXED',myThid)
324  # endif  # endif
325          CALL LAND_INITIALISE( myThid )          CALL DWNSLP_INIT_FIXED( myThid )
326        ENDIF        ENDIF
327  #endif  #endif
328    
329  #if (defined (ALLOW_SEAICE) && defined (ALLOW_COST))  #ifdef ALLOW_SEAICE
330  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
331  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
332  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 345  C--   in order to provide the weight fil
345        CALL SMOOTH_INIT_FIXED(myThid)        CALL SMOOTH_INIT_FIXED(myThid)
346  #endif /* ALLOW_SMOOTH */  #endif /* ALLOW_SMOOTH */
347    
348  #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))  #ifdef ALLOW_ECCO
349  C--   Initialise ecco-specific cost function.  C--   Initialise ecco-specific cost function.
350  C--   This needs to preceed the call ctrl_init  C--   This needs to preceed the call ctrl_init
351  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 356  C--   in order to provide the weight fil
356  #endif  #endif
357    
358  #ifdef ALLOW_PROFILES  #ifdef ALLOW_PROFILES
359          IF (usePROFILES) THEN
360  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
361          IF (debugMode) CALL DEBUG_CALL('PROFILES_INIT_FIXED',myThid)          IF (debugMode) CALL DEBUG_CALL('PROFILES_INIT_FIXED',myThid)
362  # endif  # endif
363        CALL PROFILES_INIT_FIXED( myThid )          CALL PROFILES_INIT_FIXED( myThid )
364          ENDIF
365  #endif  #endif
366    
367  #ifdef ALLOW_AUTODIFF  #ifdef ALLOW_AUTODIFF
# Line 446  C--   Initialise fixed array for Float p Line 426  C--   Initialise fixed array for Float p
426        ENDIF        ENDIF
427  #endif  #endif
428    
429  #ifdef ALLOW_THSICE  #ifdef ALLOW_FRAZIL
430        IF (useThSIce) THEN        IF (useFRAZIL) THEN
431  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
432          IF (debugMode) CALL DEBUG_CALL('THSICE_INIT_FIXED',myThid)          IF (debugMode) CALL DEBUG_CALL('FRAZIL_INIT_FIXED',myThid)
433  # endif  # endif
434          CALL THSICE_INIT_FIXED(myThid)          CALL FRAZIL_INIT_FIXED(myThid)
435        ENDIF        ENDIF
436  #endif  #endif
437    
# Line 464  C--   Initialise fixed array for Float p Line 444  C--   Initialise fixed array for Float p
444        ENDIF        ENDIF
445  #endif  #endif
446    
447    #ifdef ALLOW_SALT_PLUME
448          IF (useSALT_PLUME) THEN
449    # ifdef ALLOW_DEBUG
450            IF (debugMode) CALL DEBUG_CALL('SALT_PLUME_INIT_FIXED',myThid)
451    # endif
452            CALL SALT_PLUME_INIT_FIXED(myThid)
453          ENDIF
454    #endif
455    
456  #ifdef ALLOW_SHELFICE  #ifdef ALLOW_SHELFICE
457        IF (useShelfIce) THEN        IF (useShelfIce) THEN
458  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
# Line 473  C--   Initialise fixed array for Float p Line 462  C--   Initialise fixed array for Float p
462        ENDIF        ENDIF
463  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
464    
465    #ifdef ALLOW_STREAMICE
466          IF (useStreamIce) THEN
467    # ifdef ALLOW_DEBUG
468            IF (debugMode) CALL DEBUG_CALL('STREAMICE_INIT_FIXED',myThid)
469    # endif
470           CALL STREAMICE_INIT_FIXED( myThid )
471          ENDIF
472    #endif /* ALLOW_STREAMICE */
473    
474  #ifdef ALLOW_ICEFRONT  #ifdef ALLOW_ICEFRONT
475        IF (useICEFRONT) THEN        IF (useICEFRONT) THEN
476  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
# Line 482  C--   Initialise fixed array for Float p Line 480  C--   Initialise fixed array for Float p
480        ENDIF        ENDIF
481  #endif /* ALLOW_ICEFRONT */  #endif /* ALLOW_ICEFRONT */
482    
483  #ifdef ALLOW_EMBED_FILES  #ifdef ALLOW_THSICE
484        IF ( useEMBED_FILES ) THEN        IF (useThSIce) THEN
485  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
486          IF (debugMode) CALL DEBUG_CALL('EMBED_FILES_INIT',myThid)          IF (debugMode) CALL DEBUG_CALL('THSICE_INIT_FIXED',myThid)
487  # endif  # endif
488          CALL EMBED_FILES_INIT( myThid )          CALL THSICE_INIT_FIXED(myThid)
489          ENDIF
490    #endif
491    
492    #ifdef ALLOW_LAND
493    C--   Initialise Land package
494          IF ( useLand ) THEN
495    # ifdef ALLOW_DEBUG
496            IF (debugMode) CALL DEBUG_CALL('LAND_INIT_FIXED',myThid)
497    # endif
498            CALL LAND_INIT_FIXED( myThid )
499          ENDIF
500    #endif
501    
502    #ifdef ALLOW_ATM2D
503          IF ( useAtm2d ) THEN
504    # ifdef ALLOW_DEBUG
505            IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_FIXED',myThid)
506    # endif
507            CALL ATM2D_INIT_FIXED( myThid )
508          ENDIF
509    #endif
510    
511    #ifdef ALLOW_AIM
512    C--   Initialise & Read AIM physical parameters
513          IF (useAIM) THEN
514    # ifdef ALLOW_DEBUG
515            IF (debugMode) CALL DEBUG_CALL('AIM_INITIALISE',myThid)
516    # endif
517            CALL AIM_INITIALISE( myThid )
518          ENDIF
519    #endif
520    
521    #ifdef ALLOW_ATM_PHYS
522    C--   Initialise Atm_Phys pkg
523          IF ( useAtm_Phys ) THEN
524    # ifdef ALLOW_DEBUG
525            IF (debugMode) CALL DEBUG_CALL('ATM_PHYS_INIT_FIXED',myThid)
526    # endif
527            CALL ATM_PHYS_INIT_FIXED( myThid )
528          ENDIF
529    #endif /* ALLOW_ATM_PHYS */
530    
531    #ifdef ALLOW_FIZHI
532    C--   Initialise & Read FIZHI physical parameters
533          IF (useFIZHI) THEN
534    # ifdef ALLOW_DEBUG
535            IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_FIXED',myThid)
536    # endif
537            CALL FIZHI_INIT_FIXED( myThid )
538          ENDIF
539    #endif
540    
541    #ifdef ALLOW_GRIDALT
542    C--   Initialise GRIDALT parameters - the alternative grid
543          IF (useGRIDALT) then
544    # ifdef ALLOW_DEBUG
545            IF (debugMode) CALL DEBUG_CALL('GRIDALT_INITIALISE',myThid)
546    # endif
547            CALL GRIDALT_INITIALISE( myThid )
548          ENDIF
549    #endif
550    
551    #ifdef ALLOW_TIMEAVE
552    C     IF (useTIMEAVE) THEN
553          IF ( taveFreq.GT.0. ) THEN
554    # ifdef ALLOW_DEBUG
555            IF (debugMode) CALL DEBUG_CALL('TIMEAVE_INIT_FIXED',myThid)
556    # endif
557            CALL TIMEAVE_INIT_FIXED( myThid )
558        ENDIF        ENDIF
559  #endif  #endif
560    
# Line 518  C--   Initialise fixed array for Float p Line 585  C--   Initialise fixed array for Float p
585        ENDIF        ENDIF
586  #endif  #endif
587    
 #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  
   
588  #ifdef ALLOW_OASIS  #ifdef ALLOW_OASIS
589  C--   needs to be called after the OASIS_INIT  C--   needs to be called after the OASIS_INIT
590        IF (useOASIS) THEN        IF (useOASIS) THEN
# Line 546  C--   needs to be called after the OASIS Line 595  C--   needs to be called after the OASIS
595        ENDIF        ENDIF
596  #endif  #endif
597    
598    #ifdef ALLOW_EMBED_FILES
599          IF ( useEMBED_FILES ) THEN
600    # ifdef ALLOW_DEBUG
601            IF (debugMode) CALL DEBUG_CALL('EMBED_FILES_INIT',myThid)
602    # endif
603            CALL EMBED_FILES_INIT( myThid )
604          ENDIF
605    #endif
606    
607  #ifdef ALLOW_MYPACKAGE  #ifdef ALLOW_MYPACKAGE
608        IF (useMYPACKAGE) THEN        IF (useMYPACKAGE) THEN
609  # ifdef ALLOW_DEBUG  # ifdef ALLOW_DEBUG
Legend:
Removed from v.1.76  
changed lines
  Added in v.1.83
  ViewVC Help
Powered by ViewVC 1.1.22