model/src/packages_init.F

C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_init.F,v 1.2 2000/09/11 20:42:57 heimbach Exp $

#include "CPP_OPTIONS.h"

      SUBROUTINE PACKAGES_INIT( myThid )
C     /==========================================================\
C     | SUBROUTINE PACKAGES_INIT                                 |
C     | o Does initialisation of package-related fields          |
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 INCLUDE_ECCO_PACKAGE

      IF (useECCO) THEN
       CALL ECCO_INIT( myThid )
      ENDIF

#endif

#ifndef INCLUDE_ECCO_PACKAGE
      call ini_forcing( mythid )
#endif

      return
      end
1	C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_init.F,v 1.2 2000/09/11 20:42:57 heimbach Exp $
2
3	#include "CPP_OPTIONS.h"
4
5	SUBROUTINE PACKAGES_INIT( myThid )
6	C /==========================================================\
7	C \| SUBROUTINE PACKAGES_INIT \|
8	C \| o Does initialisation of package-related fields \|
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 INCLUDE_ECCO_PACKAGE
36
37	IF (useECCO) THEN
38	CALL ECCO_INIT( myThid )
39	ENDIF
40
41	#endif
42
43	#ifndef INCLUDE_ECCO_PACKAGE
44	call ini_forcing( mythid )
45	#endif
46
47	return
48	end