243 |
p1lay(1:knon) = pplay(1:knon, 1) |
p1lay(1:knon) = pplay(1:knon, 1) |
244 |
|
|
245 |
CALL interfsurf_hq(dtime, julien, rmu0, nisurf, knindex, debut, tsoil, & |
CALL interfsurf_hq(dtime, julien, rmu0, nisurf, knindex, debut, tsoil, & |
246 |
qsol, u1lay, v1lay, temp_air, spechum, tq_cdrag, petAcoef, peqAcoef, & |
qsol, u1lay, v1lay, temp_air, spechum, tq_cdrag(:knon), petAcoef, peqAcoef, & |
247 |
petBcoef, peqBcoef, precip_rain, precip_snow, rugos, rugoro, snow, & |
petBcoef, peqBcoef, precip_rain, precip_snow, rugos, rugoro, snow, & |
248 |
qsurf, ts, p1lay, psref, radsol, evap, flux_t, fluxlat, dflux_l, & |
qsurf, ts, p1lay, psref, radsol, evap, flux_t, fluxlat, dflux_l, & |
249 |
dflux_s, tsurf_new, albedo, z0_new, pctsrf_new_sic, agesno, & |
dflux_s, tsurf_new, albedo, z0_new, pctsrf_new_sic, agesno, & |