13 |
z0_new, flux_t, flux_q, dflux_s, dflux_l, fqcalving, ffonte, & |
z0_new, flux_t, flux_q, dflux_s, dflux_l, fqcalving, ffonte, & |
14 |
run_off_lic_0, flux_o, flux_g, tslab, seaice) |
run_off_lic_0, flux_o, flux_g, tslab, seaice) |
15 |
|
|
16 |
! Author: Z.X. Li (LMD/CNRS)! |
! Author: Z. X. Li (LMD/CNRS) |
17 |
! Date: 1993/08/18 |
! Date: 1993/08/18 |
18 |
! Objet : diffusion verticale de "q" et de "h" |
! Objet : diffusion verticale de "q" et de "h" |
19 |
|
|
22 |
USE dimphy, ONLY : klev, klon, zmasq |
USE dimphy, ONLY : klev, klon, zmasq |
23 |
USE dimsoil, ONLY : nsoilmx |
USE dimsoil, ONLY : nsoilmx |
24 |
USE indicesol, ONLY : is_ter, nbsrf |
USE indicesol, ONLY : is_ter, nbsrf |
25 |
USE interface_surf, ONLY : interfsurf_hq |
USE interfsurf_hq_m, ONLY : interfsurf_hq |
26 |
USE suphec_m, ONLY : rcpd, rd, rg, rkappa |
USE suphec_m, ONLY : rcpd, rd, rg, rkappa |
27 |
|
|
28 |
! Arguments: |
! Arguments: |
29 |
INTEGER knon |
INTEGER knon |
30 |
REAL, intent(in):: dtime ! intervalle du temps (s) |
REAL, intent(in):: dtime ! intervalle du temps (s) |
31 |
real date0 |
real, intent(in):: date0 |
32 |
REAL u1lay(klon) ! vitesse u de la 1ere couche (m/s) |
REAL u1lay(klon) ! vitesse u de la 1ere couche (m/s) |
33 |
REAL v1lay(klon) ! vitesse v de la 1ere couche (m/s) |
REAL v1lay(klon) ! vitesse v de la 1ere couche (m/s) |
34 |
REAL coef(klon, klev) ! le coefficient d'echange (m**2/s) |
REAL coef(klon, klev) ! le coefficient d'echange (m**2/s) |
51 |
REAL agesno(klon) |
REAL agesno(klon) |
52 |
REAL rugoro(klon) |
REAL rugoro(klon) |
53 |
REAL run_off_lic_0(klon)! runof glacier au pas de temps precedent |
REAL run_off_lic_0(klon)! runof glacier au pas de temps precedent |
54 |
integer jour ! jour de l'annee en cours |
integer, intent(in):: jour ! jour de l'annee en cours |
55 |
real rmu0(klon) ! cosinus de l'angle solaire zenithal |
real, intent(in):: rmu0(klon) ! cosinus de l'angle solaire zenithal |
56 |
real rugos(klon) ! rugosite |
real rugos(klon) ! rugosite |
57 |
integer knindex(klon) |
integer knindex(klon) |
58 |
real pctsrf(klon, nbsrf) |
real, intent(in):: pctsrf(klon, nbsrf) |
59 |
real, intent(in):: rlon(klon), rlat(klon) |
real, intent(in):: rlon(klon), rlat(klon) |
60 |
real cufi(klon), cvfi(klon) |
real cufi(klon), cvfi(klon) |
61 |
logical ok_veget |
logical ok_veget |