model/src/packages_init_fixed.F

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