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