model/src/packages_init_fixed.F

C $Header: /u/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.33 2004/12/13 22:01:50 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       |-- 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       |-- CD_CODE_INIT_FIXED
C       |
C       |-- OPPS_INIT
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

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_PTRACERS
#ifdef ALLOW_GCHEM
      IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
#endif
#endif

#ifdef ALLOW_CD_CODE
      IF (useCDscheme) THEN
       CALL CD_CODE_INIT_FIXED(mythid)
      ENDIF
#endif

#ifdef ALLOW_OPPS
      IF (useOPPS) CALL OPPS_INIT( myThid )
#endif /* ALLOW_OPPS */

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