6 |
|
|
7 |
SUBROUTINE clmain(dtime, pctsrf, t, q, u, v, julien, mu0, ftsol, cdmmax, & |
SUBROUTINE clmain(dtime, pctsrf, t, q, u, v, julien, mu0, ftsol, cdmmax, & |
8 |
cdhmax, ksta, ksta_ter, ok_kzmin, ftsoil, qsol, paprs, pplay, fsnow, & |
cdhmax, ksta, ksta_ter, ok_kzmin, ftsoil, qsol, paprs, pplay, fsnow, & |
9 |
qsurf, evap, falbe, fluxlat, rain_fall, snow_f, fsolsw, fsollw, fder, & |
qsurf, evap, falbe, fluxlat, rain_fall, snow_f, fsolsw, fsollw, frugs, & |
10 |
frugs, agesno, rugoro, d_t, d_q, d_u, d_v, d_ts, flux_t, flux_q, & |
agesno, rugoro, d_t, d_q, d_u, d_v, d_ts, flux_t, flux_q, flux_u, & |
11 |
flux_u, flux_v, cdragh, cdragm, q2, dflux_t, dflux_q, ycoefh, zu1, & |
flux_v, cdragh, cdragm, q2, dflux_t, dflux_q, ycoefh, zu1, zv1, t2m, & |
12 |
zv1, t2m, q2m, u10m, v10m, pblh, capcl, oliqcl, cteicl, pblt, therm, & |
q2m, u10m, v10m, pblh, capcl, oliqcl, cteicl, pblt, therm, trmb1, & |
13 |
trmb1, trmb2, trmb3, plcl, fqcalving, ffonte, run_off_lic_0) |
trmb2, trmb3, plcl, fqcalving, ffonte, run_off_lic_0) |
14 |
|
|
15 |
! From phylmd/clmain.F, version 1.6, 2005/11/16 14:47:19 |
! From phylmd/clmain.F, version 1.6, 2005/11/16 14:47:19 |
16 |
! Author: Z. X. Li (LMD/CNRS), date: 1993/08/18 |
! Author: Z. X. Li (LMD/CNRS), date: 1993/08/18 |
80 |
! solid water mass flux (kg/m2/s), positive down |
! solid water mass flux (kg/m2/s), positive down |
81 |
|
|
82 |
REAL, INTENT(IN):: fsolsw(klon, nbsrf), fsollw(klon, nbsrf) |
REAL, INTENT(IN):: fsolsw(klon, nbsrf), fsollw(klon, nbsrf) |
|
REAL, intent(in):: fder(:) ! (klon) |
|
83 |
REAL, intent(inout):: frugs(klon, nbsrf) ! longueur de rugosit\'e (en m) |
REAL, intent(inout):: frugs(klon, nbsrf) ! longueur de rugosit\'e (en m) |
84 |
real agesno(klon, nbsrf) |
real agesno(klon, nbsrf) |
85 |
REAL, INTENT(IN):: rugoro(klon) |
REAL, INTENT(IN):: rugoro(klon) |
169 |
REAL ysnow_f(klon) |
REAL ysnow_f(klon) |
170 |
! solid water mass flux (kg/m2/s), positive down |
! solid water mass flux (kg/m2/s), positive down |
171 |
|
|
|
REAL yfder(klon) |
|
172 |
REAL yrugm(klon), yrads(klon), yrugoro(klon) |
REAL yrugm(klon), yrads(klon), yrugoro(klon) |
173 |
REAL yfluxlat(klon) |
REAL yfluxlat(klon) |
174 |
REAL y_d_ts(klon) |
REAL y_d_ts(klon) |
320 |
yrain_f(j) = rain_fall(i) |
yrain_f(j) = rain_fall(i) |
321 |
ysnow_f(j) = snow_f(i) |
ysnow_f(j) = snow_f(i) |
322 |
yagesno(j) = agesno(i, nsrf) |
yagesno(j) = agesno(i, nsrf) |
|
yfder(j) = fder(i) |
|
323 |
yrugos(j) = frugs(i, nsrf) |
yrugos(j) = frugs(i, nsrf) |
324 |
yrugoro(j) = rugoro(i) |
yrugoro(j) = rugoro(i) |
325 |
yu1(j) = u1lay(i) |
yu1(j) = u1lay(i) |
433 |
ytsoil(:knon, :), yqsol, mu0, yrugos, yrugoro, yu1, yv1, & |
ytsoil(:knon, :), yqsol, mu0, yrugos, yrugoro, yu1, yv1, & |
434 |
coefh(:knon, :), yt, yq, yts(:knon), ypaprs, ypplay, ydelp, & |
coefh(:knon, :), yt, yq, yts(:knon), ypaprs, ypplay, ydelp, & |
435 |
yrads(:knon), yalb(:knon), snow(:knon), yqsurf, yrain_f, & |
yrads(:knon), yalb(:knon), snow(:knon), yqsurf, yrain_f, & |
436 |
ysnow_f, yfder(:knon), yfluxlat(:knon), pctsrf_new_sic, & |
ysnow_f, yfluxlat(:knon), pctsrf_new_sic, yagesno(:knon), & |
437 |
yagesno(:knon), y_d_t, y_d_q, y_d_ts(:knon), yz0_new, & |
y_d_t, y_d_q, y_d_ts(:knon), yz0_new, y_flux_t(:knon), & |
438 |
y_flux_t(:knon), y_flux_q(:knon), y_dflux_t(:knon), & |
y_flux_q(:knon), y_dflux_t(:knon), y_dflux_q(:knon), & |
439 |
y_dflux_q(:knon), y_fqcalving, y_ffonte, y_run_off_lic_0) |
y_fqcalving, y_ffonte, y_run_off_lic_0) |
440 |
|
|
441 |
! calculer la longueur de rugosite sur ocean |
! calculer la longueur de rugosite sur ocean |
442 |
yrugm = 0. |
yrugm = 0. |