/[lmdze]/trunk/phylmd/Interface_surf/clqh.f
ViewVC logotype

Diff of /trunk/phylmd/Interface_surf/clqh.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 301 by guez, Thu Aug 2 17:23:07 2018 UTC revision 305 by guez, Tue Sep 11 11:08:38 2018 UTC
# Line 6  contains Line 6  contains
6    
7    SUBROUTINE clqh(julien, nisurf, knindex, tsoil, qsol, mu0, rugos, rugoro, &    SUBROUTINE clqh(julien, nisurf, knindex, tsoil, qsol, mu0, rugos, rugoro, &
8         u1lay, v1lay, coef, tq_cdrag, t, q, ts, paprs, pplay, delp, radsol, &         u1lay, v1lay, coef, tq_cdrag, t, q, ts, paprs, pplay, delp, radsol, &
9         albedo, snow, qsurf, precip_rain, precip_snow, fluxlat, pctsrf_new_sic, &         albedo, snow, qsurf, rain_fall, snow_fall, fluxlat, pctsrf_new_sic, &
10         agesno, d_t, d_q, d_ts, z0_new, flux_t, flux_q, dflux_s, dflux_l, &         agesno, d_t, d_q, d_ts, z0_new, flux_t, flux_q, dflux_s, dflux_l, &
11         fqcalving, ffonte, run_off_lic_0, run_off_lic)         fqcalving, ffonte, run_off_lic_0, run_off_lic)
12    
# Line 63  contains Line 63  contains
63      REAL, intent(out):: qsurf(:) ! (knon)      REAL, intent(out):: qsurf(:) ! (knon)
64      ! humidite de l'air au dessus de la surface      ! humidite de l'air au dessus de la surface
65    
66      real, intent(in):: precip_rain(:) ! (knon)      real, intent(in):: rain_fall(:) ! (knon)
67      ! liquid water mass flux (kg / m2 / s), positive down      ! liquid water mass flux (kg / m2 / s), positive down
68    
69      real, intent(in):: precip_snow(:) ! (knon)      real, intent(in):: snow_fall(:) ! (knon)
70      ! solid water mass flux (kg / m2 / s), positive down      ! solid water mass flux (kg / m2 / s), positive down
71    
72      real, intent(out):: fluxlat(:) ! (knon)      real, intent(out):: fluxlat(:) ! (knon)
# Line 115  contains Line 115  contains
115      call climb_hq_down(pkf, cq, dq, ch, dh, paprs, pplay, t, coef, delp, q)      call climb_hq_down(pkf, cq, dq, ch, dh, paprs, pplay, t, coef, delp, q)
116      CALL interfsurf_hq(julien, mu0, nisurf, knindex, tsoil, qsol, u1lay, &      CALL interfsurf_hq(julien, mu0, nisurf, knindex, tsoil, qsol, u1lay, &
117           v1lay, t(:, 1), q(:, 1), tq_cdrag, ch(:, 1), cq(:, 1), dh(:, 1), &           v1lay, t(:, 1), q(:, 1), tq_cdrag, ch(:, 1), cq(:, 1), dh(:, 1), &
118           dq(:, 1), precip_rain, precip_snow, rugos, rugoro, snow, qsurf, ts, &           dq(:, 1), rain_fall, snow_fall, rugos, rugoro, snow, qsurf, ts, &
119           pplay(:, 1), paprs(:, 1), radsol, evap, flux_t, fluxlat, dflux_l, &           pplay(:, 1), paprs(:, 1), radsol, evap, flux_t, fluxlat, dflux_l, &
120           dflux_s, tsurf_new, albedo, z0_new, pctsrf_new_sic, agesno, &           dflux_s, tsurf_new, albedo, z0_new, pctsrf_new_sic, agesno, &
121           fqcalving, ffonte, run_off_lic_0, run_off_lic)           fqcalving, ffonte, run_off_lic_0, run_off_lic)
Legend:
Removed from v.301  
changed lines
  Added in v.305
  ViewVC Help
Powered by ViewVC 1.1.21