model/src/packages_init_fixed.F

C $Header: /u/u3/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.11 2003/10/09 04:19:18 edhill Exp $
C $Name:  $

#include "AD_CONFIG.h"
#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       |-- LAND_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_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

#ifdef ALLOW_LAND
C--   Initialise & Read Land package parameters
      IF (useLand) CALL LAND_INITIALISE( myThid )
#endif

#if (defined (ALLOW_ADJOINT_RUN) || \
     defined (ALLOW_TANGENTLINEAR_RUN) || \
     defined (ALLOW_ECCO_OPTIMIZATION))
C--   Initialise the control variables
      CALL CTRL_INIT( myThid )
      _BARRIER
#endif

#ifdef INCLUDE_ECCO_PACKAGE
# ifdef ALLOW_COST
C--   Initialise ecco-specific cost function.
       IF (useECCO) CALL COST_INIT_FIXED( myThid )
# endif
#endif

#ifdef ALLOW_PTRACERS
#ifdef ALLOW_GCHEM
      IF (usePTRACERS) then
       call GCHEM_INIT_FIXED(mythid)
      ENDIF
#endif
#endif


      RETURN
      END
1	edhill	1.12	C $Header: /u/u3/gcmpack/MITgcm/model/src/packages_init_fixed.F,v 1.11 2003/10/09 04:19:18 edhill Exp $
2	adcroft	1.3	C $Name: $
3	adcroft	1.2
4	edhill	1.12	#include "AD_CONFIG.h"
5	edhill	1.11	#include "PACKAGES_CONFIG.h"
6	adcroft	1.2	#include "CPP_OPTIONS.h"
7
8	cnh	1.4	CBOP
9			C !ROUTINE: PACKAGES_INIT_FIXED
10			C !INTERFACE:
11	adcroft	1.2	SUBROUTINE PACKAGES_INIT_FIXED( myThid )
12	cnh	1.4
13			C !DESCRIPTION: \bv
14			C ==========================================================
15			C \| SUBROUTINE PACKAGES_INIT_FIXED
16			C \| o Does initialisation of package-related fixed fields
17			C ==========================================================
18			C \ev
19
20			C !CALLING SEQUENCE:
21			C PACKAGES_INIT_FIXED
22			C \|
23	jmc	1.5	C \|-- GAD_INIT
24			C \|
25	cnh	1.4	C \|-- OBCS_INIT_FIXED
26			C \|
27			C \|-- FLT_INIT
28	jmc	1.6	C \|
29			C \|-- ZONAL_FILT_INIT
30	jmc	1.7	C \|
31			C \|-- AIM_INITIALISE
32			C \|
33			C \|-- LAND_INITIALISE
34	cnh	1.4
35			C !USES:
36	adcroft	1.2	IMPLICIT NONE
37			C === Global variables ===
38			#include "SIZE.h"
39			#include "EEPARAMS.h"
40			#include "PARAMS.h"
41
42	cnh	1.4	C !INPUT/OUTPUT PARAMETERS:
43	adcroft	1.2	C === Routine arguments ===
44			C myThid - Number of this instances
45			INTEGER myThid
46	cnh	1.4	CEOP
47	jmc	1.5
48			C-- Initialize fixed params for GAD
49			CALL GAD_INIT( myThid )
50	adcroft	1.2
51			C-- Initialize fixed arrays for OBCS
52			#ifdef ALLOW_OBCS
53			IF (useOBCS) THEN
54			CALL OBCS_INIT_FIXED( myThid )
55	adcroft	1.3	ENDIF
56			#endif
57			#ifdef ALLOW_FLT
58			C-- Initialise Float positions
59	jmc	1.6	IF (useFLT) THEN
60	adcroft	1.3	CALL FLT_INIT(nIter0,startTime,myThid )
61	jmc	1.6	_BARRIER
62			ENDIF
63			#endif
64			#ifdef ALLOW_ZONAL_FILT
65			C-- Latitude circle filter initialisation
66			IF (useZONAL_FILT) THEN
67			CALL ZONAL_FILT_INIT(myThid)
68	adcroft	1.3	_BARRIER
69	adcroft	1.2	ENDIF
70	jmc	1.7	#endif
71
72			#ifdef ALLOW_AIM
73			C-- Initialise & Read AIM physical parameters
74			IF (useAIM) CALL AIM_INITIALISE( myThid )
75			#endif
76
77			#ifdef ALLOW_LAND
78			C-- Initialise & Read Land package parameters
79			IF (useLand) CALL LAND_INITIALISE( myThid )
80	heimbach	1.8	#endif
81
82			#if (defined (ALLOW_ADJOINT_RUN) \|\| \
83			defined (ALLOW_TANGENTLINEAR_RUN) \|\| \
84			defined (ALLOW_ECCO_OPTIMIZATION))
85			C-- Initialise the control variables
86			CALL CTRL_INIT( myThid )
87			_BARRIER
88			#endif
89
90			#ifdef INCLUDE_ECCO_PACKAGE
91	heimbach	1.9	# ifdef ALLOW_COST
92	heimbach	1.8	C-- Initialise ecco-specific cost function.
93	heimbach	1.9	IF (useECCO) CALL COST_INIT_FIXED( myThid )
94			# endif
95	adcroft	1.2	#endif
96	stephd	1.10
97			#ifdef ALLOW_PTRACERS
98			#ifdef ALLOW_GCHEM
99			IF (usePTRACERS) then
100			call GCHEM_INIT_FIXED(mythid)
101			ENDIF
102			#endif
103			#endif
104
105	adcroft	1.2
106			RETURN
107			END