model/src/packages_init_variables.F

C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_init_variables.F,v 1.4 2001/02/20 19:39:42 jmc Exp $
C $Name: checkpoint37 $

#include "CPP_OPTIONS.h"

      SUBROUTINE PACKAGES_INIT_VARIABLES( myThid )
C     /==========================================================\
C     | SUBROUTINE PACKAGES_INIT_VARIABLES                       |
C     | o Does initialisation of package-related variable data   |
C     |==========================================================|
C     \==========================================================/
      IMPLICIT NONE

C     === Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     === Routine arguments ===
C     myThid -  Number of this instances
      INTEGER myThid

#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_OBCS
C--   Open boundaries data
      IF (useOBCS) THEN
        CALL OBCS_INIT_VARIABLES( myThid )
      ENDIF
#endif

#ifdef ALLOW_AIM
      IF ( useAIM ) CALL AIM_INIT( mythid )
#endif

#ifdef ALLOW_MIT_ADJOINT_RUN
c--   Map the control variables onto the model state. 
      call ctrl_map_ini( mythid )
      _BARRIER
c--   Initialise the cost function.
      call cost_init( mythid )
      _BARRIER
#endif

#ifdef INCLUDE_ECCO_PACKAGE
      IF (useECCO) THEN
       CALL ECCO_INIT( myThid )
      ENDIF
#else
      CALL INI_FORCING( myThid )
#endif

      RETURN
      END
1	heimbach	1.5	C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_init_variables.F,v 1.4 2001/02/20 19:39:42 jmc Exp $
2			C $Name: checkpoint37 $
3	adcroft	1.2
4			#include "CPP_OPTIONS.h"
5
6			SUBROUTINE PACKAGES_INIT_VARIABLES( myThid )
7			C /==========================================================\
8			C \| SUBROUTINE PACKAGES_INIT_VARIABLES \|
9			C \| o Does initialisation of package-related variable data \|
10			C \|==========================================================\|
11			C \==========================================================/
12			IMPLICIT NONE
13
14			C === Global variables ===
15			#include "SIZE.h"
16			#include "EEPARAMS.h"
17			#include "PARAMS.h"
18
19			C === Routine arguments ===
20			C myThid - Number of this instances
21			INTEGER myThid
22
23			#ifdef ALLOW_GMREDI
24			C-- Initialize GM/Redi parameterization
25			IF (useGMRedi) CALL GMREDI_INIT( myThid )
26			#endif
27
28			#ifdef ALLOW_KPP
29			C-- Initialize KPP vertical mixing scheme.
30			IF (useKPP) THEN
31			CALL KPP_INIT( myThid )
32			CALL KPP_OPEN_DIAGS( myThid )
33			ENDIF
34			#endif
35
36			#ifdef ALLOW_OBCS
37			C-- Open boundaries data
38			IF (useOBCS) THEN
39			CALL OBCS_INIT_VARIABLES( myThid )
40			ENDIF
41	jmc	1.4	#endif
42
43			#ifdef ALLOW_AIM
44			IF ( useAIM ) CALL AIM_INIT( mythid )
45	adcroft	1.2	#endif
46
47	heimbach	1.5	#ifdef ALLOW_MIT_ADJOINT_RUN
48			c-- Map the control variables onto the model state.
49			call ctrl_map_ini( mythid )
50			_BARRIER
51			c-- Initialise the cost function.
52			call cost_init( mythid )
53			_BARRIER
54			#endif
55
56	adcroft	1.2	#ifdef INCLUDE_ECCO_PACKAGE
57			IF (useECCO) THEN
58			CALL ECCO_INIT( myThid )
59			ENDIF
60			#else
61			CALL INI_FORCING( myThid )
62			#endif
63
64			RETURN
65			END