--- trunk/phylmd/Interface_surf/calcul_fluxs.f	2018/02/05 10:39:38	254
+++ trunk/phylmd/Interface_surf/calcul_fluxs.f	2018/04/19 17:54:55	266
@@ -90,7 +90,7 @@
     sl = merge(RLSTT, RLVTT, tsurf < RTT)
 
     ! Q
-    oq = 1. - (beta * coef * peqBcoef * dtime)
+    oq = 1. - beta * coef * peqBcoef * dtime
     mq = beta * coef * (peqAcoef - qsat + dq_s_dt * tsurf) / oq
     nq = beta * coef * (- 1. * dq_s_dt) / oq