282 |
CALL interfsurf_hq(itime, dtime, jour, rmu0, nisurf, knon, knindex, & |
CALL interfsurf_hq(itime, dtime, jour, rmu0, nisurf, knon, knindex, & |
283 |
pctsrf, rlat, debut, nsoilmx, tsoil, qsol, u1lay, v1lay, & |
pctsrf, rlat, debut, nsoilmx, tsoil, qsol, u1lay, v1lay, & |
284 |
temp_air, spechum, tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef, & |
temp_air, spechum, tq_cdrag, petAcoef, peqAcoef, petBcoef, peqBcoef, & |
285 |
precip_rain, precip_snow, fder, rugos, rugoro, snow, qsurf, ts, & |
precip_rain, precip_snow, fder, rugos, rugoro, snow, qsurf, ts(:knon), & |
286 |
p1lay, psref, radsol, evap, fluxsens, fluxlat, dflux_l, dflux_s, & |
p1lay, psref, radsol, evap, fluxsens, fluxlat, dflux_l, dflux_s, & |
287 |
tsurf_new, alb_new, alblw, z0_new, pctsrf_new, agesno, fqcalving, & |
tsurf_new(:knon), alb_new, alblw, z0_new, pctsrf_new, agesno, fqcalving, & |
288 |
ffonte, run_off_lic_0, flux_o, flux_g) |
ffonte, run_off_lic_0, flux_o, flux_g) |
289 |
|
|
290 |
do i = 1, knon |
do i = 1, knon |