model/src/packages_readparms.F

C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_readparms.F,v 1.2 2001/02/02 21:04:48 adcroft Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

CStartOfInterface
      SUBROUTINE PACKAGES_READPARMS(myThid)
C     /==========================================================\
C     | SUBROUTINE PACKAGES_READPARMS                            |
C     | o Read runtime package configuration parameters          |
C     |==========================================================|
C     |   Packages can have internal runtime configuration       |
C     |   parameters. A package provides a routine               |
C     |   ${PKGNAME}_READ_PARMS to read these parameters. In     |
C     |   general this routine should read parameters from a file|
C     |   called data.${pkgname}.                                |
C     |   This routine (S/R PACKAGES_READPARMS) calls per-package|
C     |   parameter reading routines.                            |
C     \==========================================================/
      IMPLICIT NONE

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

C     == Routine arguments ==
      INTEGER myThid
CEndOfInterface

C     == Local variables ==

#ifdef ALLOW_GMREDI
C--   Initialize GM/Redi parameters
      IF (useGMRedi) CALL GMREDI_READPARMS( myThid )
#endif

#ifdef ALLOW_KPP
C--   Initialize KPP parameters
      IF (useKPP) CALL KPP_READPARMS( myThid )
#endif

#ifdef ALLOW_OBCS
      IF (useOBCS) CALL OBCS_READPARMS( myThid )
#endif

#ifdef ALLOW_AIM
c--   Read in AIM package parameters
C     Currently AIM does not have any runtime parameters
C     IF (useAIM) CALL AIM_READPARMS ( myThid )
#endif

#ifdef INCLUDE_ECCO_PACKAGE
c--   Initialize ECCO package parameters
      IF (useECCO) CALL ECCO_READPARMS ( myThid )
#endif

      END
1	jmc	1.3	C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_readparms.F,v 1.2 2001/02/02 21:04:48 adcroft Exp $
2	adcroft	1.2	C $Name: $
3
4	heimbach	1.1	#include "CPP_OPTIONS.h"
5
6			CStartOfInterface
7			SUBROUTINE PACKAGES_READPARMS(myThid)
8			C /==========================================================\
9			C \| SUBROUTINE PACKAGES_READPARMS \|
10	adcroft	1.2	C \| o Read runtime package configuration parameters \|
11	heimbach	1.1	C \|==========================================================\|
12	adcroft	1.2	C \| Packages can have internal runtime configuration \|
13			C \| parameters. A package provides a routine \|
14			C \| ${PKGNAME}_READ_PARMS to read these parameters. In \|
15			C \| general this routine should read parameters from a file\|
16			C \| called data.${pkgname}. \|
17			C \| This routine (S/R PACKAGES_READPARMS) calls per-package\|
18			C \| parameter reading routines. \|
19	heimbach	1.1	C \==========================================================/
20			IMPLICIT NONE
21
22			C == Global variables ==
23			#include "SIZE.h"
24			#include "EEPARAMS.h"
25			#include "PARAMS.h"
26
27			C == Routine arguments ==
28			INTEGER myThid
29			CEndOfInterface
30
31			C == Local variables ==
32
33			#ifdef ALLOW_GMREDI
34			C-- Initialize GM/Redi parameters
35			IF (useGMRedi) CALL GMREDI_READPARMS( myThid )
36			#endif
37
38			#ifdef ALLOW_KPP
39			C-- Initialize KPP parameters
40			IF (useKPP) CALL KPP_READPARMS( myThid )
41	adcroft	1.2	#endif
42
43			#ifdef ALLOW_OBCS
44			IF (useOBCS) CALL OBCS_READPARMS( myThid )
45	jmc	1.3	#endif
46
47			#ifdef ALLOW_AIM
48			c-- Read in AIM package parameters
49			C Currently AIM does not have any runtime parameters
50			C IF (useAIM) CALL AIM_READPARMS ( myThid )
51	heimbach	1.1	#endif
52
53			#ifdef INCLUDE_ECCO_PACKAGE
54			c-- Initialize ECCO package parameters
55			IF (useECCO) CALL ECCO_READPARMS ( myThid )
56			#endif
57
58			END