--- trunk/phylmd/physiq.f	2018/09/27 16:29:06	310
+++ trunk/phylmd/physiq.f	2019/01/24 16:17:39	322
@@ -35,7 +35,7 @@
     USE dimphy, ONLY: klon
     USE dimsoil, ONLY: nsoilmx
     use drag_noro_m, only: drag_noro
-    use dynetat0_m, only: day_ref, annee_ref
+    use dynetat0_chosen_m, only: day_ref, annee_ref
     USE fcttre, ONLY: foeew
     use fisrtilp_m, only: fisrtilp
     USE hgardfou_m, ONLY: hgardfou
@@ -152,7 +152,7 @@
     REAL, save:: ftsoil(klon, nsoilmx, nbsrf)
     ! soil temperature of surface fraction
 
-    REAL fluxlat(klon, nbsrf)
+    REAL fluxlat(klon, nbsrf) ! flux de chaleur latente, en W m-2
 
     REAL, save:: fqsurf(klon, nbsrf)
     ! humidite de l'air au contact de la surface
@@ -673,7 +673,6 @@
     entr_therm = 0.
 
     if (iflag_thermals == 0) then
-       ! Ajustement sec
        CALL ajsec(paprs, play, t_seri, q_seri, d_t_ajs, d_q_ajs)
        t_seri = t_seri + d_t_ajs
        q_seri = q_seri + d_q_ajs