model/src/packages_init_fixed.F

C $Header: /u/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.67 2009/01/31 22:22:25 jmc Exp $
C $Name:  $

#include "PACKAGES_CONFIG.h"
#include "CPP_OPTIONS.h"

CBOP
C     !ROUTINE: PACKAGES_INIT_FIXED
C     !INTERFACE:
      SUBROUTINE PACKAGES_INIT_FIXED( myThid )

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | SUBROUTINE PACKAGES_INIT_FIXED
C     | o Does initialisation of package-related fixed fields
C     *==========================================================*
C     \ev

C     !CALLING SEQUENCE:
C     PACKAGES_INIT_FIXED
C       |
C       |-- RUNCLOCK_INIT
C       |
C       |-- DIAGNOSTICS_INIT_EARLY
C       |-- DIAGNOSTICS_MAIN_INIT
C       |
C       |-- GAD_INIT
C       |
C       |-- MOM_INIT_FIXED
C       |
C       |-- CD_CODE_INIT_FIXED
C       |
C       |-- EXF_INIT_FIXED
C       |
C       |-- GMREDI_INIT_FIXED
C       |
C       |-- DWNSLP_INIT_FIXED
C       |
C       |-- KPP_INIT_FIXED
C       |
C       |-- MY82_INIT_FIXED
C       |
C       |-- GGL90_INIT_FIXED
C       |
C       |-- OPPS_INIT
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
C       |
C       |-- GRIDALT_INITIALISE
C       |
C       |-- FIZHI_INIT_FIXED
C       |
C       |-- LAND_INITIALISE
C       |
C       |-- SEAICE_COST_INIT_FIXED
C       |
C       |-- ECCO_COST_INIT_FIXED
C       |
C       |-- PROFILES_INIT_FIXED
C       |
C       |-- CTRL_INIT
C       |
C       |-- FLT_INIT_FIXED
C       |
C       |-- LONGSTEP_INIT_FIXED
C       |
C       |-- PTRACERS_INIT_FIXED
C       |
C       |-- GCHEM_INIT_FIXED
C       |
C       |-- THSICE_INIT_FIXED
C       |
C       |-- SHELFICE_INIT_FIXED
C       |
C       |-- CPL_INIT_FIXED
C       |
C       |-- ATM2D_INIT_FIXED
C       |
C       |-- REGRID_INIT_FIXED
C       |
C       |-- SALT_PLUME_INIT_FIXED
C       |
C       |-- MYPACKAGE_INIT_FIXED
C       |
C       |-- DIAGNOSTICS_INIT_FIXED

C     !USES:
      IMPLICIT NONE
C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     !INPUT/OUTPUT PARAMETERS:
C     === Routine arguments ===
C     myThid -  Number of this instances
      INTEGER myThid
CEOP

#ifdef ALLOW_RUNCLOCK
      IF ( useRunClock ) THEN
        CALL RUNCLOCK_INIT( myThid )
      ENDIF
#endif

#ifdef ALLOW_DIAGNOSTICS
      IF ( useDiagnostics ) THEN
C-    needs to call DIAGNOSTICS_INIT_EARLY before all package-diag-init calls
        CALL DIAGNOSTICS_INIT_EARLY( myThid )
        CALL DIAGNOSTICS_MAIN_INIT( myThid )
      ENDIF
#endif

#ifdef ALLOW_GENERIC_ADVDIFF
C--   Initialize fixed params for GAD
      CALL GAD_INIT_FIXED( myThid )
#endif

#ifdef ALLOW_MOM_COMMON
C--   Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)
      IF ( momStepping ) THEN
       CALL MOM_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_CD_CODE
      IF (useCDscheme) THEN
       CALL CD_CODE_INIT_FIXED(myThid)
      ENDIF
#endif

#ifdef ALLOW_EXF
C--   Initialize fixed arrays for EXF
      IF ( useEXF ) THEN
       CALL EXF_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_GMREDI
C--   Initialize fixed arrays for GM-Redi
      IF ( useGMRedi ) THEN
       CALL GMREDI_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_DOWN_SLOPE
C--   Initialize fixed arrays for Down-Slope pkg
      IF ( useDOWN_SLOPE ) THEN
       CALL DWNSLP_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_KPP
C--   Initialize fixed arrays for KPP
      IF ( useKPP ) THEN
       CALL KPP_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_MY82
C--   Initialize fixed arrays for MY82
      IF ( useMY82 ) THEN
       CALL MY82_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_GGL90
C--   Initialize fixed arrays for GGL90
      IF ( useGGL90 ) THEN
       CALL GGL90_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_OPPS
      IF (useOPPS) CALL OPPS_INIT( myThid )
#endif /* ALLOW_OPPS */

C--   Initialize fixed arrays for OBCS
#ifdef ALLOW_OBCS
      IF (useOBCS) THEN
       CALL OBCS_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_TIMEAVE
C     IF (useTIMEAVE) THEN
      IF ( taveFreq.GT.0. ) THEN
       CALL TIMEAVE_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_SHAP_FILT
C--   Shapiro filter initialisation
      IF (useSHAP_FILT) THEN
       CALL SHAP_FILT_INIT_FIXED( myThid )
      ENDIF
#endif

#ifdef ALLOW_ZONAL_FILT
C--   Latitude circle filter initialisation
      IF (useZONAL_FILT) THEN
       CALL ZONAL_FILT_INIT(myThid)
      ENDIF
#endif

#ifdef ALLOW_AIM
C--   Initialise & Read AIM physical parameters
      IF (useAIM) CALL AIM_INITIALISE( myThid )
#endif

C AMM
#ifdef ALLOW_GRIDALT
C--   Initialise GRIDALT parameters - the alternative grid
      IF (useGRIDALT) then
       CALL TIMER_START('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',myThid)
       CALL GRIDALT_INITIALISE( myThid )
       CALL TIMER_STOP ('GRIDALT_INITIALISE  [PACKAGES_INIT_F]',myThid)
      ENDIF

#endif

#ifdef ALLOW_FIZHI
C--   Initialise & Read FIZHI physical parameters
      IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
#endif
C AMM

#ifdef ALLOW_LAND
C--   Initialise & Read Land package parameters
      IF (useLand) CALL LAND_INITIALISE( myThid )
#endif

#if (defined (ALLOW_SEAICE) && defined (ALLOW_COST))
C--   Initialise ecco-specific cost function.
C--   This needs to preceed the call ctrl_init
C--   in order to provide the weight files
      IF (useSEAICE) CALL SEAICE_COST_INIT_FIXED( myThid )
#endif

#if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
C--   Initialise ecco-specific cost function.
C--   This needs to preceed the call ctrl_init
C--   in order to provide the weight files
      CALL ECCO_COST_INIT_FIXED( myThid )
#endif

#ifdef ALLOW_PROFILES
      CALL PROFILES_INIT_FIXED( myThid )
#endif

#ifdef ALLOW_AUTODIFF
C--   Initialise the control variables
      CALL CTRL_INIT( myThid )
#endif

#ifdef ALLOW_ADMTLM
C--   Initialise ADMTLM
      CALL CTRL_ADMTLM( myThid )
#endif

#ifdef ALLOW_FLT
C--   Initialise fixed array for Float pkg
      IF ( useFLT ) CALL FLT_INIT_FIXED( myThid )
#endif

#ifdef ALLOW_LONGSTEP
      IF (usePTRACERS) CALL LONGSTEP_INIT_FIXED(myThid)
#endif

#ifdef ALLOW_PTRACERS
      IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)
#endif

#ifdef ALLOW_GCHEM
      IF (useGCHEM) CALL GCHEM_INIT_FIXED(myThid)
#endif

#ifdef ALLOW_RBCS
      IF (useRBCS) CALL RBCS_INIT_FIXED(myThid)
#endif

#ifdef ALLOW_THSICE
      IF (useThSIce) CALL THSICE_INIT_FIXED(myThid)
#endif

#ifdef ALLOW_SEAICE
      IF (useSEAICE) CALL SEAICE_INIT_FIXED(myThid)
#endif

#ifdef ALLOW_SHELFICE
      IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )
#endif /* ALLOW_SHELFICE */

#ifdef ALLOW_EMBED_FILES
      IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( myThid )
#endif

#ifdef ALLOW_REGRID
      IF ( useREGRID ) CALL REGRID_INIT_FIXED( myThid )
#endif

#ifdef COMPONENT_MODULE
      IF ( useCoupler ) CALL CPL_INIT_FIXED( myThid )
#endif

#ifdef ALLOW_ATM2D
      IF ( useAtm2d ) CALL ATM2D_INIT_FIXED( myThid )
#endif

#ifdef ALLOW_SALT_PLUME
      IF (useSALT_PLUME) CALL SALT_PLUME_INIT_FIXED(myThid)
#endif

#ifdef ALLOW_MYPACKAGE
      IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(myThid)
#endif

#ifdef ALLOW_DIAGNOSTICS
C-    needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
      IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
#endif

      RETURN
      END
1	jahn	1.68	C $Header: /u/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.67 2009/01/31 22:22:25 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.5	C \|-- GAD_INIT
28			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.35	C \|-- GMREDI_INIT_FIXED
36			C \|
37	jmc	1.64	C \|-- DWNSLP_INIT_FIXED
38			C \|
39	dimitri	1.37	C \|-- KPP_INIT_FIXED
40			C \|
41	mlosch	1.63	C \|-- MY82_INIT_FIXED
42			C \|
43	dfer	1.65	C \|-- GGL90_INIT_FIXED
44			C \|
45	jmc	1.35	C \|-- OPPS_INIT
46			C \|
47	cnh	1.4	C \|-- OBCS_INIT_FIXED
48			C \|
49	jmc	1.34	C \|-- TIMEAVE_INIT_FIXED
50			C \|
51	jmc	1.36	C \|-- SHAP_FILT_INIT_FIZED
52			C \|
53	jmc	1.6	C \|-- ZONAL_FILT_INIT
54	jmc	1.7	C \|
55			C \|-- AIM_INITIALISE
56			C \|
57	jmc	1.25	C \|-- GRIDALT_INITIALISE
58			C \|
59			C \|-- FIZHI_INIT_FIXED
60			C \|
61	jmc	1.7	C \|-- LAND_INITIALISE
62	jmc	1.25	C \|
63	jmc	1.44	C \|-- SEAICE_COST_INIT_FIXED
64			C \|
65	jmc	1.25	C \|-- ECCO_COST_INIT_FIXED
66			C \|
67	jmc	1.67	C \|-- PROFILES_INIT_FIXED
68			C \|
69	jmc	1.25	C \|-- CTRL_INIT
70			C \|
71	jmc	1.67	C \|-- FLT_INIT_FIXED
72			C \|
73	jahn	1.68	C \|-- LONGSTEP_INIT_FIXED
74			C \|
75	jmc	1.49	C \|-- PTRACERS_INIT_FIXED
76	jmc	1.34	C \|
77	jmc	1.25	C \|-- GCHEM_INIT_FIXED
78			C \|
79	jmc	1.35	C \|-- THSICE_INIT_FIXED
80	mlosch	1.27	C \|
81	mlosch	1.47	C \|-- SHELFICE_INIT_FIXED
82			C \|
83	jmc	1.34	C \|-- CPL_INIT_FIXED
84			C \|
85	jscott	1.54	C \|-- ATM2D_INIT_FIXED
86			C \|
87	dimitri	1.60	C \|-- REGRID_INIT_FIXED
88			C \|
89			C \|-- SALT_PLUME_INIT_FIXED
90			C \|
91	jmc	1.64	C \|-- MYPACKAGE_INIT_FIXED
92			C \|
93	jmc	1.34	C \|-- DIAGNOSTICS_INIT_FIXED
94	cnh	1.4
95			C !USES:
96	adcroft	1.2	IMPLICIT NONE
97			C === Global variables ===
98			#include "SIZE.h"
99			#include "EEPARAMS.h"
100			#include "PARAMS.h"
101
102	cnh	1.4	C !INPUT/OUTPUT PARAMETERS:
103	adcroft	1.2	C === Routine arguments ===
104			C myThid - Number of this instances
105			INTEGER myThid
106	cnh	1.4	CEOP
107	edhill	1.21
108	adcroft	1.39	#ifdef ALLOW_RUNCLOCK
109			IF ( useRunClock ) THEN
110			CALL RUNCLOCK_INIT( myThid )
111			ENDIF
112			#endif
113
114	jmc	1.33	#ifdef ALLOW_DIAGNOSTICS
115			IF ( useDiagnostics ) THEN
116	jmc	1.51	C- needs to call DIAGNOSTICS_INIT_EARLY before all package-diag-init calls
117	jmc	1.33	CALL DIAGNOSTICS_INIT_EARLY( myThid )
118			CALL DIAGNOSTICS_MAIN_INIT( myThid )
119			ENDIF
120			#endif
121
122	jmc	1.32	#ifdef ALLOW_GENERIC_ADVDIFF
123	edhill	1.21	C-- Initialize fixed params for GAD
124	jmc	1.57	CALL GAD_INIT_FIXED( myThid )
125	jmc	1.32	#endif
126	adcroft	1.2
127	jmc	1.44	#ifdef ALLOW_MOM_COMMON
128			C-- Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)
129			IF ( momStepping ) THEN
130			CALL MOM_INIT_FIXED( myThid )
131			ENDIF
132			#endif
133
134	jmc	1.35	#ifdef ALLOW_CD_CODE
135			IF (useCDscheme) THEN
136	jmc	1.62	CALL CD_CODE_INIT_FIXED(myThid)
137	jmc	1.35	ENDIF
138			#endif
139
140	dimitri	1.38	#ifdef ALLOW_EXF
141			C-- Initialize fixed arrays for EXF
142	heimbach	1.58	IF ( useEXF ) THEN
143	dimitri	1.38	CALL EXF_INIT_FIXED( myThid )
144	heimbach	1.58	ENDIF
145	dimitri	1.38	#endif
146
147	jmc	1.35	#ifdef ALLOW_GMREDI
148			C-- Initialize fixed arrays for GM-Redi
149			IF ( useGMRedi ) THEN
150			CALL GMREDI_INIT_FIXED( myThid )
151			ENDIF
152			#endif
153
154	jmc	1.64	#ifdef ALLOW_DOWN_SLOPE
155			C-- Initialize fixed arrays for Down-Slope pkg
156			IF ( useDOWN_SLOPE ) THEN
157			CALL DWNSLP_INIT_FIXED( myThid )
158			ENDIF
159			#endif
160
161	dimitri	1.37	#ifdef ALLOW_KPP
162			C-- Initialize fixed arrays for KPP
163			IF ( useKPP ) THEN
164			CALL KPP_INIT_FIXED( myThid )
165			ENDIF
166			#endif
167
168	mlosch	1.63	#ifdef ALLOW_MY82
169			C-- Initialize fixed arrays for MY82
170			IF ( useMY82 ) THEN
171			CALL MY82_INIT_FIXED( myThid )
172			ENDIF
173			#endif
174
175	dfer	1.65	#ifdef ALLOW_GGL90
176			C-- Initialize fixed arrays for GGL90
177			IF ( useGGL90 ) THEN
178			CALL GGL90_INIT_FIXED( myThid )
179			ENDIF
180			#endif
181
182	jmc	1.35	#ifdef ALLOW_OPPS
183			IF (useOPPS) CALL OPPS_INIT( myThid )
184			#endif /* ALLOW_OPPS */
185
186	adcroft	1.2	C-- Initialize fixed arrays for OBCS
187			#ifdef ALLOW_OBCS
188			IF (useOBCS) THEN
189			CALL OBCS_INIT_FIXED( myThid )
190	adcroft	1.3	ENDIF
191			#endif
192	edhill	1.26
193			#ifdef ALLOW_TIMEAVE
194			C IF (useTIMEAVE) THEN
195	jmc	1.36	IF ( taveFreq.GT.0. ) THEN
196			CALL TIMEAVE_INIT_FIXED( myThid )
197			ENDIF
198			#endif
199
200			#ifdef ALLOW_SHAP_FILT
201			C-- Shapiro filter initialisation
202			IF (useSHAP_FILT) THEN
203			CALL SHAP_FILT_INIT_FIXED( myThid )
204			ENDIF
205	edhill	1.26	#endif
206
207	jmc	1.6	#ifdef ALLOW_ZONAL_FILT
208			C-- Latitude circle filter initialisation
209			IF (useZONAL_FILT) THEN
210			CALL ZONAL_FILT_INIT(myThid)
211	adcroft	1.2	ENDIF
212	jmc	1.7	#endif
213
214			#ifdef ALLOW_AIM
215			C-- Initialise & Read AIM physical parameters
216			IF (useAIM) CALL AIM_INITIALISE( myThid )
217			#endif
218	molod	1.15
219			C AMM
220			#ifdef ALLOW_GRIDALT
221			C-- Initialise GRIDALT parameters - the alternative grid
222	molod	1.24	IF (useGRIDALT) then
223	jmc	1.62	CALL TIMER_START('GRIDALT_INITIALISE [PACKAGES_INIT_F]',myThid)
224	molod	1.24	CALL GRIDALT_INITIALISE( myThid )
225	jmc	1.62	CALL TIMER_STOP ('GRIDALT_INITIALISE [PACKAGES_INIT_F]',myThid)
226	molod	1.24	ENDIF
227
228	molod	1.15	#endif
229
230			#ifdef ALLOW_FIZHI
231			C-- Initialise & Read FIZHI physical parameters
232			IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
233	molod	1.16	#endif
234			C AMM
235
236	jmc	1.7	#ifdef ALLOW_LAND
237			C-- Initialise & Read Land package parameters
238			IF (useLand) CALL LAND_INITIALISE( myThid )
239	heimbach	1.8	#endif
240
241	heimbach	1.43	#if (defined (ALLOW_SEAICE) && defined (ALLOW_COST))
242			C-- Initialise ecco-specific cost function.
243			C-- This needs to preceed the call ctrl_init
244			C-- in order to provide the weight files
245	heimbach	1.56	IF (useSEAICE) CALL SEAICE_COST_INIT_FIXED( myThid )
246	heimbach	1.43	#endif
247
248	heimbach	1.14	#if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
249			C-- Initialise ecco-specific cost function.
250			C-- This needs to preceed the call ctrl_init
251			C-- in order to provide the weight files
252	heimbach	1.40	CALL ECCO_COST_INIT_FIXED( myThid )
253	heimbach	1.14	#endif
254
255	heimbach	1.48	#ifdef ALLOW_PROFILES
256			CALL PROFILES_INIT_FIXED( myThid )
257			#endif
258
259	heimbach	1.13	#ifdef ALLOW_AUTODIFF
260	heimbach	1.8	C-- Initialise the control variables
261			CALL CTRL_INIT( myThid )
262	adcroft	1.2	#endif
263	stephd	1.10
264	heimbach	1.59	#ifdef ALLOW_ADMTLM
265			C-- Initialise ADMTLM
266			CALL CTRL_ADMTLM( myThid )
267	jmc	1.67	#endif
268
269			#ifdef ALLOW_FLT
270			C-- Initialise fixed array for Float pkg
271			IF ( useFLT ) CALL FLT_INIT_FIXED( myThid )
272	heimbach	1.59	#endif
273
274	jahn	1.68	#ifdef ALLOW_LONGSTEP
275			IF (usePTRACERS) CALL LONGSTEP_INIT_FIXED(myThid)
276			#endif
277
278	stephd	1.10	#ifdef ALLOW_PTRACERS
279	jmc	1.49	IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)
280	jmc	1.25	#endif
281
282	stephd	1.10	#ifdef ALLOW_GCHEM
283	jmc	1.62	IF (useGCHEM) CALL GCHEM_INIT_FIXED(myThid)
284	edhill	1.42	#endif
285
286	stephd	1.45	#ifdef ALLOW_RBCS
287	jmc	1.62	IF (useRBCS) CALL RBCS_INIT_FIXED(myThid)
288	stephd	1.45	#endif
289
290	jmc	1.35	#ifdef ALLOW_THSICE
291	jmc	1.62	IF (useThSIce) CALL THSICE_INIT_FIXED(myThid)
292	heimbach	1.28	#endif
293
294	heimbach	1.55	#ifdef ALLOW_SEAICE
295	jmc	1.62	IF (useSEAICE) CALL SEAICE_INIT_FIXED(myThid)
296	heimbach	1.55	#endif
297
298	mlosch	1.47	#ifdef ALLOW_SHELFICE
299			IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )
300			#endif /* ALLOW_SHELFICE */
301
302	jmc	1.53	#ifdef ALLOW_EMBED_FILES
303	jmc	1.62	IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( myThid )
304	jmc	1.53	#endif
305
306			#ifdef ALLOW_REGRID
307	jmc	1.62	IF ( useREGRID ) CALL REGRID_INIT_FIXED( myThid )
308	jmc	1.53	#endif
309
310	jmc	1.33	#ifdef COMPONENT_MODULE
311	jmc	1.62	IF ( useCoupler ) CALL CPL_INIT_FIXED( myThid )
312	jmc	1.33	#endif
313
314	jscott	1.54	#ifdef ALLOW_ATM2D
315			IF ( useAtm2d ) CALL ATM2D_INIT_FIXED( myThid )
316			#endif
317
318	dimitri	1.60	#ifdef ALLOW_SALT_PLUME
319	jmc	1.62	IF (useSALT_PLUME) CALL SALT_PLUME_INIT_FIXED(myThid)
320	dimitri	1.60	#endif
321
322	jmc	1.64	#ifdef ALLOW_MYPACKAGE
323			IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(myThid)
324			#endif
325
326	molod	1.18	#ifdef ALLOW_DIAGNOSTICS
327	jmc	1.51	C- needs to call DIAGNOSTICS_INIT_FIXED after all package-diag-init calls
328	heimbach	1.50	IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
329	molod	1.18	#endif
330	edhill	1.30
331	adcroft	1.2	RETURN
332			END