model/src/packages_init_fixed.F

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