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

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

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

Revision 1.100 - (hide annotations) (download)
Tue Feb 21 00:57:47 2017 UTC (7 years, 4 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, HEAD
Changes since 1.99: +4 -4 lines 
rename S/R EXF_INIT to EXF_INIT_INIT_VARIA ;
1 jmc 1.100 C $Header: /u/gcmpack/MITgcm/model/src/packages_init_variables.F,v 1.99 2015/12/25 15:19:30 gforget Exp $
2 edhill 1.24 C $Name: $
3 adcroft 1.2
4 edhill 1.24 #include "PACKAGES_CONFIG.h"
5 adcroft 1.2 #include "CPP_OPTIONS.h"
6 jmc 1.94 #ifdef ALLOW_AUTODIFF
7     # include "AUTODIFF_OPTIONS.h"
8     #endif
9     #ifdef ALLOW_CTRL
10     # include "CTRL_OPTIONS.h"
11     #endif
12 adcroft 1.2
13 cnh 1.8 CBOP
14     C !ROUTINE: PACKAGES_INIT_VARIABLES
15     C !INTERFACE:
16 adcroft 1.2 SUBROUTINE PACKAGES_INIT_VARIABLES( myThid )
17 cnh 1.8
18     C !DESCRIPTION: \bv
19     C *==========================================================*
20 jmc 1.49 C | SUBROUTINE PACKAGES_INIT_VARIABLES
21     C | o Does initialisation of package-related variable data
22 cnh 1.8 C *==========================================================*
23     C \ev
24    
25     C !CALLING SEQUENCE:
26     C PACKAGES_INIT_VARIABLES
27     C |
28 jmc 1.54 C |-- DIAGNOSTICS_INIT_VARIA
29     C |
30 jmc 1.93 C |-- OFFLINE_INIT_VARIA
31     C |
32 jmc 1.91 C |-- GAD_INIT_VARIA
33 jmc 1.58 C |
34 jmc 1.29 C |-- CD_CODE_INI_VARS
35     C |
36 jmc 1.92 C |-- PP81_INIT_VARIA
37     C |
38 jmc 1.95 C |-- KL10_INIT_VARIA
39     C |
40 jmc 1.92 C |-- MY82_INIT_VARIA
41     C |
42     C |-- GGL90_INIT_VARIA
43     C |
44     C |-- KPP_INIT_VARIA
45     C |
46 jmc 1.80 C |-- GMREDI_INIT_VARIA
47 cnh 1.8 C |
48 dimitri 1.81 C |-- BBL_INIT_VARIA
49     C |
50 jmc 1.92 C |-- DWNSLP_INIT_VARIA
51 cnh 1.8 C |
52 jmc 1.100 C |-- EXF_INIT_VARIA
53 mlosch 1.35 C |
54 jmc 1.92 C |-- BULKF_INIT_VARIA
55 mlosch 1.35 C |
56 jmc 1.92 C |-- EBM_INI_VARS
57 mlosch 1.36 C |
58 jmc 1.92 C |-- CHEAPAML_INIT_VARIA
59 dimitri 1.86 C |
60 jmc 1.92 C |-- FLT_INIT_VARIA
61 dimitri 1.77 C |
62 jmc 1.54 C |-- PTRACERS_INIT_VARIA
63 heimbach 1.14 C |
64 jmc 1.91 C |-- LONGSTEP_INIT_VARIA
65     C |
66 jmc 1.54 C |-- GCHEM_INIT_VARI
67 cnh 1.8 C |
68 jmc 1.92 C |-- RBCS_INIT_VARIA
69 jmc 1.19 C |
70 jmc 1.92 C |-- MATRIX_INIT_VARIA
71 jmc 1.91 C |
72 jmc 1.92 C |-- FRAZIL_INIT_VARIA
73 cnh 1.8 C |
74 jmc 1.92 C |-- SEAICE_INIT_VARIA
75 dimitri 1.18 C |
76 jmc 1.92 C |-- SALT_PLUME_INIT_VARIA
77 jmc 1.54 C |
78 jmc 1.92 C |-- SHELFICE_INIT_VARIA
79 jmc 1.54 C |
80 jmc 1.92 C |-- STREAMICE_INIT_VARIA
81 jmc 1.71 C |
82 jmc 1.92 C |-- ICEFRONT_INIT_VARIA
83 cnh 1.8 C |
84 jmc 1.28 C |-- THSICE_INI_VARS
85 jmc 1.30 C |
86 jmc 1.92 C |-- LAND_INI_VARS
87 edhill 1.53 C |
88 jscott 1.55 C |-- ATM2D_INIT_VARS
89     C |
90 jmc 1.91 C |-- ATM_PHYS_INIT_VARIA
91     C |
92 jmc 1.54 C |-- FIZHI_INI_VARS
93     C |
94     C |-- REGRID_INIT_VARIA
95     C |
96 rpa 1.74 C |-- LAYERS_INIT_VARIA
97     C |
98 jmc 1.92 C |-- NEST_CHILD_INIT_VARIA
99     C |-- NEST_PARENT_INIT_VARIA
100 jmc 1.67 C |
101 jmc 1.92 C |-- CPL_INI_VARS
102 jmc 1.68 C |
103     C |-- MYPACKAGE_INIT_VARIA
104 jmc 1.79 C |
105 gforget 1.97 C |-- SMOOTH_INIT_VARIA
106     C |-- PROFILES_INIT_VARIA
107     C |-- ECCO_INIT_VARIA
108 jmc 1.92 C |-- CTRL_INIT_VARIABLES
109     C |
110 jmc 1.79 C |-- OBCS_INIT_VARIABLES
111 cnh 1.8
112     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 jmc 1.94 #ifdef ALLOW_AUTODIFF
119 heimbach 1.34 # include "DYNVARS.h"
120     # include "tamc.h"
121     # include "tamc_keys.h"
122     #endif
123 adcroft 1.2
124 cnh 1.8 C !INPUT/OUTPUT PARAMETERS:
125 adcroft 1.2 C === Routine arguments ===
126 jmc 1.79 C myThid :: my Thread Id number
127 adcroft 1.2 INTEGER myThid
128 cnh 1.8 CEOP
129 jmc 1.29
130 adcroft 1.39 #ifdef ALLOW_DEBUG
131 jmc 1.49 IF (debugMode)
132 edhill 1.40 & CALL DEBUG_ENTER('PACKAGES_INIT_VARIABLES',myThid)
133 jmc 1.68 #endif /* ALLOW_DEBUG */
134 adcroft 1.39
135 molod 1.45 #ifdef ALLOW_DIAGNOSTICS
136     IF ( useDiagnostics ) THEN
137     CALL DIAGNOSTICS_INIT_VARIA( myThid )
138     ENDIF
139 jmc 1.68 #endif /* ALLOW_DIAGNOSTICS */
140 molod 1.45
141 jmc 1.93 #ifdef ALLOW_OFFLINE
142     C-- Here we call OFFLINE_INIT_VARIA (which calls OFFLINE_FIELDS_LOAD)
143     C before other {PKG}_init_varia, closer to where main pickup-file
144     C are usually read-in (but skipped when using pkg/offline)
145 jmc 1.94 # ifndef ALLOW_AUTODIFF
146 jmc 1.93 IF ( useOFFLINE ) THEN
147     # endif
148     CALL OFFLINE_INIT_VARIA( myThid )
149 jmc 1.94 # ifndef ALLOW_AUTODIFF
150 jmc 1.93 ENDIF
151     # endif
152     #endif /* ALLOW_OFFLINE */
153    
154 jmc 1.58 #ifdef ALLOW_GENERIC_ADVDIFF
155 jmc 1.68 IF ( useGAD ) THEN
156     # ifdef ALLOW_DEBUG
157     IF (debugMode) CALL DEBUG_CALL('GAD_INIT_VARIA',myThid)
158     # endif
159     CALL GAD_INIT_VARIA( myThid )
160     ENDIF
161 jmc 1.58 #endif /* ALLOW_GENERIC_ADVDIFF */
162    
163 jmc 1.29 #ifdef ALLOW_CD_CODE
164 jmc 1.49 C-- Initialize CD_CODE variables:
165 jmc 1.29 C- note(jmc): before packaging CD_CODE, was done within ini_fields (=called before),
166     C therefore call CD-ini-vars before others pkg.
167 jmc 1.68 IF (useCDscheme) THEN
168     # ifdef ALLOW_DEBUG
169     IF (debugMode) CALL DEBUG_CALL('CD_CODE_INI_VARS',myThid)
170     # endif
171     CALL CD_CODE_INI_VARS( myThid )
172     ENDIF
173     #endif /* ALLOW_CD_CODE */
174 adcroft 1.2
175 mlosch 1.35 #ifdef ALLOW_PP81
176     C-- Initialize PP81 vertical mixing scheme.
177     IF (usePP81) THEN
178 jmc 1.68 # ifdef ALLOW_DEBUG
179 jmc 1.72 IF (debugMode) CALL DEBUG_CALL('PP81_INIT_VARIA',myThid)
180 jmc 1.68 # endif
181 jmc 1.72 CALL PP81_INIT_VARIA( myThid )
182 mlosch 1.35 ENDIF
183 jmc 1.68 #endif /* ALLOW_PP81 */
184 mlosch 1.35
185 jmc 1.95 #ifdef ALLOW_KL10
186     C-- Initialize KL10 vertical mixing scheme.
187     IF (useKL10) THEN
188     # ifdef ALLOW_DEBUG
189     IF (debugMode) CALL DEBUG_CALL('KL10_INIT_VARIA',myThid)
190     # endif
191     CALL KL10_INIT_VARIA( myThid )
192     ENDIF
193     #endif /* ALLOW_KL10 */
194    
195 mlosch 1.35 #ifdef ALLOW_MY82
196 mlosch 1.36 C-- Initialize MY82 vertical mixing scheme.
197 mlosch 1.35 IF (useMY82) THEN
198 mlosch 1.65 CALL MY82_INIT_VARIA( myThid )
199 mlosch 1.35 ENDIF
200 jmc 1.68 #endif /* ALLOW_MY82 */
201 mlosch 1.35
202 mlosch 1.36 #ifdef ALLOW_GGL90
203     C-- Initialize GGL90 vertical mixing scheme.
204     IF (useGGL90) THEN
205 dfer 1.70 #ifdef ALLOW_DEBUG
206     IF (debugMode) CALL DEBUG_CALL('GGL90_INIT_VARIA',myThid)
207     #endif
208     CALL GGL90_INIT_VARIA( myThid )
209 mlosch 1.36 ENDIF
210 jmc 1.68 #endif /* ALLOW_GGL90 */
211 mlosch 1.36
212 jmc 1.92 #ifdef ALLOW_KPP
213     C-- Initialize KPP vertical mixing scheme.
214     IF (useKPP) THEN
215 dimitri 1.86 # ifdef ALLOW_DEBUG
216 jmc 1.92 IF (debugMode) CALL DEBUG_CALL('KPP_INIT_VARIA',myThid)
217 dimitri 1.86 # endif
218 jmc 1.92 CALL KPP_INIT_VARIA( myThid )
219 dimitri 1.86 ENDIF
220 jmc 1.92 #endif /* ALLOW_KPP */
221 dimitri 1.86
222 jmc 1.92 #ifdef ALLOW_GMREDI
223     C-- Initialize GM/Redi parameterization
224     IF (useGMRedi) THEN
225 jmc 1.68 # ifdef ALLOW_DEBUG
226 jmc 1.92 IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT_VARIA',myThid)
227 jmc 1.68 # endif
228 jmc 1.92 CALL GMREDI_INIT_VARIA( myThid )
229     ENDIF
230     #endif /* ALLOW_GMREDI */
231    
232     #ifdef ALLOW_BBL
233     IF ( useBBL ) THEN
234     CALL BBL_INIT_VARIA( myThid )
235     ENDIF
236     #endif /* ALLOW_BBL */
237    
238     #ifdef ALLOW_DOWN_SLOPE
239     IF ( useDOWN_SLOPE ) THEN
240     CALL DWNSLP_INIT_VARIA( myThid )
241 heimbach 1.61 ENDIF
242 jmc 1.92 #endif /* ALLOW_DOWN_SLOPE */
243 adcroft 1.2
244 jmc 1.92 #ifdef ALLOW_EXF
245     IF (useEXF) THEN
246 mlosch 1.69 # ifdef ALLOW_DEBUG
247 jmc 1.100 IF (debugMode) CALL DEBUG_CALL('EXF_INIT_VARIA',myThid)
248 mlosch 1.69 # endif
249 jmc 1.100 CALL EXF_INIT_VARIA( myThid )
250 jmc 1.92 ENDIF
251     #endif /* ALLOW_EXF */
252    
253     #ifdef ALLOW_BULK_FORCE
254     IF (useBulkForce) THEN
255     CALL BULKF_INIT_VARIA( myThid )
256 mlosch 1.69 ENDIF
257 jmc 1.92 #endif /* ALLOW_BULK_FORCE */
258 mlosch 1.69
259 jmc 1.92 #ifdef ALLOW_EBM
260 jmc 1.94 # ifdef ALLOW_AUTODIFF_TAMC
261 jmc 1.92 CADJ STORE theta = tapelev_init, key = 1
262 dimitri 1.77 # endif
263 jmc 1.92 IF (useEBM) THEN
264     CALL EBM_INI_VARS( myThid )
265     ENDIF
266     #endif /* ALLOW_EBM */
267    
268     #ifdef ALLOW_CHEAPAML
269     IF (useCheapAML) THEN
270     CALL CHEAPAML_INIT_VARIA( myThid )
271     ENDIF
272     #endif /* ALLOW_CHEAPAML */
273    
274     #ifdef ALLOW_FLT
275     C-- Initialise float position
276     IF ( useFLT ) THEN
277     CALL FLT_INIT_VARIA( myThid )
278 dimitri 1.77 ENDIF
279 jmc 1.92 #endif /* ALLOW_FLT */
280 dimitri 1.77
281 adcroft 1.11 #ifdef ALLOW_PTRACERS
282 jmc 1.94 # ifndef ALLOW_AUTODIFF
283 heimbach 1.22 IF ( usePTRACERS ) THEN
284     # endif
285 jmc 1.68 # ifdef ALLOW_DEBUG
286     IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_VARIA',myThid)
287     # endif
288     CALL PTRACERS_INIT_VARIA( myThid )
289 jahn 1.73 # ifdef ALLOW_LONGSTEP
290     # ifdef ALLOW_DEBUG
291     IF (debugMode) CALL DEBUG_CALL('LONGSTEP_INIT_VARIA',myThid)
292     # endif
293     CALL LONGSTEP_INIT_VARIA( myThid )
294     # endif /* ALLOW_LONGSTEP */
295 jmc 1.94 # ifndef ALLOW_AUTODIFF
296 jmc 1.68 ENDIF
297 mlosch 1.41 # endif
298 jmc 1.68 #endif /* ALLOW_PTRACERS */
299    
300     #ifdef ALLOW_GCHEM
301     IF (useGCHEM) THEN
302     CALL GCHEM_INIT_VARI( myThid )
303 heimbach 1.22 ENDIF
304 jmc 1.68 #endif /* ALLOW_GCHEM */
305 jmc 1.19
306 jmc 1.92 #ifdef ALLOW_RBCS
307     IF ( useRBCS ) THEN
308     CALL RBCS_INIT_VARIA( myThid )
309     ENDIF
310     #endif /* ALLOW_RBCS */
311    
312     #ifdef ALLOW_MATRIX
313     IF ( useMATRIX ) THEN
314 jmc 1.68 # ifdef ALLOW_DEBUG
315 jmc 1.92 IF (debugMode) CALL DEBUG_CALL('MATRIX_INIT',myThid)
316 jmc 1.68 # endif
317 jmc 1.92 CALL MATRIX_INIT_VARIA( myThid )
318 jmc 1.68 ENDIF
319 jmc 1.92 #endif /* ALLOW_MATRIX */
320 adcroft 1.2
321 jmc 1.92 #ifdef ALLOW_FRAZIL
322     IF (useFRAZIL) THEN
323     # ifdef ALLOW_DEBUG
324     IF (debugMode) CALL DEBUG_CALL('FRAZIL_INIT_VARIA',myThid)
325 heimbach 1.84 # endif
326 jmc 1.92 CALL FRAZIL_INIT_VARIA( myThid)
327     ENDIF
328     #endif /* ALLOW_FRAZIL */
329 dimitri 1.18
330 jmc 1.92 #ifdef ALLOW_SEAICE
331     C-- Initialize SEAICE model.
332     IF (useSEAICE) THEN
333 jmc 1.68 # ifdef ALLOW_DEBUG
334 jmc 1.92 IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_VARIA',myThid)
335 jmc 1.68 # endif
336 jmc 1.92 CALL SEAICE_INIT_VARIA( myThid )
337 heimbach 1.59 ENDIF
338 jmc 1.92 #endif /* ALLOW_SEAICE */
339 heimbach 1.33
340 jmc 1.92 #ifdef ALLOW_SALT_PLUME
341     IF ( useSALT_PLUME ) THEN
342     CALL SALT_PLUME_INIT_VARIA( myThid )
343 jmc 1.68 ENDIF
344 jmc 1.92 #endif /* ALLOW_SALT_PLUME */
345 heimbach 1.5
346 jmc 1.92 #ifdef ALLOW_SHELFICE
347     IF (useShelfIce) THEN
348     # ifdef ALLOW_DEBUG
349     IF (debugMode) CALL DEBUG_CALL('SHELFICE_INIT_VARIA',myThid)
350     # endif
351     CALL SHELFICE_INIT_VARIA( myThid )
352 gforget 1.87 ENDIF
353 jmc 1.92 #endif /* ALLOW_SHELFICE */
354 heimbach 1.48
355 jmc 1.92 #ifdef ALLOW_STREAMICE
356 jmc 1.96 IF (useStreamIce) THEN
357 jmc 1.92 # ifdef ALLOW_DEBUG
358     IF (debugMode) CALL DEBUG_CALL('STREAMICE_INIT_VARIA',myThid)
359     # endif
360     CALL STREAMICE_INIT_VARIA( myThid )
361 jmc 1.96 ENDIF
362 jmc 1.92 #endif /* ALLOW_STREAMICE */
363 jmc 1.71
364 jmc 1.92 #ifdef ALLOW_ICEFRONT
365     IF (useICEFRONT) THEN
366     # ifdef ALLOW_DEBUG
367     IF (debugMode) CALL DEBUG_CALL('ICEFRONT_INIT_VARIA',myThid)
368     # endif
369     CALL ICEFRONT_INIT_VARIA( myThid )
370 jmc 1.68 ENDIF
371 jmc 1.92 #endif /* ALLOW_ICEFRONT */
372 cheisey 1.16
373 jmc 1.28 #ifdef ALLOW_THSICE
374 jmc 1.68 IF (useThSIce) THEN
375     # ifdef ALLOW_DEBUG
376     IF (debugMode) CALL DEBUG_CALL('THSICE_INI_VARS',myThid)
377     # endif
378     CALL THSICE_INI_VARS( myThid)
379     ENDIF
380     #endif /* ALLOW_THSICE */
381 cheisey 1.16
382 jmc 1.92 #ifdef ALLOW_LAND
383     IF ( useLAND ) THEN
384 jmc 1.68 # ifdef ALLOW_DEBUG
385 jmc 1.92 IF (debugMode) CALL DEBUG_CALL('LAND_INI_VARS',myThid)
386 jmc 1.68 # endif
387 jmc 1.92 CALL LAND_INI_VARS( myThid )
388 jmc 1.68 ENDIF
389 jmc 1.92 #endif /* ALLOW_LAND */
390 molod 1.31
391 jscott 1.55 #ifdef ALLOW_ATM2D
392 jmc 1.68 IF (useAtm2d) THEN
393     # ifdef ALLOW_DEBUG
394     IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_VARS',myThid)
395     # endif
396     CALL ATM2D_INIT_VARS( myThid )
397     ENDIF
398     #endif /* ALLOW_ATM2D */
399 jscott 1.55
400 jmc 1.91 #ifdef ALLOW_ATM_PHYS
401     IF (useAtm_Phys) THEN
402     # ifdef ALLOW_DEBUG
403     IF (debugMode) CALL DEBUG_CALL('ATM_PHYS_INIT_VARIA',myThid)
404     # endif
405     CALL ATM_PHYS_INIT_VARIA( myThid )
406     ENDIF
407     #endif /* ALLOW_ATM_PHYS */
408    
409 molod 1.31 #ifdef ALLOW_FIZHI
410     C Initialize FIZHI state variables
411 jmc 1.68 IF (useFIZHI) THEN
412     # ifdef ALLOW_DEBUG
413     IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_VARS',myThid)
414     # endif
415     CALL FIZHI_INIT_VARS( myThid )
416     ENDIF
417     #endif /* ALLOW_FIZHI */
418 jmc 1.42
419 jmc 1.54 #ifdef ALLOW_REGRID
420 jmc 1.68 IF ( useREGRID ) THEN
421     CALL REGRID_INIT_VARIA( myThid )
422     ENDIF
423     #endif /* ALLOW_REGRID */
424 heimbach 1.51
425 rpa 1.74 #ifdef ALLOW_LAYERS
426 jmc 1.91 IF ( useLayers ) THEN
427     CALL LAYERS_INIT_VARIA( myThid )
428     ENDIF
429 rpa 1.74 #endif /* ALLOW_LAYERS */
430    
431 jmc 1.92 #ifdef ALLOW_NEST_CHILD
432     C-- Initialize NEST in CHILD configuration
433     IF (useNEST_CHILD) THEN
434     #ifdef ALLOW_DEBUG
435     IF (debugMode)
436     & CALL DEBUG_CALL('NEST_CHILD_INIT_VARIA',myThid)
437     #endif
438     CALL NEST_CHILD_INIT_VARIA( myThid )
439     ENDIF
440     #endif /* ALLOW_NEST_CHILD */
441    
442     #ifdef ALLOW_NEST_PARENT
443     C-- Initialize NEST in PARENT configuration
444     IF (useNEST_PARENT) THEN
445     #ifdef ALLOW_DEBUG
446     IF (debugMode)
447     & CALL DEBUG_CALL('NEST_PARENT_INIT',myThid)
448     #endif
449     CALL NEST_PARENT_INIT_VARIA( myThid )
450 jmc 1.68 ENDIF
451 jmc 1.92 #endif /* ALLOW_NEST_PARENT */
452 dimitri 1.63
453 jmc 1.92 #ifdef COMPONENT_MODULE
454     IF (useCoupler) THEN
455     # ifdef ALLOW_DEBUG
456     IF (debugMode) CALL DEBUG_CALL('CPL_INI_VARS',myThid)
457     # endif
458     CALL CPL_INI_VARS( myThid )
459 jmc 1.68 ENDIF
460 jmc 1.92 #endif /* COMPONENT_MODULE */
461 jmc 1.68
462     #ifdef ALLOW_MYPACKAGE
463     IF ( useMYPACKAGE ) THEN
464     CALL MYPACKAGE_INIT_VARIA( myThid )
465     ENDIF
466     #endif /* ALLOW_MYPACKAGE */
467 jmc 1.67
468 jmc 1.94 #ifdef ALLOW_AUTODIFF_TAMC
469 jmc 1.92 CADJ STORE theta = tapelev_init, key = 1
470     CADJ STORE salt = tapelev_init, key = 1
471     # ifdef ALLOW_DIFFKR_CONTROL
472     CADJ STORE diffkr = tapelev_init, key = 1
473     # endif
474 jmc 1.94 #endif /* ALLOW_AUTODIFF_TAMC */
475    
476 gforget 1.97 C-- Initialise pkg/smooth
477     #ifdef ALLOW_SMOOTH
478 gforget 1.99 IF (useSMOOTH) THEN
479     CALL SMOOTH_INIT_VARIA(myThid)
480     ENDIF
481 gforget 1.97 #endif /* ALLOW_SMOOTH */
482    
483     C-- Initialise pkg/profiles
484     #ifdef ALLOW_PROFILES
485     IF (usePROFILES) THEN
486     CALL PROFILES_INIT_VARIA( myThid )
487     ENDIF
488     #endif /* ALLOW_PROFILES */
489    
490     C-- Initialise pkg/ecco (and related pkgs components)
491     #ifdef ALLOW_ECCO
492 gforget 1.98 IF ( useECCO ) CALL ECCO_INIT_VARIA( myThid )
493 gforget 1.97 #endif
494    
495     C-- Initialise pkg/ctl (and related pkgs components)
496     #ifdef ALLOW_CTRL
497 gforget 1.98 IF (useCTRL) THEN
498 gforget 1.97 # ifdef ALLOW_DEBUG
499 gforget 1.98 IF (debugMode) CALL DEBUG_CALL('CTRL_INIT_VARIABLES',myThid)
500 gforget 1.97 # endif
501 gforget 1.98 CALL CTRL_INIT_VARIABLES ( myThid )
502     ENDIF
503     #endif /* ALLOW_CTRL */
504 jmc 1.92
505 jmc 1.79 #ifdef ALLOW_OBCS
506     C-- put this call in last position (needs to come after few {PKG}_init_varia)
507     IF (useOBCS) THEN
508     # ifdef ALLOW_DEBUG
509     IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_VARIABLES',myThid)
510     # endif
511     CALL OBCS_INIT_VARIABLES( myThid )
512     ENDIF
513     #endif /* ALLOW_OBCS */
514    
515 adcroft 1.39 #ifdef ALLOW_DEBUG
516 jmc 1.49 IF (debugMode)
517 edhill 1.40 & CALL DEBUG_LEAVE('PACKAGES_INIT_VARIABLES',myThid)
518 jmc 1.68 #endif /* ALLOW_DEBUG */
519 edhill 1.53
520 adcroft 1.2 RETURN
521     END
  ViewVC Help
Powered by ViewVC 1.1.22