1 |
module clmain_m |
module pbl_surface_m |
2 |
|
|
3 |
IMPLICIT NONE |
IMPLICIT NONE |
4 |
|
|
5 |
contains |
contains |
6 |
|
|
7 |
SUBROUTINE clmain(dtime, pctsrf, t, q, u, v, julien, mu0, ftsol, cdmmax, & |
SUBROUTINE pbl_surface(dtime, pctsrf, t, q, u, v, julien, mu0, ftsol, & |
8 |
cdhmax, ftsoil, qsol, paprs, pplay, fsnow, qsurf, evap, falbe, fluxlat, & |
cdmmax, cdhmax, ftsoil, qsol, paprs, pplay, fsnow, qsurf, evap, falbe, & |
9 |
rain_fall, snow_f, fsolsw, fsollw, frugs, agesno, rugoro, d_t, d_q, & |
fluxlat, rain_fall, snow_f, fsolsw, fsollw, frugs, agesno, rugoro, d_t, & |
10 |
d_u, d_v, d_ts, flux_t, flux_q, flux_u, flux_v, cdragh, cdragm, q2, & |
d_q, d_u, d_v, d_ts, flux_t, flux_q, flux_u, flux_v, cdragh, cdragm, & |
11 |
dflux_t, dflux_q, coefh, t2m, q2m, u10m_srf, v10m_srf, pblh, capcl, & |
q2, dflux_t, dflux_q, coefh, t2m, q2m, u10m_srf, v10m_srf, pblh, capcl, & |
12 |
oliqcl, cteicl, pblt, therm, plcl, fqcalving, ffonte, run_off_lic_0) |
oliqcl, cteicl, pblt, therm, plcl, fqcalving, ffonte, run_off_lic_0) |
13 |
|
|
14 |
! 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 |
504 |
|
|
505 |
firstcal = .false. |
firstcal = .false. |
506 |
|
|
507 |
END SUBROUTINE clmain |
END SUBROUTINE pbl_surface |
508 |
|
|
509 |
end module clmain_m |
end module pbl_surface_m |