/[lmdze]/trunk/phylmd/physiq.f
ViewVC logotype

Diff of /trunk/phylmd/physiq.f

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

revision 310 by guez, Thu Sep 27 16:29:06 2018 UTC revision 322 by guez, Thu Jan 24 16:17:39 2019 UTC
# Line 35  contains Line 35  contains
35      USE dimphy, ONLY: klon      USE dimphy, ONLY: klon
36      USE dimsoil, ONLY: nsoilmx      USE dimsoil, ONLY: nsoilmx
37      use drag_noro_m, only: drag_noro      use drag_noro_m, only: drag_noro
38      use dynetat0_m, only: day_ref, annee_ref      use dynetat0_chosen_m, only: day_ref, annee_ref
39      USE fcttre, ONLY: foeew      USE fcttre, ONLY: foeew
40      use fisrtilp_m, only: fisrtilp      use fisrtilp_m, only: fisrtilp
41      USE hgardfou_m, ONLY: hgardfou      USE hgardfou_m, ONLY: hgardfou
# Line 152  contains Line 152  contains
152      REAL, save:: ftsoil(klon, nsoilmx, nbsrf)      REAL, save:: ftsoil(klon, nsoilmx, nbsrf)
153      ! soil temperature of surface fraction      ! soil temperature of surface fraction
154    
155      REAL fluxlat(klon, nbsrf)      REAL fluxlat(klon, nbsrf) ! flux de chaleur latente, en W m-2
156    
157      REAL, save:: fqsurf(klon, nbsrf)      REAL, save:: fqsurf(klon, nbsrf)
158      ! humidite de l'air au contact de la surface      ! humidite de l'air au contact de la surface
# Line 673  contains Line 673  contains
673      entr_therm = 0.      entr_therm = 0.
674    
675      if (iflag_thermals == 0) then      if (iflag_thermals == 0) then
        ! Ajustement sec  
676         CALL ajsec(paprs, play, t_seri, q_seri, d_t_ajs, d_q_ajs)         CALL ajsec(paprs, play, t_seri, q_seri, d_t_ajs, d_q_ajs)
677         t_seri = t_seri + d_t_ajs         t_seri = t_seri + d_t_ajs
678         q_seri = q_seri + d_q_ajs         q_seri = q_seri + d_q_ajs
Legend:
Removed from v.310  
changed lines
  Added in v.322
  ViewVC Help
Powered by ViewVC 1.1.21