model/src/packages_init_fixed.F

C $Header: /u/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.37 2005/04/29 18:47:02 dimitri 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       |-- DIAGNOSTICS_INIT_EARLY
C       |-- DIAGNOSTICS_MAIN_INIT
C       |
C       |-- GAD_INIT
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       |-- ECCO_COST_INIT_FIXED
C       |
C       |-- CTRL_INIT
C       |
C       |-- PTRACERS_INITIALISE
C       |
C       |-- GCHEM_INIT_FIXED
C       |
C       |-- THSICE_INIT_FIXED
C       |
C       |-- CPL_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_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_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_ATM_COMMON
C--   Initialise parameters shared by atmospheric physics packages
      IF ( (useAIM.OR.useFIZHI)  .AND. useDiagnostics ) THEN
        CALL ATM_DIAGNOSTICS_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_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
      IF (useECCO) CALL ECCO_COST_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_INITIALISE(mythid)
#endif

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

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

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

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

      RETURN
      END
1	dimitri	1.38	C $Header: /u/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.37 2005/04/29 18:47:02 dimitri 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			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	jmc	1.34	C \|-- DIAGNOSTICS_INIT_EARLY
23			C \|-- DIAGNOSTICS_MAIN_INIT
24			C \|
25	jmc	1.5	C \|-- GAD_INIT
26			C \|
27	jmc	1.35	C \|-- CD_CODE_INIT_FIXED
28			C \|
29	dimitri	1.38	C \|-- EXF_INIT_FIXED
30			C \|
31	jmc	1.35	C \|-- GMREDI_INIT_FIXED
32			C \|
33	dimitri	1.37	C \|-- KPP_INIT_FIXED
34			C \|
35	jmc	1.35	C \|-- OPPS_INIT
36			C \|
37	cnh	1.4	C \|-- OBCS_INIT_FIXED
38			C \|
39			C \|-- FLT_INIT
40	jmc	1.6	C \|
41	jmc	1.34	C \|-- TIMEAVE_INIT_FIXED
42			C \|
43	jmc	1.36	C \|-- SHAP_FILT_INIT_FIZED
44			C \|
45	jmc	1.6	C \|-- ZONAL_FILT_INIT
46	jmc	1.7	C \|
47	jmc	1.34	C \|-- ATM_DIAGNOSTICS_INIT
48			C \|
49	jmc	1.7	C \|-- AIM_INITIALISE
50			C \|
51	jmc	1.25	C \|-- GRIDALT_INITIALISE
52			C \|
53			C \|-- FIZHI_INIT_FIXED
54			C \|
55	jmc	1.7	C \|-- LAND_INITIALISE
56	jmc	1.25	C \|
57			C \|-- ECCO_COST_INIT_FIXED
58			C \|
59			C \|-- CTRL_INIT
60			C \|
61	jmc	1.34	C \|-- PTRACERS_INITIALISE
62			C \|
63	jmc	1.25	C \|-- GCHEM_INIT_FIXED
64			C \|
65	jmc	1.35	C \|-- THSICE_INIT_FIXED
66	mlosch	1.27	C \|
67	jmc	1.34	C \|-- CPL_INIT_FIXED
68			C \|
69			C \|-- DIAGNOSTICS_INIT_FIXED
70	cnh	1.4
71			C !USES:
72	adcroft	1.2	IMPLICIT NONE
73			C === Global variables ===
74			#include "SIZE.h"
75			#include "EEPARAMS.h"
76			#include "PARAMS.h"
77
78	cnh	1.4	C !INPUT/OUTPUT PARAMETERS:
79	adcroft	1.2	C === Routine arguments ===
80			C myThid - Number of this instances
81			INTEGER myThid
82	cnh	1.4	CEOP
83	edhill	1.21
84	jmc	1.33	#ifdef ALLOW_DIAGNOSTICS
85			IF ( useDiagnostics ) THEN
86			CALL DIAGNOSTICS_INIT_EARLY( myThid )
87			CALL DIAGNOSTICS_MAIN_INIT( myThid )
88			ENDIF
89			#endif
90
91	jmc	1.32	#ifdef ALLOW_GENERIC_ADVDIFF
92	edhill	1.21	C-- Initialize fixed params for GAD
93			CALL GAD_INIT( myThid )
94	jmc	1.32	#endif
95	adcroft	1.2
96	jmc	1.35	#ifdef ALLOW_CD_CODE
97			IF (useCDscheme) THEN
98			CALL CD_CODE_INIT_FIXED(mythid)
99			ENDIF
100			#endif
101
102	dimitri	1.38	#ifdef ALLOW_EXF
103			C-- Initialize fixed arrays for EXF
104			c IF ( useEXF ) THEN
105			CALL EXF_INIT_FIXED( myThid )
106			c ENDIF
107			#endif
108
109	jmc	1.35	#ifdef ALLOW_GMREDI
110			C-- Initialize fixed arrays for GM-Redi
111			IF ( useGMRedi ) THEN
112			CALL GMREDI_INIT_FIXED( myThid )
113			ENDIF
114			#endif
115
116	dimitri	1.37	#ifdef ALLOW_KPP
117			C-- Initialize fixed arrays for KPP
118			IF ( useKPP ) THEN
119			CALL KPP_INIT_FIXED( myThid )
120			ENDIF
121			#endif
122
123	jmc	1.35	#ifdef ALLOW_OPPS
124			IF (useOPPS) CALL OPPS_INIT( myThid )
125			#endif /* ALLOW_OPPS */
126
127	adcroft	1.2	C-- Initialize fixed arrays for OBCS
128			#ifdef ALLOW_OBCS
129			IF (useOBCS) THEN
130			CALL OBCS_INIT_FIXED( myThid )
131	adcroft	1.3	ENDIF
132			#endif
133	edhill	1.26
134	adcroft	1.3	#ifdef ALLOW_FLT
135			C-- Initialise Float positions
136	jmc	1.6	IF (useFLT) THEN
137	adcroft	1.3	CALL FLT_INIT(nIter0,startTime,myThid )
138	jmc	1.6	_BARRIER
139			ENDIF
140			#endif
141	edhill	1.26
142			#ifdef ALLOW_TIMEAVE
143			C IF (useTIMEAVE) THEN
144	jmc	1.36	IF ( taveFreq.GT.0. ) THEN
145			CALL TIMEAVE_INIT_FIXED( myThid )
146			ENDIF
147			#endif
148
149			#ifdef ALLOW_SHAP_FILT
150			C-- Shapiro filter initialisation
151			IF (useSHAP_FILT) THEN
152			CALL SHAP_FILT_INIT_FIXED( myThid )
153			ENDIF
154	edhill	1.26	#endif
155
156	jmc	1.6	#ifdef ALLOW_ZONAL_FILT
157			C-- Latitude circle filter initialisation
158			IF (useZONAL_FILT) THEN
159			CALL ZONAL_FILT_INIT(myThid)
160	adcroft	1.3	_BARRIER
161	adcroft	1.2	ENDIF
162	jmc	1.7	#endif
163
164	jmc	1.34	#ifdef ALLOW_ATM_COMMON
165			C-- Initialise parameters shared by atmospheric physics packages
166			IF ( (useAIM.OR.useFIZHI) .AND. useDiagnostics ) THEN
167			CALL ATM_DIAGNOSTICS_INIT( myThid )
168			ENDIF
169			#endif
170
171	jmc	1.7	#ifdef ALLOW_AIM
172			C-- Initialise & Read AIM physical parameters
173			IF (useAIM) CALL AIM_INITIALISE( myThid )
174			#endif
175	molod	1.15
176			C AMM
177			#ifdef ALLOW_GRIDALT
178			C-- Initialise GRIDALT parameters - the alternative grid
179	molod	1.24	IF (useGRIDALT) then
180			CALL TIMER_START('GRIDALT_INITIALISE [PACKAGES_INIT_F]',mythid)
181			CALL GRIDALT_INITIALISE( myThid )
182			CALL TIMER_STOP ('GRIDALT_INITIALISE [PACKAGES_INIT_F]',mythid)
183			ENDIF
184
185	molod	1.15	#endif
186
187			#ifdef ALLOW_FIZHI
188			C-- Initialise & Read FIZHI physical parameters
189			IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
190	molod	1.16	#endif
191			C AMM
192
193	jmc	1.7	#ifdef ALLOW_LAND
194			C-- Initialise & Read Land package parameters
195			IF (useLand) CALL LAND_INITIALISE( myThid )
196	heimbach	1.8	#endif
197
198	heimbach	1.14	#if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
199			C-- Initialise ecco-specific cost function.
200			C-- This needs to preceed the call ctrl_init
201			C-- in order to provide the weight files
202			IF (useECCO) CALL ECCO_COST_INIT_FIXED( myThid )
203			#endif
204
205	heimbach	1.13	#ifdef ALLOW_AUTODIFF
206	heimbach	1.8	C-- Initialise the control variables
207			CALL CTRL_INIT( myThid )
208			_BARRIER
209	adcroft	1.2	#endif
210	stephd	1.10
211			#ifdef ALLOW_PTRACERS
212	jmc	1.25	IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)
213			#endif
214
215	stephd	1.10	#ifdef ALLOW_GCHEM
216	mlosch	1.31	IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
217	stephd	1.10	#endif
218
219	jmc	1.35	#ifdef ALLOW_THSICE
220			IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
221	heimbach	1.28	#endif
222
223	jmc	1.33	#ifdef COMPONENT_MODULE
224			IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
225			#endif
226
227	molod	1.18	#ifdef ALLOW_DIAGNOSTICS
228	jmc	1.33	IF ( useDiagnostics ) THEN
229			CALL DIAGNOSTICS_INIT_FIXED( myThid )
230	molod	1.18	ENDIF
231			#endif
232	edhill	1.30
233	adcroft	1.2	RETURN
234			END