model/src/packages_readparms.F

#include "CPP_OPTIONS.h"

CStartOfInterface
      SUBROUTINE PACKAGES_READPARMS(myThid)
C     /==========================================================\
C     | SUBROUTINE PACKAGES_READPARMS                            |
C     | o Read runtime configuration parameters from             |
C     |   file data.${pkg} for every package ${pkg}              |
C     |==========================================================|
C     |                                                          |
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 INCLUDE_ECCO_PACKAGE
c--   Initialize ECCO package parameters
      IF (useECCO) CALL ECCO_READPARMS ( myThid )
#endif

      END
1	#include "CPP_OPTIONS.h"
2
3	CStartOfInterface
4	SUBROUTINE PACKAGES_READPARMS(myThid)
5	C /==========================================================\
6	C \| SUBROUTINE PACKAGES_READPARMS \|
7	C \| o Read runtime configuration parameters from \|
8	C \| file data.${pkg} for every package ${pkg} \|
9	C \|==========================================================\|
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	INTEGER myThid
21	CEndOfInterface
22
23	C == Local variables ==
24
25	#ifdef ALLOW_GMREDI
26	C-- Initialize GM/Redi parameters
27	IF (useGMRedi) CALL GMREDI_READPARMS( myThid )
28	#endif
29
30	#ifdef ALLOW_KPP
31	C-- Initialize KPP parameters
32	IF (useKPP) CALL KPP_READPARMS( myThid )
33	#endif
34
35	#ifdef INCLUDE_ECCO_PACKAGE
36	c-- Initialize ECCO package parameters
37	IF (useECCO) CALL ECCO_READPARMS ( myThid )
38	#endif
39
40	END