/[MITgcm]/MITgcm/model/src/packages_init_fixed.F
ViewVC logotype

Annotation of /MITgcm/model/src/packages_init_fixed.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

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