1 |
|
2 |
#include "CPP_OPTIONS.h" |
3 |
|
4 |
CStartOfInterface |
5 |
CBOP |
6 |
C !ROUTINE: PACKAGES_READPARMS |
7 |
C !INTERFACE: |
8 |
SUBROUTINE PACKAGES_READPARMS(myThid) |
9 |
|
10 |
C !DESCRIPTION: \bv |
11 |
C *==========================================================* |
12 |
C | SUBROUTINE PACKAGES_READPARMS |
13 |
C | o Read runtime package configuration parameters |
14 |
C *==========================================================* |
15 |
C | Packages can have internal runtime configuration |
16 |
C | parameters. A package provides a routine |
17 |
C | ${PKGNAME}_READ_PARMS to read these parameters. In |
18 |
C | general this routine should read parameters from a file |
19 |
C | called data.${pkgname}. |
20 |
C | This routine (S/R PACKAGES_READPARMS) calls per-package |
21 |
C | parameter reading routines. |
22 |
C *==========================================================* |
23 |
C \ev |
24 |
|
25 |
C !CALLING SEQUENCE: |
26 |
C PACKAGES_READPARMS |
27 |
C | |
28 |
C |-- GMREDI_READPARMS |
29 |
C | |
30 |
C |-- KPP_READPARMS |
31 |
C | |
32 |
C |-- SEAICE_READPARMS |
33 |
C | |
34 |
C |-- SHAP_FILT_READPARMS |
35 |
C | |
36 |
C |-- ZONAL_FILT_READPARMS |
37 |
C | |
38 |
C |-- OBCS_READPARMS |
39 |
C | |
40 |
C |-- AIM_INITIALISE |
41 |
C | |
42 |
C |-- COST_READPARMS |
43 |
C | |
44 |
C |-- CTRL_INIT |
45 |
C | |
46 |
C |-- OPTIM_READPARMS |
47 |
C | |
48 |
C |-- GRDCHK_READPARMS |
49 |
C | |
50 |
C |-- ECCO_READPARMS |
51 |
|
52 |
|
53 |
C !USES: |
54 |
IMPLICIT NONE |
55 |
C == Global variables == |
56 |
#include "SIZE.h" |
57 |
#include "EEPARAMS.h" |
58 |
#include "PARAMS.h" |
59 |
|
60 |
C == Routine arguments == |
61 |
INTEGER myThid |
62 |
CEOP |
63 |
|
64 |
#ifdef ALLOW_GMREDI |
65 |
C-- Initialize GM/Redi parameters |
66 |
IF (useGMRedi) CALL GMREDI_READPARMS( myThid ) |
67 |
#endif |
68 |
|
69 |
#ifdef ALLOW_KPP |
70 |
C-- Initialize KPP parameters |
71 |
IF (useKPP) CALL KPP_READPARMS( myThid ) |
72 |
#endif |
73 |
|
74 |
#ifdef ALLOW_SEAICE |
75 |
C-- Initialize SEAICE parameters |
76 |
IF (useSEAICE) CALL SEAICE_READPARMS( myThid ) |
77 |
#endif |
78 |
|
79 |
#ifdef ALLOW_SHAP_FILT |
80 |
IF (useSHAP_FILT) CALL SHAP_FILT_READPARMS( myThid ) |
81 |
#endif |
82 |
|
83 |
#ifdef ALLOW_ZONAL_FILT |
84 |
IF (useZONAL_FILT) CALL ZONAL_FILT_READPARMS( myThid ) |
85 |
#endif |
86 |
|
87 |
#ifdef ALLOW_OBCS |
88 |
IF (useOBCS) CALL OBCS_READPARMS( myThid ) |
89 |
#endif |
90 |
|
91 |
#ifdef ALLOW_PTRACERS |
92 |
IF (usePTRACERS) CALL PTRACERS_READPARMS( myThid ) |
93 |
#endif |
94 |
|
95 |
#ifdef ALLOW_AIM |
96 |
C-- Initialise & Read AIM physical parameters |
97 |
IF (useAIM) CALL AIM_INITIALISE( myThid ) |
98 |
#endif |
99 |
|
100 |
#if (defined (ALLOW_ADJOINT_RUN) || defined (ALLOW_TANGENTLINEAR_RUN)) |
101 |
C-- Initialise the optim. parameters. |
102 |
call optim_readparms( myThid ) |
103 |
_BARRIER |
104 |
C-- Initialise the control vector. |
105 |
CALL ctrl_init( myThid ) |
106 |
_BARRIER |
107 |
#endif |
108 |
|
109 |
#ifdef ALLOW_GRADIENT_CHECK |
110 |
C-- Initialise gradient check parameters |
111 |
if (useGrdchk) call grdchk_readparms( myThid ) |
112 |
#endif |
113 |
|
114 |
#ifdef ALLOW_CALENDAR |
115 |
C-- Initialise the calendar package. |
116 |
call cal_readparms( myThid ) |
117 |
#endif |
118 |
|
119 |
C-- Custom routine to set forcing fields. |
120 |
#ifdef INCLUDE_EXTERNAL_FORCING_PACKAGE |
121 |
call exf_readparms ( mythid ) |
122 |
#endif |
123 |
|
124 |
#ifdef INCLUDE_ECCO_PACKAGE |
125 |
c-- Initialize ECCO package parameters |
126 |
IF (useECCO) CALL ECCO_READPARMS ( myThid ) |
127 |
#else |
128 |
# ifdef ALLOW_COST |
129 |
C-- Initialise the cost function. |
130 |
call cost_readparms( mythid ) |
131 |
_BARRIER |
132 |
# endif |
133 |
#endif |
134 |
|
135 |
END |