model/src/packages_init_fixed.F

C $Header: /u/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.27 2004/09/16 09:35:11 mlosch 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       |-- GAD_INIT
C       |
C       |-- OBCS_INIT_FIXED
C       |
C       |-- FLT_INIT
C       |
C       |-- ZONAL_FILT_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       |-- GCHEM_INIT_FIXED
C       |
C       |-- OPPS_INIT
C       |
C       |-- DIAGNOSTICS_INITIALISE

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

C--   Initialize fixed params for GAD
      CALL GAD_INIT( myThid )

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( 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_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 (usePTRACERS) then
       call GCHEM_INIT_FIXED(mythid)
      ENDIF
#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 */

CAMM
#ifdef ALLOW_DIAGNOSTICS
      IF (usediagnostics) then
       call diagnostics_initialise(mythid)
      ENDIF
#endif
CAMM

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