--- trunk/phylmd/Interface_surf/interfsurf_hq.f 2015/02/13 18:22:38 129 +++ trunk/phylmd/Interface_surf/interfsurf_hq.f 2015/02/24 15:43:51 130 @@ -276,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