--- trunk/phylmd/Interface_surf/albsno.f	2018/02/05 10:39:38	254
+++ trunk/phylmd/Interface_surf/albsno.f	2018/08/02 14:27:11	299
@@ -6,9 +6,10 @@
 
 contains
 
-  SUBROUTINE albsno(dtime, agesno, alb_neig, precip_snow)
+  SUBROUTINE albsno(agesno, alb_neig, precip_snow)
+
+    use comconst, only: dtphys
 
-    REAL, intent(in):: dtime
     REAL, intent(inout):: agesno(:) ! (knon)
     real, intent(out):: alb_neig(:) ! (knon)
     real, intent(in):: precip_snow(:) !(knon)
@@ -19,8 +20,8 @@
     alb_neig = 0.55 + 0.3 * EXP(- agesno / 5.)
 
     ! Modulation en fonction de l'\^age de la neige :
-    agesno = max((agesno + (1. - agesno / 50.) * dtime / 86400.) &
-         * EXP(- MAX(0., precip_snow) * dtime / 0.3), 0.)
+    agesno = max((agesno + (1. - agesno / 50.) * dtphys / 86400.) &
+         * EXP(- MAX(0., precip_snow) * dtphys / 0.3), 0.)
 
   END SUBROUTINE albsno