/[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 299 by guez, Thu Aug 2 14:27:11 2018 UTC revision 300 by guez, Thu Aug 2 15:55:01 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, rmu0, rugos, &    SUBROUTINE clqh(julien, debut, nisurf, knindex, tsoil, qsol, mu0, rugos, &
8         rugoro, u1lay, v1lay, coef, tq_cdrag, t, q, ts, paprs, pplay, delp, &         rugoro, u1lay, v1lay, coef, tq_cdrag, t, q, ts, paprs, pplay, delp, &
9         radsol, albedo, snow, qsurf, precip_rain, precip_snow, fluxlat, &         radsol, albedo, snow, qsurf, precip_rain, precip_snow, fluxlat, &
10         pctsrf_new_sic, agesno, d_t, d_q, d_ts, z0_new, flux_t, flux_q, &         pctsrf_new_sic, agesno, d_t, d_q, d_ts, z0_new, flux_t, flux_q, &
# Line 16  contains Line 16  contains
16    
17      use climb_hq_down_m, only: climb_hq_down      use climb_hq_down_m, only: climb_hq_down
18      use climb_hq_up_m, only: climb_hq_up      use climb_hq_up_m, only: climb_hq_up
19      USE dimphy, ONLY: klev, klon      USE dimphy, ONLY: klev
20      USE interfsurf_hq_m, ONLY: interfsurf_hq      USE interfsurf_hq_m, ONLY: interfsurf_hq
21      USE suphec_m, ONLY: rkappa      USE suphec_m, ONLY: rkappa
22    
# Line 29  contains Line 29  contains
29      REAL, intent(inout):: qsol(:) ! (knon)      REAL, intent(inout):: qsol(:) ! (knon)
30      ! column-density of water in soil, in kg m-2      ! column-density of water in soil, in kg m-2
31    
32      real, intent(in):: rmu0(klon) ! cosinus de l'angle solaire zenithal      real, intent(in):: mu0(:) ! (knon) cosinus de l'angle solaire zenithal
33      real, intent(in):: rugos(:) ! (knon) rugosite      real, intent(in):: rugos(:) ! (knon) rugosite
34      REAL, intent(in):: rugoro(:) ! (knon)      REAL, intent(in):: rugoro(:) ! (knon)
35    
# Line 64  contains Line 64  contains
64      REAL, intent(out):: qsurf(:) ! (knon)      REAL, intent(out):: qsurf(:) ! (knon)
65      ! humidite de l'air au dessus de la surface      ! humidite de l'air au dessus de la surface
66    
67      real, intent(in):: precip_rain(klon)      real, intent(in):: precip_rain(:) ! (knon)
68      ! liquid water mass flux (kg / m2 / s), positive down      ! liquid water mass flux (kg / m2 / s), positive down
69    
70      real, intent(in):: precip_snow(klon)      real, intent(in):: precip_snow(:) ! (knon)
71      ! solid water mass flux (kg / m2 / s), positive down      ! solid water mass flux (kg / m2 / s), positive down
72    
73      real, intent(out):: fluxlat(:) ! (knon)      real, intent(out):: fluxlat(:) ! (knon)
74      real, intent(in):: pctsrf_new_sic(:) ! (klon)      real, intent(in):: pctsrf_new_sic(:) ! (knon)
75      REAL, intent(inout):: agesno(:) ! (knon)      REAL, intent(inout):: agesno(:) ! (knon)
76      REAL, intent(out):: d_t(:, :) ! (knon, klev) incrementation de "t"      REAL, intent(out):: d_t(:, :) ! (knon, klev) incrementation de "t"
77      REAL, intent(out):: d_q(:, :) ! (knon, klev) incrementation de "q"      REAL, intent(out):: d_q(:, :) ! (knon, klev) incrementation de "q"
# Line 92  contains Line 92  contains
92      ! Flux d'eau "perdue" par la surface et n\'ecessaire pour que limiter la      ! Flux d'eau "perdue" par la surface et n\'ecessaire pour que limiter la
93      ! hauteur de neige, en kg / m2 / s      ! hauteur de neige, en kg / m2 / s
94    
95      REAL ffonte(klon)      REAL, intent(out):: ffonte(:) ! (knon)
96      ! Flux thermique utiliser pour fondre la neige      ! flux thermique utilis\'e pour fondre la neige
97        
98      REAL run_off_lic_0(klon)! runof glacier au pas de temps precedent      REAL, intent(inout):: run_off_lic_0(:) ! (knon)
99        ! run-off glacier au pas de temps precedent
100    
101      ! Local:      ! Local:
102    
# Line 111  contains Line 112  contains
112      ! (La pression de r\'ef\'erence est celle au sol.)      ! (La pression de r\'ef\'erence est celle au sol.)
113    
114      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)
115      CALL interfsurf_hq(julien, rmu0, nisurf, knindex, debut, tsoil, qsol, &      CALL interfsurf_hq(julien, mu0, nisurf, knindex, debut, tsoil, qsol, &
116           u1lay, v1lay, t(:, 1), q(:, 1), tq_cdrag, ch(:, 1), cq(:, 1), &           u1lay, v1lay, t(:, 1), q(:, 1), tq_cdrag, ch(:, 1), cq(:, 1), &
117           dh(:, 1), dq(:, 1), precip_rain, precip_snow, rugos, rugoro, snow, &           dh(:, 1), dq(:, 1), precip_rain, precip_snow, rugos, rugoro, snow, &
118           qsurf, ts, pplay(:, 1), paprs(:, 1), radsol, evap, flux_t, fluxlat, &           qsurf, ts, pplay(:, 1), paprs(:, 1), radsol, evap, flux_t, fluxlat, &
Legend:
Removed from v.299  
changed lines
  Added in v.300
  ViewVC Help
Powered by ViewVC 1.1.21