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

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

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

revision 310 by guez, Thu Sep 27 14:58:10 2018 UTC revision 311 by guez, Mon Dec 3 17:52:21 2018 UTC
# Line 4  module calcul_fluxs_m Line 4  module calcul_fluxs_m
4    
5  contains  contains
6    
7    SUBROUTINE calcul_fluxs(tsurf, p1lay, cal, beta, cdragh, ps, qsurf, &    SUBROUTINE calcul_fluxs(tsurf, p1lay, cal, beta, cdragh, ps, qsurf, radsol, &
8         radsol, t1lay, q1lay, u1lay, v1lay, tAcoef, qAcoef, tBcoef, &         t1lay, q1lay, u1lay, v1lay, tAcoef, qAcoef, tBcoef, qBcoef, tsurf_new, &
9         qBcoef, tsurf_new, evap, fluxlat, flux_t, dflux_s, dflux_l, dif_grnd)         evap, fluxlat, flux_t, dflux_s, dflux_l, dif_grnd)
10    
11      ! Cette routine calcule les flux en h et q à l'interface et une      ! Cette routine calcule les flux en h et q à l'interface et une
12      ! température de surface.      ! température de surface.
# Line 32  contains Line 32  contains
32      real, intent(IN):: cal(:) ! (knon) capacité calorifique du sol      real, intent(IN):: cal(:) ! (knon) capacité calorifique du sol
33      real, intent(IN):: beta(:) ! (knon) évaporation réelle      real, intent(IN):: beta(:) ! (knon) évaporation réelle
34      real, intent(IN):: cdragh(:) ! (knon) coefficient d'échange      real, intent(IN):: cdragh(:) ! (knon) coefficient d'échange
35      real, intent(IN):: ps(:) ! (knon) pression au sol      real, intent(IN):: ps(:) ! (knon) pression au sol, en Pa
36      real, intent(OUT):: qsurf(:) ! (knon) humidité de l'air au-dessus du sol      real, intent(OUT):: qsurf(:) ! (knon) humidité de l'air au-dessus du sol
37    
38      real, intent(IN):: radsol(:) ! (knon)      real, intent(IN):: radsol(:) ! (knon)
# Line 51  contains Line 51  contains
51      real, intent(OUT):: evap(:) ! (knon)      real, intent(OUT):: evap(:) ! (knon)
52    
53      real, intent(OUT):: fluxlat(:), flux_t(:) ! (knon)      real, intent(OUT):: fluxlat(:), flux_t(:) ! (knon)
54      ! flux de chaleurs latente et sensible      ! flux de chaleurs latente et sensible, en W m-2
55    
56      real, intent(OUT):: dflux_s(:), dflux_l(:) ! (knon)      real, intent(OUT):: dflux_s(:), dflux_l(:) ! (knon)
57      ! dérivées des flux de chaleurs sensible et latente par rapport à      ! dérivées des flux de chaleurs sensible et latente par rapport à
Legend:
Removed from v.310  
changed lines
  Added in v.311
  ViewVC Help
Powered by ViewVC 1.1.21