/[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 300 by guez, Thu Aug 2 15:55:01 2018 UTC revision 301 by guez, Thu Aug 2 17:23:07 2018 UTC
# Line 4  module clqh_m Line 4  module clqh_m
4    
5  contains  contains
6    
7    SUBROUTINE clqh(julien, debut, nisurf, knindex, tsoil, qsol, mu0, rugos, &    SUBROUTINE clqh(julien, nisurf, knindex, tsoil, qsol, mu0, rugos, rugoro, &
8         rugoro, u1lay, v1lay, coef, tq_cdrag, t, q, ts, paprs, pplay, delp, &         u1lay, v1lay, coef, tq_cdrag, t, q, ts, paprs, pplay, delp, radsol, &
9         radsol, albedo, snow, qsurf, precip_rain, precip_snow, fluxlat, &         albedo, snow, qsurf, precip_rain, precip_snow, fluxlat, pctsrf_new_sic, &
10         pctsrf_new_sic, agesno, d_t, d_q, d_ts, z0_new, flux_t, flux_q, &         agesno, d_t, d_q, d_ts, z0_new, flux_t, flux_q, dflux_s, dflux_l, &
11         dflux_s, dflux_l, fqcalving, ffonte, run_off_lic_0)         fqcalving, ffonte, run_off_lic_0, run_off_lic)
12    
13      ! Author: Z. X. Li (LMD/CNRS)      ! Author: Z. X. Li (LMD/CNRS)
14      ! Date: 1993 Aug. 18th      ! Date: 1993 Aug. 18th
# Line 21  contains Line 21  contains
21      USE suphec_m, ONLY: rkappa      USE suphec_m, ONLY: rkappa
22    
23      integer, intent(in):: julien ! jour de l'annee en cours      integer, intent(in):: julien ! jour de l'annee en cours
     logical, intent(in):: debut  
24      integer, intent(in):: nisurf      integer, intent(in):: nisurf
25      integer, intent(in):: knindex(:) ! (knon)      integer, intent(in):: knindex(:) ! (knon)
26      REAL, intent(inout):: tsoil(:, :) ! (knon, nsoilmx)      REAL, intent(inout):: tsoil(:, :) ! (knon, nsoilmx)
# Line 98  contains Line 97  contains
97      REAL, intent(inout):: run_off_lic_0(:) ! (knon)      REAL, intent(inout):: run_off_lic_0(:) ! (knon)
98      ! run-off glacier au pas de temps precedent      ! run-off glacier au pas de temps precedent
99    
100        REAL, intent(OUT):: run_off_lic(:) ! (knon) ruissellement total
101    
102      ! Local:      ! Local:
103    
104      INTEGER k      INTEGER k
# Line 112  contains Line 113  contains
113      ! (La pression de r\'ef\'erence est celle au sol.)      ! (La pression de r\'ef\'erence est celle au sol.)
114    
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, debut, tsoil, qsol, &      CALL interfsurf_hq(julien, mu0, nisurf, knindex, tsoil, qsol, u1lay, &
117           u1lay, v1lay, t(:, 1), q(:, 1), tq_cdrag, ch(:, 1), cq(:, 1), &           v1lay, t(:, 1), q(:, 1), tq_cdrag, ch(:, 1), cq(:, 1), dh(:, 1), &
118           dh(:, 1), dq(:, 1), precip_rain, precip_snow, rugos, rugoro, snow, &           dq(:, 1), precip_rain, precip_snow, rugos, rugoro, snow, qsurf, ts, &
119           qsurf, ts, pplay(:, 1), paprs(:, 1), radsol, evap, flux_t, fluxlat, &           pplay(:, 1), paprs(:, 1), radsol, evap, flux_t, fluxlat, dflux_l, &
120           dflux_l, 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)           fqcalving, ffonte, run_off_lic_0, run_off_lic)
122      flux_q = - evap      flux_q = - evap
123      d_ts = tsurf_new - ts      d_ts = tsurf_new - ts
124      call climb_hq_up(d_t, d_q, cq, dq, ch, dh, flux_t, flux_q, pkf, t, q)      call climb_hq_up(d_t, d_q, cq, dq, ch, dh, flux_t, flux_q, pkf, t, q)
Legend:
Removed from v.300  
changed lines
  Added in v.301
  ViewVC Help
Powered by ViewVC 1.1.21