aim.5l_Equatorial_Channel/code/packages_init_variables.F

C $Header: /u/gcmpack/models/MITgcmUV/verification/aim.5l_Equatorial_Channel/code/packages_init_variables.F,v 1.3 2001/02/04 14:38:51 cnh Exp $
C $Name:  $

#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

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

      RETURN
      END
1	C $Header: /u/gcmpack/models/MITgcmUV/verification/aim.5l_Equatorial_Channel/code/packages_init_variables.F,v 1.3 2001/02/04 14:38:51 cnh Exp $
2	C $Name: $
3
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	#endif
42
43	#ifdef INCLUDE_ECCO_PACKAGE
44	IF (useECCO) THEN
45	CALL ECCO_INIT( myThid )
46	ENDIF
47	#else
48	CALL INI_FORCING( myThid )
49	#endif
50
51	#ifdef ALLOW_AIM
52	IF ( useAIM ) CALL AIM_INIT( mythid )
53	#endif
54
55	RETURN
56	END