model/src/packages_init_fixed.F

C $Header: /u/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.32 2004/12/03 15:39:11 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       |-- 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

#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_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.33	C $Header: /u/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.32 2004/12/03 15:39:11 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.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	jmc	1.33	#ifdef ALLOW_DIAGNOSTICS
62			IF ( useDiagnostics ) THEN
63			CALL DIAGNOSTICS_INIT_EARLY( myThid )
64			CALL DIAGNOSTICS_MAIN_INIT( myThid )
65			ENDIF
66			#endif
67
68	jmc	1.32	#ifdef ALLOW_GENERIC_ADVDIFF
69	edhill	1.21	C-- Initialize fixed params for GAD
70			CALL GAD_INIT( myThid )
71	jmc	1.32	#endif
72	adcroft	1.2
73			C-- Initialize fixed arrays for OBCS
74			#ifdef ALLOW_OBCS
75			IF (useOBCS) THEN
76			CALL OBCS_INIT_FIXED( myThid )
77	adcroft	1.3	ENDIF
78			#endif
79	edhill	1.26
80	adcroft	1.3	#ifdef ALLOW_FLT
81			C-- Initialise Float positions
82	jmc	1.6	IF (useFLT) THEN
83	adcroft	1.3	CALL FLT_INIT(nIter0,startTime,myThid )
84	jmc	1.6	_BARRIER
85			ENDIF
86			#endif
87	edhill	1.26
88			#ifdef ALLOW_TIMEAVE
89			C IF (useTIMEAVE) THEN
90	edhill	1.29	CALL TIMEAVE_INIT_FIXED( myThid )
91	edhill	1.26	C ENDIF
92			#endif
93
94	jmc	1.6	#ifdef ALLOW_ZONAL_FILT
95			C-- Latitude circle filter initialisation
96			IF (useZONAL_FILT) THEN
97			CALL ZONAL_FILT_INIT(myThid)
98	adcroft	1.3	_BARRIER
99	adcroft	1.2	ENDIF
100	jmc	1.7	#endif
101
102			#ifdef ALLOW_AIM
103			C-- Initialise & Read AIM physical parameters
104			IF (useAIM) CALL AIM_INITIALISE( myThid )
105			#endif
106	molod	1.15
107			C AMM
108			#ifdef ALLOW_GRIDALT
109			C-- Initialise GRIDALT parameters - the alternative grid
110	molod	1.24	IF (useGRIDALT) then
111			CALL TIMER_START('GRIDALT_INITIALISE [PACKAGES_INIT_F]',mythid)
112			CALL GRIDALT_INITIALISE( myThid )
113			CALL TIMER_STOP ('GRIDALT_INITIALISE [PACKAGES_INIT_F]',mythid)
114			ENDIF
115
116	molod	1.15	#endif
117
118			#ifdef ALLOW_FIZHI
119			C-- Initialise & Read FIZHI physical parameters
120			IF (useFIZHI) CALL FIZHI_INIT_FIXED( myThid )
121	molod	1.16	#endif
122			C AMM
123
124	jmc	1.7	#ifdef ALLOW_LAND
125			C-- Initialise & Read Land package parameters
126			IF (useLand) CALL LAND_INITIALISE( myThid )
127	heimbach	1.8	#endif
128
129	heimbach	1.14	#if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
130			C-- Initialise ecco-specific cost function.
131			C-- This needs to preceed the call ctrl_init
132			C-- in order to provide the weight files
133			IF (useECCO) CALL ECCO_COST_INIT_FIXED( myThid )
134			#endif
135
136	heimbach	1.13	#ifdef ALLOW_AUTODIFF
137	heimbach	1.8	C-- Initialise the control variables
138			CALL CTRL_INIT( myThid )
139			_BARRIER
140	adcroft	1.2	#endif
141	stephd	1.10
142			#ifdef ALLOW_PTRACERS
143	jmc	1.25	IF (usePTRACERS) CALL PTRACERS_INITIALISE(mythid)
144			#endif
145
146			#ifdef ALLOW_PTRACERS
147	stephd	1.10	#ifdef ALLOW_GCHEM
148	mlosch	1.31	IF (useGCHEM) CALL GCHEM_INIT_FIXED(mythid)
149	stephd	1.10	#endif
150			#endif
151
152	heimbach	1.28	#ifdef ALLOW_CD_CODE
153			IF (useCDscheme) then
154			call CD_CODE_INIT_FIXED(mythid)
155			ENDIF
156			#endif
157
158	mlosch	1.27	#ifdef ALLOW_OPPS
159			IF (useOPPS) CALL OPPS_INIT( myThid )
160			#endif /* ALLOW_OPPS */
161
162	jmc	1.33	#ifdef COMPONENT_MODULE
163			IF ( useCoupler ) CALL CPL_INIT_FIXED( mythid )
164			#endif
165
166	molod	1.18	#ifdef ALLOW_DIAGNOSTICS
167	jmc	1.33	IF ( useDiagnostics ) THEN
168			CALL DIAGNOSTICS_INIT_FIXED( myThid )
169	molod	1.18	ENDIF
170			#endif
171	edhill	1.30
172	adcroft	1.2	RETURN
173			END