97 |
& exf_iprec, exf_yftype, |
& exf_iprec, exf_yftype, |
98 |
& scal_hfl, scal_ust, scal_vst, |
& scal_hfl, scal_ust, scal_vst, |
99 |
& scal_swf, scal_sst, scal_sss, |
& scal_swf, scal_sst, scal_sss, |
100 |
& scal_apressure, scal_sfl, scal_runoff |
& scal_apressure, scal_sfl, scal_runoff, |
101 |
|
& EXFwindOnBgrid |
102 |
|
|
103 |
_BEGIN_MASTER(mythid) |
_BEGIN_MASTER(mythid) |
104 |
|
|
244 |
|
|
245 |
cds convert runoff from m/yr to m/s and change sign. |
cds convert runoff from m/yr to m/s and change sign. |
246 |
scal_runoff = -1.0/(86400.*365.0) |
scal_runoff = -1.0/(86400.*365.0) |
247 |
|
c |
248 |
|
EXFwindOnBgrid = .FALSE. |
249 |
|
|
250 |
c Check for the availability of the right calendar version. |
c Check for the availability of the right calendar version. |
251 |
if ( calendarversion .ne. usescalendarversion ) then |
if ( calendarversion .ne. usescalendarversion ) then |