model/src/packages_init_variables.F

C $Header: /u/gcmpack/models/MITgcmUV/model/src/Attic/packages_init_variables.F,v 1.1.2.1 2001/01/30 21:03:00 adcroft Exp $

#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 INCLUDE_ECCO_PACKAGE
      IF (useECCO) THEN
       CALL ECCO_INIT( myThid )
      ENDIF
#else
      CALL INI_FORCING( myThid )
#endif


      RETURN
      END
1	adcroft	1.2	C $Header: /u/gcmpack/models/MITgcmUV/model/src/Attic/packages_init_variables.F,v 1.1.2.1 2001/01/30 21:03:00 adcroft Exp $
2
3			#include "CPP_OPTIONS.h"
4
5			SUBROUTINE PACKAGES_INIT_VARIABLES( myThid )
6			C /==========================================================\
7			C \| SUBROUTINE PACKAGES_INIT_VARIABLES \|
8			C \| o Does initialisation of package-related variable data \|
9			C \|==========================================================\|
10			C \==========================================================/
11			IMPLICIT NONE
12
13			C === Global variables ===
14			#include "SIZE.h"
15			#include "EEPARAMS.h"
16			#include "PARAMS.h"
17
18			C === Routine arguments ===
19			C myThid - Number of this instances
20			INTEGER myThid
21
22			#ifdef ALLOW_GMREDI
23			C-- Initialize GM/Redi parameterization
24			IF (useGMRedi) CALL GMREDI_INIT( myThid )
25			#endif
26
27			#ifdef ALLOW_KPP
28			C-- Initialize KPP vertical mixing scheme.
29			IF (useKPP) THEN
30			CALL KPP_INIT( myThid )
31			CALL KPP_OPEN_DIAGS( myThid )
32			ENDIF
33			#endif
34
35			#ifdef ALLOW_OBCS
36			C-- Open boundaries data
37			IF (useOBCS) THEN
38			CALL OBCS_INIT_VARIABLES( myThid )
39			ENDIF
40			#endif
41
42			#ifdef INCLUDE_ECCO_PACKAGE
43			IF (useECCO) THEN
44			CALL ECCO_INIT( myThid )
45			ENDIF
46			#else
47			CALL INI_FORCING( myThid )
48			#endif
49
50
51			RETURN
52			END