model/src/packages_init_fixed.F

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