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       |-- 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

#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			C \|-- CTRL_MAP_INI
31			C \|
32	dimitri	1.18	C \|-- EXF_INIT
33			C \|
34			C \|-- INI_FORCING
35			C \|
36			C \|-- ECCO_INIT
37			C \|
38	cnh	1.8	C \|-- COST_INIT
39			C \|
40	dimitri	1.18	C \|-- BULKF_INIT
41	cnh	1.8	C \|
42	dimitri	1.18	C \|-- ICE_INIT
43	cnh	1.8
44			C !USES:
45	adcroft	1.2	IMPLICIT NONE
46			C === Global variables ===
47			#include "SIZE.h"
48			#include "EEPARAMS.h"
49			#include "PARAMS.h"
50
51	cnh	1.8	C !INPUT/OUTPUT PARAMETERS:
52	adcroft	1.2	C === Routine arguments ===
53			C myThid - Number of this instances
54			INTEGER myThid
55	cnh	1.8	CEOP
56	adcroft	1.2
57			#ifdef ALLOW_GMREDI
58			C-- Initialize GM/Redi parameterization
59			IF (useGMRedi) CALL GMREDI_INIT( myThid )
60			#endif
61
62			#ifdef ALLOW_KPP
63			C-- Initialize KPP vertical mixing scheme.
64			IF (useKPP) THEN
65			CALL KPP_INIT( myThid )
66			CALL KPP_OPEN_DIAGS( myThid )
67			ENDIF
68	heimbach	1.14	#endif
69
70			#ifdef ALLOW_SEAICE
71			C-- Initialize SEAICE model.
72			IF (useSEAICE) CALL SEAICE_INIT( myThid )
73	adcroft	1.2	#endif
74
75			#ifdef ALLOW_OBCS
76			C-- Open boundaries data
77			IF (useOBCS) THEN
78			CALL OBCS_INIT_VARIABLES( myThid )
79			ENDIF
80	adcroft	1.11	#endif
81
82			#ifdef ALLOW_PTRACERS
83			IF ( usePTRACERS ) CALL PTRACERS_INIT( mythid )
84	adcroft	1.2	#endif
85
86	heimbach	1.10	#if (defined (ALLOW_ADJOINT_RUN) \|\| defined (ALLOW_TANGENTLINEAR_RUN))
87	heimbach	1.5	c-- Map the control variables onto the model state.
88			call ctrl_map_ini( mythid )
89			_BARRIER
90	dimitri	1.18	#endif
91
92			#ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE
93			CALL EXF_INIT( mythid )
94			#else
95			CALL INI_FORCING( mythid )
96	heimbach	1.5	#endif
97
98	adcroft	1.2	#ifdef INCLUDE_ECCO_PACKAGE
99			IF (useECCO) THEN
100			CALL ECCO_INIT( myThid )
101			ENDIF
102	heimbach	1.12	#else
103			# ifdef ALLOW_COST
104			c-- Initialise the cost function.
105			call cost_init( mythid )
106			_BARRIER
107			# endif
108	adcroft	1.2	#endif
109
110	cheisey	1.16	cswdblk -- begin add ---
111	cheisey	1.17	#ifdef ALLOW_BULK_FORCE
112			IF (useBulkForce) call BULKF_INIT( mythid)
113	cheisey	1.16	#endif
114			cswdblk ---end add ---
115
116			cswdice ---begin add ---
117	cheisey	1.17	#ifdef ALLOW_THERM_SEAICE
118			IF (useThermSeaIce) call ICE_INIT( mythid)
119	cheisey	1.16	#endif
120			cswdice ---end add ---
121
122
123	adcroft	1.2	RETURN
124			END