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	C $Header: /u/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.36 2005/02/15 01:54:53 jmc 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 \|-- GMREDI_INIT_FIXED
30	C \|
31	C \|-- KPP_INIT_FIXED
32	C \|
33	C \|-- OPPS_INIT
34	C \|
35	C \|-- OBCS_INIT_FIXED
36	C \|
37	C \|-- FLT_INIT
38	C \|
39	C \|-- TIMEAVE_INIT_FIXED
40	C \|
41	C \|-- SHAP_FILT_INIT_FIZED
42	C \|
43	C \|-- ZONAL_FILT_INIT
44	C \|
45	C \|-- ATM_DIAGNOSTICS_INIT
46	C \|
47	C \|-- AIM_INITIALISE
48	C \|
49	C \|-- GRIDALT_INITIALISE
50	C \|
51	C \|-- FIZHI_INIT_FIXED
52	C \|
53	C \|-- LAND_INITIALISE
54	C \|
55	C \|-- ECCO_COST_INIT_FIXED
56	C \|
57	C \|-- CTRL_INIT
58	C \|
59	C \|-- PTRACERS_INITIALISE
60	C \|
61	C \|-- GCHEM_INIT_FIXED
62	C \|
63	C \|-- THSICE_INIT_FIXED
64	C \|
65	C \|-- CPL_INIT_FIXED
66	C \|
67	C \|-- DIAGNOSTICS_INIT_FIXED
68
69	C !USES:
70	IMPLICIT NONE
71	C === Global variables ===
72	#include "SIZE.h"
73	#include "EEPARAMS.h"
74	#include "PARAMS.h"
75
76	C !INPUT/OUTPUT PARAMETERS:
77	C === Routine arguments ===
78	C myThid - Number of this instances
79	INTEGER myThid
80	CEOP
81
82	#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	#ifdef ALLOW_GENERIC_ADVDIFF
90	C-- Initialize fixed params for GAD
91	CALL GAD_INIT( myThid )
92	#endif
93
94	#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	#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	#ifdef ALLOW_OPPS
115	IF (useOPPS) CALL OPPS_INIT( myThid )
116	#endif /* ALLOW_OPPS */
117
118	C-- Initialize fixed arrays for OBCS
119	#ifdef ALLOW_OBCS
120	IF (useOBCS) THEN
121	CALL OBCS_INIT_FIXED( myThid )
122	ENDIF
123	#endif
124
125	#ifdef ALLOW_FLT
126	C-- Initialise Float positions
127	IF (useFLT) THEN
128	CALL FLT_INIT(nIter0,startTime,myThid )
129	_BARRIER
130	ENDIF
131	#endif
132
133	#ifdef ALLOW_TIMEAVE
134	C IF (useTIMEAVE) THEN
135	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	#endif
146
147	#ifdef ALLOW_ZONAL_FILT
148	C-- Latitude circle filter initialisation
149	IF (useZONAL_FILT) THEN
150	CALL ZONAL_FILT_INIT(myThid)
151	_BARRIER
152	ENDIF
153	#endif
154
155	#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	#ifdef ALLOW_AIM
163	C-- Initialise & Read AIM physical parameters
164	IF (useAIM) CALL AIM_INITIALISE( myThid )
165	#endif
166
167	C AMM
168	#ifdef ALLOW_GRIDALT
169	C-- Initialise GRIDALT parameters - the alternative grid
170	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	#endif
177
178	#ifdef ALLOW_FIZHI
179	C-- Initialise & Read FIZHI physical parameters
180	IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
181	#endif
182	C AMM
183
184	#ifdef ALLOW_LAND
185	C-- Initialise & Read Land package parameters
186	IF (useLand) CALL LAND_INITIALISE( myThid )
187	#endif
188
189	#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	#ifdef ALLOW_AUTODIFF
197	C-- Initialise the control variables
198	CALL CTRL_INIT( myThid )
199	_BARRIER
200	#endif
201
202	#ifdef ALLOW_PTRACERS
203	IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)
204	#endif
205
206	#ifdef ALLOW_GCHEM
207	IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
208	#endif
209
210	#ifdef ALLOW_THSICE
211	IF (useThSIce) CALL THSICE_INIT_FIXED(mythid)
212	#endif
213
214	#ifdef COMPONENT_MODULE
215	IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
216	#endif
217
218	#ifdef ALLOW_DIAGNOSTICS
219	IF ( useDiagnostics ) THEN
220	CALL DIAGNOSTICS_INIT_FIXED( myThid )
221	ENDIF
222	#endif
223
224	RETURN
225	END