20 |
use calltherm_m, only: calltherm |
use calltherm_m, only: calltherm |
21 |
USE clesphys, ONLY: cdhmax, cdmmax, ecrit_ins, ok_instan |
USE clesphys, ONLY: cdhmax, cdmmax, ecrit_ins, ok_instan |
22 |
USE clesphys2, ONLY: conv_emanuel, nbapp_rad, new_oliq, ok_orodr, ok_orolf |
USE clesphys2, ONLY: conv_emanuel, nbapp_rad, new_oliq, ok_orodr, ok_orolf |
23 |
USE clmain_m, ONLY: clmain |
USE pbl_surface_m, ONLY: pbl_surface |
24 |
use clouds_gno_m, only: clouds_gno |
use clouds_gno_m, only: clouds_gno |
25 |
use comconst, only: dtphys |
use comconst, only: dtphys |
26 |
USE comgeomphy, ONLY: airephy |
USE comgeomphy, ONLY: airephy |
553 |
fsolsw(:, nsrf) = solsw * (1. - falbe(:, nsrf)) / (1. - albsol) |
fsolsw(:, nsrf) = solsw * (1. - falbe(:, nsrf)) / (1. - albsol) |
554 |
END forall |
END forall |
555 |
|
|
556 |
CALL clmain(dtphys, pctsrf, t_seri, q_seri, u_seri, v_seri, julien, mu0, & |
CALL pbl_surface(dtphys, pctsrf, t_seri, q_seri, u_seri, v_seri, julien, & |
557 |
ftsol, cdmmax, cdhmax, ftsoil, qsol, paprs, play, fsnow, fqsurf, & |
mu0, ftsol, cdmmax, cdhmax, ftsoil, qsol, paprs, play, fsnow, fqsurf, & |
558 |
fevap, falbe, fluxlat, rain_fall, snow_fall, fsolsw, fsollw, frugs, & |
fevap, falbe, fluxlat, rain_fall, snow_fall, fsolsw, fsollw, frugs, & |
559 |
agesno, rugoro, d_t_vdf, d_q_vdf, d_u_vdf, d_v_vdf, d_ts, flux_t, & |
agesno, rugoro, d_t_vdf, d_q_vdf, d_u_vdf, d_v_vdf, d_ts, flux_t, & |
560 |
flux_q, flux_u, flux_v, cdragh, cdragm, q2, dsens, devap, coefh, t2m, & |
flux_q, flux_u, flux_v, cdragh, cdragm, q2, dsens, devap, coefh, t2m, & |