jscott/code_changed/packages_init_fixed.F

C $Header: /u/gcmpack/MITgcm_contrib/jscott/code_changed/packages_init_fixed.F,v 1.1 2006/08/11 19:29:22 jscott 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       |-- KPP_INIT_FIXED
C       |
C       |-- OPPS_INIT
C       |
C       |-- OBCS_INIT_FIXED
C       |
C       |-- FLT_INIT
C       |
C       |-- TIMEAVE_INIT_FIXED
C       |
C       |-- SHAP_FILT_INIT_FIZED
C       |
C       |-- ZONAL_FILT_INIT
C       |
C       |-- ATM_DIAGNOSTICS_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       |-- CTRL_INIT
C       |
C       |-- PTRACERS_INIT_FIXED
C       |
C       |-- GCHEM_INIT_FIXED
C       |
C       |-- DIC_INIT_FIXED
C       |
C       |-- THSICE_INIT_FIXED
C       |
C       |-- SHELFICE_INIT_FIXED
C       |
C       |-- CPL_INIT_FIXED
C       |
C       |-- ATM2D_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
        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( 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
c     IF ( useEXF ) THEN
       CALL EXF_INIT_FIXED( myThid )
c     ENDIF
#endif

#ifdef ALLOW_GMREDI
C--   Initialize fixed arrays for GM-Redi
      IF ( useGMRedi ) THEN
       CALL GMREDI_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_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_FLT
C--   Initialise Float positions
      IF (useFLT) THEN
       CALL FLT_INIT(nIter0,startTime,myThid )
      _BARRIER
      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)
      _BARRIER
      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
      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 )
      _BARRIER
#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_DIC
C     IF (useDIC)
      CALL DIC_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_SHELFICE
      IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )
#endif /* ALLOW_SHELFICE */

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

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

#ifdef ALLOW_DIAGNOSTICS
      IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
#endif

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

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

      RETURN
      END

1	jscott	1.2	C $Header: /u/gcmpack/MITgcm_contrib/jscott/code_changed/packages_init_fixed.F,v 1.1 2006/08/11 19:29:22 jscott Exp $
2	jscott	1.1	C $Name: $
3
4			#include "PACKAGES_CONFIG.h"
5			#include "CPP_OPTIONS.h"
6
7			CBOP
8			C !ROUTINE: PACKAGES_INIT_FIXED
9			C !INTERFACE:
10			SUBROUTINE PACKAGES_INIT_FIXED( myThid )
11
12			C !DESCRIPTION: \bv
13			C ==========================================================
14			C \| SUBROUTINE PACKAGES_INIT_FIXED
15			C \| o Does initialisation of package-related fixed fields
16			C ==========================================================
17			C \ev
18
19			C !CALLING SEQUENCE:
20			C PACKAGES_INIT_FIXED
21			C \|
22			C \|-- RUNCLOCK_INIT
23			C \|
24			C \|-- DIAGNOSTICS_INIT_EARLY
25			C \|-- DIAGNOSTICS_MAIN_INIT
26			C \|
27			C \|-- GAD_INIT
28			C \|
29			C \|-- MOM_INIT_FIXED
30			C \|
31			C \|-- CD_CODE_INIT_FIXED
32			C \|
33			C \|-- EXF_INIT_FIXED
34			C \|
35			C \|-- GMREDI_INIT_FIXED
36			C \|
37			C \|-- KPP_INIT_FIXED
38			C \|
39			C \|-- OPPS_INIT
40			C \|
41			C \|-- OBCS_INIT_FIXED
42			C \|
43			C \|-- FLT_INIT
44			C \|
45			C \|-- TIMEAVE_INIT_FIXED
46			C \|
47			C \|-- SHAP_FILT_INIT_FIZED
48			C \|
49			C \|-- ZONAL_FILT_INIT
50			C \|
51			C \|-- ATM_DIAGNOSTICS_INIT
52			C \|
53			C \|-- AIM_INITIALISE
54			C \|
55			C \|-- GRIDALT_INITIALISE
56			C \|
57			C \|-- FIZHI_INIT_FIXED
58			C \|
59			C \|-- LAND_INITIALISE
60			C \|
61			C \|-- SEAICE_COST_INIT_FIXED
62			C \|
63			C \|-- ECCO_COST_INIT_FIXED
64			C \|
65			C \|-- CTRL_INIT
66			C \|
67			C \|-- PTRACERS_INIT_FIXED
68			C \|
69			C \|-- GCHEM_INIT_FIXED
70			C \|
71			C \|-- DIC_INIT_FIXED
72			C \|
73			C \|-- THSICE_INIT_FIXED
74			C \|
75			C \|-- SHELFICE_INIT_FIXED
76			C \|
77			C \|-- CPL_INIT_FIXED
78			C \|
79			C \|-- ATM2D_INIT_FIXED
80			C \|
81			C \|-- DIAGNOSTICS_INIT_FIXED
82
83			C !USES:
84			IMPLICIT NONE
85			C === Global variables ===
86			#include "SIZE.h"
87			#include "EEPARAMS.h"
88			#include "PARAMS.h"
89
90			C !INPUT/OUTPUT PARAMETERS:
91			C === Routine arguments ===
92			C myThid - Number of this instances
93			INTEGER myThid
94			CEOP
95
96			#ifdef ALLOW_RUNCLOCK
97			IF ( useRunClock ) THEN
98			CALL RUNCLOCK_INIT( myThid )
99			ENDIF
100			#endif
101
102			#ifdef ALLOW_DIAGNOSTICS
103			IF ( useDiagnostics ) THEN
104			CALL DIAGNOSTICS_INIT_EARLY( myThid )
105			CALL DIAGNOSTICS_MAIN_INIT( myThid )
106			ENDIF
107			#endif
108
109			#ifdef ALLOW_GENERIC_ADVDIFF
110			C-- Initialize fixed params for GAD
111			CALL GAD_INIT( myThid )
112			#endif
113
114			#ifdef ALLOW_MOM_COMMON
115			C-- Initialize fixed params for Momentum pkgs (common, fluxform, vecinv)
116			IF ( momStepping ) THEN
117			CALL MOM_INIT_FIXED( myThid )
118			ENDIF
119			#endif
120
121			#ifdef ALLOW_CD_CODE
122			IF (useCDscheme) THEN
123			CALL CD_CODE_INIT_FIXED(mythid)
124			ENDIF
125			#endif
126
127			#ifdef ALLOW_EXF
128			C-- Initialize fixed arrays for EXF
129			c IF ( useEXF ) THEN
130			CALL EXF_INIT_FIXED( myThid )
131			c ENDIF
132			#endif
133
134			#ifdef ALLOW_GMREDI
135			C-- Initialize fixed arrays for GM-Redi
136			IF ( useGMRedi ) THEN
137			CALL GMREDI_INIT_FIXED( myThid )
138			ENDIF
139			#endif
140
141			#ifdef ALLOW_KPP
142			C-- Initialize fixed arrays for KPP
143			IF ( useKPP ) THEN
144			CALL KPP_INIT_FIXED( myThid )
145			ENDIF
146			#endif
147
148			#ifdef ALLOW_OPPS
149			IF (useOPPS) CALL OPPS_INIT( myThid )
150			#endif /* ALLOW_OPPS */
151
152			C-- Initialize fixed arrays for OBCS
153			#ifdef ALLOW_OBCS
154			IF (useOBCS) THEN
155			CALL OBCS_INIT_FIXED( myThid )
156			ENDIF
157			#endif
158
159			#ifdef ALLOW_FLT
160			C-- Initialise Float positions
161			IF (useFLT) THEN
162			CALL FLT_INIT(nIter0,startTime,myThid )
163			_BARRIER
164			ENDIF
165			#endif
166
167			#ifdef ALLOW_TIMEAVE
168			C IF (useTIMEAVE) THEN
169			IF ( taveFreq.GT.0. ) THEN
170			CALL TIMEAVE_INIT_FIXED( myThid )
171			ENDIF
172			#endif
173
174			#ifdef ALLOW_SHAP_FILT
175			C-- Shapiro filter initialisation
176			IF (useSHAP_FILT) THEN
177			CALL SHAP_FILT_INIT_FIXED( myThid )
178			ENDIF
179			#endif
180
181			#ifdef ALLOW_ZONAL_FILT
182			C-- Latitude circle filter initialisation
183			IF (useZONAL_FILT) THEN
184			CALL ZONAL_FILT_INIT(myThid)
185			_BARRIER
186			ENDIF
187			#endif
188
189			#ifdef ALLOW_AIM
190			C-- Initialise & Read AIM physical parameters
191			IF (useAIM) CALL AIM_INITIALISE( myThid )
192			#endif
193
194			C AMM
195			#ifdef ALLOW_GRIDALT
196			C-- Initialise GRIDALT parameters - the alternative grid
197			IF (useGRIDALT) then
198			CALL TIMER_START('GRIDALT_INITIALISE [PACKAGES_INIT_F]',mythid)
199			CALL GRIDALT_INITIALISE( myThid )
200			CALL TIMER_STOP ('GRIDALT_INITIALISE [PACKAGES_INIT_F]',mythid)
201			ENDIF
202
203			#endif
204
205			#ifdef ALLOW_FIZHI
206			C-- Initialise & Read FIZHI physical parameters
207			IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
208			#endif
209			C AMM
210
211			#ifdef ALLOW_LAND
212			C-- Initialise & Read Land package parameters
213			IF (useLand) CALL LAND_INITIALISE( myThid )
214			#endif
215
216			#if (defined (ALLOW_SEAICE) && defined (ALLOW_COST))
217			C-- Initialise ecco-specific cost function.
218			C-- This needs to preceed the call ctrl_init
219			C-- in order to provide the weight files
220			CALL SEAICE_COST_INIT_FIXED( myThid )
221			#endif
222
223			#if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
224			C-- Initialise ecco-specific cost function.
225			C-- This needs to preceed the call ctrl_init
226			C-- in order to provide the weight files
227			CALL ECCO_COST_INIT_FIXED( myThid )
228			#endif
229
230			#ifdef ALLOW_PROFILES
231			CALL PROFILES_INIT_FIXED( myThid )
232			#endif
233
234			#ifdef ALLOW_AUTODIFF
235			C-- Initialise the control variables
236			CALL CTRL_INIT( myThid )
237			_BARRIER
238			#endif
239
240			#ifdef ALLOW_PTRACERS
241			IF (usePTRACERS) CALL PTRACERS_INIT_FIXED(myThid)
242			#endif
243
244			#ifdef ALLOW_GCHEM
245			IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
246			#endif
247
248			#ifdef ALLOW_DIC
249			C IF (useDIC)
250			CALL DIC_INIT_FIXED(mythid)
251			#endif
252
253			#ifdef ALLOW_RBCS
254			IF (useRBCS) CALL RBCS_INIT_FIXED(mythid)
255			#endif
256
257
258			#ifdef ALLOW_THSICE
259			IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
260			#endif
261
262			#ifdef ALLOW_SHELFICE
263			IF (useShelfIce) CALL SHELFICE_INIT_FIXED( myThid )
264			#endif /* ALLOW_SHELFICE */
265
266			#ifdef COMPONENT_MODULE
267			IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
268			#endif
269
270			#ifdef ALLOW_ATM2D
271			IF ( useAtm2d ) CALL ATM2D_INIT_FIXED( myThid )
272			#endif
273
274			#ifdef ALLOW_DIAGNOSTICS
275			IF ( useDiagnostics ) CALL DIAGNOSTICS_INIT_FIXED( myThid )
276			#endif
277
278			#ifdef ALLOW_EMBED_FILES
279			IF ( useEMBED_FILES ) CALL EMBED_FILES_INIT( mythid )
280			#endif
281
282			#ifdef ALLOW_MYPACKAGE
283			IF (useMYPACKAGE) CALL MYPACKAGE_INIT_FIXED(mythid)
284			#endif
285
286			RETURN
287			END
288