subroutine calcul_fluxs_mod::calcul_fluxs |
( |
integer, intent(in) |
knon, |
|
|
integer, intent(in) |
nisurf, |
|
|
real, intent(in) |
dtime, |
|
|
real, dimension(klon), intent(in) |
tsurf, |
|
|
real, dimension(klon), intent(in) |
p1lay, |
|
|
real, dimension(klon), intent(in) |
cal, |
|
|
real, dimension(klon), intent(in) |
beta, |
|
|
real, dimension(klon), intent(in) |
cdragh, |
|
|
real, dimension(klon), intent(in) |
cdragq, |
|
|
real, dimension(klon), intent(in) |
ps, |
|
|
real, dimension(klon), intent(in) |
precip_rain, |
|
|
real, dimension(klon), intent(in) |
precip_snow, |
|
|
real, dimension(klon), intent(inout) |
snow, |
|
|
real, dimension(klon), intent(out) |
qsurf, |
|
|
real, dimension(klon), intent(in) |
radsol, |
|
|
real, dimension(klon), intent(in) |
dif_grnd, |
|
|
real, dimension(klon), intent(in) |
t1lay, |
|
|
real, dimension(klon), intent(in) |
q1lay, |
|
|
real, dimension(klon), intent(in) |
u1lay, |
|
|
real, dimension(klon), intent(in) |
v1lay, |
|
|
real, dimension(klon), intent(in) |
gustiness, |
|
|
real, intent(in) |
fqsat, |
|
|
real, dimension(klon), intent(in) |
petAcoef, |
|
|
real, dimension(klon), intent(in) |
peqAcoef, |
|
|
real, dimension(klon), intent(in) |
petBcoef, |
|
|
real, dimension(klon), intent(in) |
peqBcoef, |
|
|
real, dimension(klon), intent(out) |
tsurf_new, |
|
|
real, dimension(klon), intent(out) |
evap, |
|
|
real, dimension(klon), intent(out) |
fluxlat, |
|
|
real, dimension(klon), intent(out) |
fluxsens, |
|
|
real, dimension(klon), intent(out) |
dflux_s, |
|
|
real, dimension(klon), intent(out) |
dflux_l |
|
) |
| |