model/src/packages_init_fixed.F

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