| 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, & |
Parent Directory
| 
Revision Log
| 
Patch