24 |
c Patrick Heimbach, heimbach@mit.edu 01-May-2001 |
c Patrick Heimbach, heimbach@mit.edu 01-May-2001 |
25 |
c - added obcs parameters |
c - added obcs parameters |
26 |
c |
c |
27 |
|
c Dimitris Menemenlis, menemenlis@jpl.nasa.gov 20-Dec-2002 |
28 |
|
c - Added evaporation parameters, removed scal_prc. |
29 |
|
c |
30 |
c ================================================================== |
c ================================================================== |
31 |
c HEADER exf_param |
c HEADER exf_param |
32 |
c ================================================================== |
c ================================================================== |
62 |
character*1 sfluxmask |
character*1 sfluxmask |
63 |
parameter( sfluxmask = 's' ) |
parameter( sfluxmask = 's' ) |
64 |
|
|
65 |
|
integer evapstartdate1 |
66 |
|
integer evapstartdate2 |
67 |
|
integer evapstartdate(4) |
68 |
|
_RL evapperiod |
69 |
|
character*1 evapmask |
70 |
|
parameter( evapmask = 's' ) |
71 |
|
|
72 |
integer precipstartdate1 |
integer precipstartdate1 |
73 |
integer precipstartdate2 |
integer precipstartdate2 |
74 |
integer precipstartdate(4) |
integer precipstartdate(4) |
156 |
character*(128) hfluxfile |
character*(128) hfluxfile |
157 |
character*(128) atempfile |
character*(128) atempfile |
158 |
character*(128) aqhfile |
character*(128) aqhfile |
159 |
|
character*(128) evapfile |
160 |
character*(128) precipfile |
character*(128) precipfile |
161 |
character*(128) sfluxfile |
character*(128) sfluxfile |
162 |
character*(128) runofffile |
character*(128) runofffile |
174 |
& atempstartdate1, atempstartdate2, |
& atempstartdate1, atempstartdate2, |
175 |
& aqhstartdate1, aqhstartdate2, |
& aqhstartdate1, aqhstartdate2, |
176 |
& sfluxstartdate1, sfluxstartdate2, |
& sfluxstartdate1, sfluxstartdate2, |
177 |
|
& evapstartdate1, evapstartdate2, |
178 |
& runoffstartdate1, runoffstartdate2, |
& runoffstartdate1, runoffstartdate2, |
179 |
& precipstartdate1, precipstartdate2, |
& precipstartdate1, precipstartdate2, |
180 |
& ustressstartdate1, ustressstartdate2, |
& ustressstartdate1, ustressstartdate2, |
192 |
& atempstartdate, |
& atempstartdate, |
193 |
& aqhstartdate, |
& aqhstartdate, |
194 |
& sfluxstartdate, |
& sfluxstartdate, |
195 |
|
& evapstartdate, |
196 |
& precipstartdate, |
& precipstartdate, |
197 |
& runoffstartdate, |
& runoffstartdate, |
198 |
& ustressstartdate, |
& ustressstartdate, |
212 |
& atempperiod, |
& atempperiod, |
213 |
& aqhperiod, |
& aqhperiod, |
214 |
& sfluxperiod, |
& sfluxperiod, |
215 |
|
& evapperiod, |
216 |
& precipperiod, |
& precipperiod, |
217 |
& runoffperiod, |
& runoffperiod, |
218 |
& ustressperiod, |
& ustressperiod, |
232 |
& atempfile, |
& atempfile, |
233 |
& aqhfile, |
& aqhfile, |
234 |
& sfluxfile, |
& sfluxfile, |
235 |
|
& evapfile, |
236 |
& precipfile, |
& precipfile, |
237 |
& runofffile, |
& runofffile, |
238 |
& ustressfile, |
& ustressfile, |
261 |
_RL scal_sst |
_RL scal_sst |
262 |
_RL scal_sss |
_RL scal_sss |
263 |
_RL scal_apressure |
_RL scal_apressure |
|
_RL scal_prc |
|
264 |
_RL scal_sfl |
_RL scal_sfl |
265 |
|
|
266 |
common /exf_param_scal/ |
common /exf_param_scal/ |
271 |
& , scal_sst |
& , scal_sst |
272 |
& , scal_sss |
& , scal_sss |
273 |
& , scal_apressure |
& , scal_apressure |
|
& , scal_prc |
|
274 |
& , scal_sfl |
& , scal_sfl |