--- trunk/phylmd/Interface_surf/fonte_neige.f	2018/09/11 11:08:38	305
+++ trunk/phylmd/Interface_surf/fonte_neige.f90	2019/08/13 09:19:22	332
@@ -8,7 +8,7 @@
        tsurf_new, evap, fqcalving, ffonte, run_off_lic_0, run_off_lic)
 
     ! Routine de traitement de la fonte de la neige dans le cas du traitement
-    ! de sol simplifi\'e
+    ! de sol simplifi\'e.
 
     ! Laurent Fairhead, March, 2001
 
@@ -29,7 +29,7 @@
     ! precipitation, solid water mass flux (kg / m2 / s), positive down
 
     real, intent(INOUT):: snow(:) ! (knon)
-    ! column-density of mass of snow, in kg m-2
+    ! column-density of mass of snow at the surface, in kg m-2
 
     real, intent(INOUT):: qsol(:) ! (knon)
     ! column-density of water in soil, in kg m-2
@@ -88,8 +88,8 @@
     ! Y a-t-il fonte de neige ?
 
     do i = 1, knon
-       if ((snow(i) > epsfra .OR. nisurf == is_sic &
-            .OR. nisurf == is_lic) .AND. tsurf_new(i) >= RTT) then
+       if ((snow(i) > epsfra .OR. nisurf == is_sic .OR. nisurf == is_lic) &
+            .AND. tsurf_new(i) >= RTT) then
           fq_fonte = MIN(MAX((tsurf_new(i) - RTT) / chasno, 0.), snow(i))
           ffonte(i) = fq_fonte * RLMLT / dtphys
           snow(i) = max(0., snow(i) - fq_fonte)