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	C $Header: /u/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.37 2005/04/29 18:47:02 dimitri Exp $
2	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 \|-- DIAGNOSTICS_INIT_EARLY
23	C \|-- DIAGNOSTICS_MAIN_INIT
24	C \|
25	C \|-- GAD_INIT
26	C \|
27	C \|-- CD_CODE_INIT_FIXED
28	C \|
29	C \|-- EXF_INIT_FIXED
30	C \|
31	C \|-- GMREDI_INIT_FIXED
32	C \|
33	C \|-- KPP_INIT_FIXED
34	C \|
35	C \|-- OPPS_INIT
36	C \|
37	C \|-- OBCS_INIT_FIXED
38	C \|
39	C \|-- FLT_INIT
40	C \|
41	C \|-- TIMEAVE_INIT_FIXED
42	C \|
43	C \|-- SHAP_FILT_INIT_FIZED
44	C \|
45	C \|-- ZONAL_FILT_INIT
46	C \|
47	C \|-- ATM_DIAGNOSTICS_INIT
48	C \|
49	C \|-- AIM_INITIALISE
50	C \|
51	C \|-- GRIDALT_INITIALISE
52	C \|
53	C \|-- FIZHI_INIT_FIXED
54	C \|
55	C \|-- LAND_INITIALISE
56	C \|
57	C \|-- ECCO_COST_INIT_FIXED
58	C \|
59	C \|-- CTRL_INIT
60	C \|
61	C \|-- PTRACERS_INITIALISE
62	C \|
63	C \|-- GCHEM_INIT_FIXED
64	C \|
65	C \|-- THSICE_INIT_FIXED
66	C \|
67	C \|-- CPL_INIT_FIXED
68	C \|
69	C \|-- DIAGNOSTICS_INIT_FIXED
70
71	C !USES:
72	IMPLICIT NONE
73	C === Global variables ===
74	#include "SIZE.h"
75	#include "EEPARAMS.h"
76	#include "PARAMS.h"
77
78	C !INPUT/OUTPUT PARAMETERS:
79	C === Routine arguments ===
80	C myThid - Number of this instances
81	INTEGER myThid
82	CEOP
83
84	#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	#ifdef ALLOW_GENERIC_ADVDIFF
92	C-- Initialize fixed params for GAD
93	CALL GAD_INIT( myThid )
94	#endif
95
96	#ifdef ALLOW_CD_CODE
97	IF (useCDscheme) THEN
98	CALL CD_CODE_INIT_FIXED(mythid)
99	ENDIF
100	#endif
101
102	#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	#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	#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	#ifdef ALLOW_OPPS
124	IF (useOPPS) CALL OPPS_INIT( myThid )
125	#endif /* ALLOW_OPPS */
126
127	C-- Initialize fixed arrays for OBCS
128	#ifdef ALLOW_OBCS
129	IF (useOBCS) THEN
130	CALL OBCS_INIT_FIXED( myThid )
131	ENDIF
132	#endif
133
134	#ifdef ALLOW_FLT
135	C-- Initialise Float positions
136	IF (useFLT) THEN
137	CALL FLT_INIT(nIter0,startTime,myThid )
138	_BARRIER
139	ENDIF
140	#endif
141
142	#ifdef ALLOW_TIMEAVE
143	C IF (useTIMEAVE) THEN
144	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	#endif
155
156	#ifdef ALLOW_ZONAL_FILT
157	C-- Latitude circle filter initialisation
158	IF (useZONAL_FILT) THEN
159	CALL ZONAL_FILT_INIT(myThid)
160	_BARRIER
161	ENDIF
162	#endif
163
164	#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	#ifdef ALLOW_AIM
172	C-- Initialise & Read AIM physical parameters
173	IF (useAIM) CALL AIM_INITIALISE( myThid )
174	#endif
175
176	C AMM
177	#ifdef ALLOW_GRIDALT
178	C-- Initialise GRIDALT parameters - the alternative grid
179	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	#endif
186
187	#ifdef ALLOW_FIZHI
188	C-- Initialise & Read FIZHI physical parameters
189	IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
190	#endif
191	C AMM
192
193	#ifdef ALLOW_LAND
194	C-- Initialise & Read Land package parameters
195	IF (useLand) CALL LAND_INITIALISE( myThid )
196	#endif
197
198	#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	#ifdef ALLOW_AUTODIFF
206	C-- Initialise the control variables
207	CALL CTRL_INIT( myThid )
208	_BARRIER
209	#endif
210
211	#ifdef ALLOW_PTRACERS
212	IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)
213	#endif
214
215	#ifdef ALLOW_GCHEM
216	IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
217	#endif
218
219	#ifdef ALLOW_THSICE
220	IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
221	#endif
222
223	#ifdef COMPONENT_MODULE
224	IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
225	#endif
226
227	#ifdef ALLOW_DIAGNOSTICS
228	IF ( useDiagnostics ) THEN
229	CALL DIAGNOSTICS_INIT_FIXED( myThid )
230	ENDIF
231	#endif
232
233	RETURN
234	END