model/src/packages_readparms.F

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

#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 ALLOW_MIT_ADJOINT_RUN
C--   Initialise the cost function.
      call cost_readparms( mythid )
      _BARRIER

C--   Initialise the control vector.
      CALL ctrl_Init( myThid )
      _BARRIER
#endif

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

      END
1	C $Header: /u/gcmpack/models/MITgcmUV/model/src/packages_readparms.F,v 1.3 2001/02/20 19:39:42 jmc Exp $
2	C $Name: checkpoint37 $
3
4	#include "CPP_OPTIONS.h"
5
6	CStartOfInterface
7	SUBROUTINE PACKAGES_READPARMS(myThid)
8	C /==========================================================\
9	C \| SUBROUTINE PACKAGES_READPARMS \|
10	C \| o Read runtime package configuration parameters \|
11	C \|==========================================================\|
12	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	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	#endif
42
43	#ifdef ALLOW_OBCS
44	IF (useOBCS) CALL OBCS_READPARMS( myThid )
45	#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	#endif
52
53	#ifdef ALLOW_MIT_ADJOINT_RUN
54	C-- Initialise the cost function.
55	call cost_readparms( mythid )
56	_BARRIER
57
58	C-- Initialise the control vector.
59	CALL ctrl_Init( myThid )
60	_BARRIER
61	#endif
62
63	#ifdef INCLUDE_ECCO_PACKAGE
64	c-- Initialize ECCO package parameters
65	IF (useECCO) CALL ECCO_READPARMS ( myThid )
66	#endif
67
68	END