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

cph-- moved further down
cph#ifdef ALLOW_OBCS
cphC--   Open boundaries data
cph      IF (useOBCS) THEN
cph        CALL OBCS_INIT_VARIABLES( myThid )
cph      ENDIF
cph#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) || \
     defined (ALLOW_ECCO_OPTIMIZATION))
c--   Initialise auxiliary xx_ fields
      CALL CTRL_INIT_VARIABLES ( mythid )
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 ALLOW_COST
c--   Initialise the cost function.
      CALL COST_INITVARIA( mythid )
      _BARRIER
#endif

#ifdef ALLOW_OBCS
C--   Open boundaries data
      IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )
#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	heimbach	1.20	cph-- moved further down
78			cph#ifdef ALLOW_OBCS
79			cphC-- Open boundaries data
80			cph IF (useOBCS) THEN
81			cph CALL OBCS_INIT_VARIABLES( myThid )
82			cph ENDIF
83			cph#endif
84	adcroft	1.11
85			#ifdef ALLOW_PTRACERS
86			IF ( usePTRACERS ) CALL PTRACERS_INIT( mythid )
87	jmc	1.19	#endif
88
89			#ifdef ALLOW_LAND
90			IF ( useLAND ) CALL LAND_INI_VARS( mythid )
91	adcroft	1.2	#endif
92
93	heimbach	1.20	#if (defined (ALLOW_ADJOINT_RUN) \|\| \
94			defined (ALLOW_TANGENTLINEAR_RUN) \|\| \
95			defined (ALLOW_ECCO_OPTIMIZATION))
96			c-- Initialise auxiliary xx_ fields
97			CALL CTRL_INIT_VARIABLES ( mythid )
98			c-- Map the control variables onto the model state.
99			CALL CTRL_MAP_INI( mythid )
100	heimbach	1.5	_BARRIER
101	dimitri	1.18	#endif
102
103			#ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
104			CALL EXF_INIT( mythid )
105			#else
106			CALL INI_FORCING( mythid )
107	heimbach	1.5	#endif
108
109	heimbach	1.20	#ifdef ALLOW_COST
110	heimbach	1.12	c-- Initialise the cost function.
111	heimbach	1.20	CALL COST_INITVARIA( mythid )
112	heimbach	1.12	_BARRIER
113	heimbach	1.20	#endif
114
115			#ifdef ALLOW_OBCS
116			C-- Open boundaries data
117			IF (useOBCS) CALL OBCS_INIT_VARIABLES( myThid )
118	adcroft	1.2	#endif
119
120	cheisey	1.16	cswdblk -- begin add ---
121	cheisey	1.17	#ifdef ALLOW_BULK_FORCE
122			IF (useBulkForce) call BULKF_INIT( mythid)
123	cheisey	1.16	#endif
124			cswdblk ---end add ---
125
126			cswdice ---begin add ---
127	cheisey	1.17	#ifdef ALLOW_THERM_SEAICE
128			IF (useThermSeaIce) call ICE_INIT( mythid)
129	cheisey	1.16	#endif
130			cswdice ---end add ---
131
132
133	adcroft	1.2	RETURN
134			END