--- trunk/phylmd/Interface_surf/interfsurf_hq.f	2014/12/04 16:35:03	116
+++ trunk/phylmd/Interface_surf/interfsurf_hq.f	2015/02/24 15:43:51	130
@@ -19,6 +19,7 @@
     ! Laurent Fairhead, February 2000
 
     USE abort_gcm_m, ONLY: abort_gcm
+    use alboc_m, only: alboc
     USE albsno_m, ONLY: albsno
     use calbeta_m, only: calbeta
     USE calcul_fluxs_m, ONLY: calcul_fluxs
@@ -275,7 +276,7 @@
 
        ! calcul albedo
        if (minval(rmu0) == maxval(rmu0) .and. minval(rmu0) == -999.999) then
-          CALL alboc(FLOAT(jour), rlat, alb_eau)
+          CALL alboc(jour, rlat, alb_eau)
        else ! cycle diurne
           CALL alboc_cd(rmu0, alb_eau)
        endif