model/src/packages_init_variables.F


#include "CPP_OPTIONS.h"

CBOP
C     !ROUTINE: PACKAGES_INIT_VARIABLES
C     !INTERFACE:
      SUBROUTINE PACKAGES_INIT_VARIABLES( myThid )

C     !DESCRIPTION: \bv
C     *==========================================================*
C     | SUBROUTINE PACKAGES_INIT_VARIABLES                        
C     | o Does initialisation of package-related variable data    
C     *==========================================================*
C     \ev

C     !CALLING SEQUENCE:
C     PACKAGES_INIT_VARIABLES
C       |
C       |-- GMREDI_INIT
C       |
C       |-- KPP_INIT
C       |-- KPP_OPEN_DIAGS
C       |
C       |-- SEAICE_INIT
C       | 
C       |-- OBCS_INIT_VARIABLES
C       |
C       |-- PTRACERS_INIT
C       |
C       |-- LAND_INI_VARS
C       |
C       |-- CTRL_MAP_INI
C       |
C       |-- EXF_INIT
C       |
C       |-- INI_FORCING
C       |
C       |-- ECCO_INIT
C       |
C       |-- COST_INIT
C       |
C       |-- BULKF_INIT
C       |
C       |-- ICE_INIT

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_GMREDI
C--   Initialize GM/Redi parameterization
      IF (useGMRedi) CALL GMREDI_INIT( myThid )
#endif

#ifdef ALLOW_KPP
C--   Initialize KPP vertical mixing scheme.
      IF (useKPP) THEN
       CALL KPP_INIT( myThid )
       CALL KPP_OPEN_DIAGS( myThid )
      ENDIF
#endif

#ifdef ALLOW_SEAICE
C--   Initialize SEAICE model.
      IF (useSEAICE) CALL SEAICE_INIT( myThid )
#endif

#ifdef ALLOW_OBCS
C--   Open boundaries data
      IF (useOBCS) THEN
        CALL OBCS_INIT_VARIABLES( myThid )
      ENDIF
#endif

#ifdef ALLOW_PTRACERS
      IF ( usePTRACERS ) CALL PTRACERS_INIT( mythid )
#endif

#ifdef ALLOW_LAND
      IF ( useLAND ) CALL LAND_INI_VARS( mythid )
#endif

#if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN))
c--   Map the control variables onto the model state. 
      call ctrl_map_ini( mythid )
      _BARRIER
#endif

#ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
      CALL EXF_INIT( mythid )
#else
      CALL INI_FORCING( mythid )
#endif

#ifdef INCLUDE_ECCO_PACKAGE
      IF (useECCO) THEN
       CALL ECCO_INIT( myThid )
      ENDIF
#else
# ifdef ALLOW_COST
c--   Initialise the cost function.
      call cost_init( mythid )
      _BARRIER
# endif
#endif

cswdblk -- begin add ---
#ifdef ALLOW_BULK_FORCE
      IF (useBulkForce) call BULKF_INIT( mythid)
#endif
cswdblk ---end add ---

cswdice ---begin add ---
#ifdef ALLOW_THERM_SEAICE
      IF (useThermSeaIce) call ICE_INIT( mythid)
#endif
cswdice ---end add ---


      RETURN
      END
1	adcroft	1.2
2			#include "CPP_OPTIONS.h"
3
4	cnh	1.8	CBOP
5			C !ROUTINE: PACKAGES_INIT_VARIABLES
6			C !INTERFACE:
7	adcroft	1.2	SUBROUTINE PACKAGES_INIT_VARIABLES( myThid )
8	cnh	1.8
9			C !DESCRIPTION: \bv
10			C ==========================================================
11			C \| SUBROUTINE PACKAGES_INIT_VARIABLES
12			C \| o Does initialisation of package-related variable data
13			C ==========================================================
14			C \ev
15
16			C !CALLING SEQUENCE:
17			C PACKAGES_INIT_VARIABLES
18			C \|
19			C \|-- GMREDI_INIT
20			C \|
21			C \|-- KPP_INIT
22			C \|-- KPP_OPEN_DIAGS
23			C \|
24	heimbach	1.14	C \|-- SEAICE_INIT
25	dimitri	1.18	C \|
26			C \|-- OBCS_INIT_VARIABLES
27	heimbach	1.14	C \|
28	dimitri	1.18	C \|-- PTRACERS_INIT
29	cnh	1.8	C \|
30	jmc	1.19	C \|-- LAND_INI_VARS
31			C \|
32	cnh	1.8	C \|-- CTRL_MAP_INI
33			C \|
34	dimitri	1.18	C \|-- EXF_INIT
35			C \|
36			C \|-- INI_FORCING
37			C \|
38			C \|-- ECCO_INIT
39			C \|
40	cnh	1.8	C \|-- COST_INIT
41			C \|
42	dimitri	1.18	C \|-- BULKF_INIT
43	cnh	1.8	C \|
44	dimitri	1.18	C \|-- ICE_INIT
45	cnh	1.8
46			C !USES:
47	adcroft	1.2	IMPLICIT NONE
48			C === Global variables ===
49			#include "SIZE.h"
50			#include "EEPARAMS.h"
51			#include "PARAMS.h"
52
53	cnh	1.8	C !INPUT/OUTPUT PARAMETERS:
54	adcroft	1.2	C === Routine arguments ===
55			C myThid - Number of this instances
56			INTEGER myThid
57	cnh	1.8	CEOP
58	adcroft	1.2
59			#ifdef ALLOW_GMREDI
60			C-- Initialize GM/Redi parameterization
61			IF (useGMRedi) CALL GMREDI_INIT( myThid )
62			#endif
63
64			#ifdef ALLOW_KPP
65			C-- Initialize KPP vertical mixing scheme.
66			IF (useKPP) THEN
67			CALL KPP_INIT( myThid )
68			CALL KPP_OPEN_DIAGS( myThid )
69			ENDIF
70	heimbach	1.14	#endif
71
72			#ifdef ALLOW_SEAICE
73			C-- Initialize SEAICE model.
74			IF (useSEAICE) CALL SEAICE_INIT( myThid )
75	adcroft	1.2	#endif
76
77			#ifdef ALLOW_OBCS
78			C-- Open boundaries data
79			IF (useOBCS) THEN
80			CALL OBCS_INIT_VARIABLES( myThid )
81			ENDIF
82	adcroft	1.11	#endif
83
84			#ifdef ALLOW_PTRACERS
85			IF ( usePTRACERS ) CALL PTRACERS_INIT( mythid )
86	jmc	1.19	#endif
87
88			#ifdef ALLOW_LAND
89			IF ( useLAND ) CALL LAND_INI_VARS( mythid )
90	adcroft	1.2	#endif
91
92	heimbach	1.10	#if (defined (ALLOW_ADJOINT_RUN) \|\| defined (ALLOW_TANGENTLINEAR_RUN))
93	heimbach	1.5	c-- Map the control variables onto the model state.
94			call ctrl_map_ini( mythid )
95			_BARRIER
96	dimitri	1.18	#endif
97
98			#ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
99			CALL EXF_INIT( mythid )
100			#else
101			CALL INI_FORCING( mythid )
102	heimbach	1.5	#endif
103
104	adcroft	1.2	#ifdef INCLUDE_ECCO_PACKAGE
105			IF (useECCO) THEN
106			CALL ECCO_INIT( myThid )
107			ENDIF
108	heimbach	1.12	#else
109			# ifdef ALLOW_COST
110			c-- Initialise the cost function.
111			call cost_init( mythid )
112			_BARRIER
113			# endif
114	adcroft	1.2	#endif
115
116	cheisey	1.16	cswdblk -- begin add ---
117	cheisey	1.17	#ifdef ALLOW_BULK_FORCE
118			IF (useBulkForce) call BULKF_INIT( mythid)
119	cheisey	1.16	#endif
120			cswdblk ---end add ---
121
122			cswdice ---begin add ---
123	cheisey	1.17	#ifdef ALLOW_THERM_SEAICE
124			IF (useThermSeaIce) call ICE_INIT( mythid)
125	cheisey	1.16	#endif
126			cswdice ---end add ---
127
128
129	adcroft	1.2	RETURN
130			END