--- trunk/Sources/phylmd/Interface_surf/interface_surf.f 2016/06/06 17:42:15 201 +++ trunk/Sources/phylmd/Interface_surf/interface_surf.f 2016/06/08 12:23:41 202 @@ -5,8 +5,7 @@ IMPLICIT none - ! run_off ruissellement total - REAL, ALLOCATABLE, DIMENSION(:), SAVE :: run_off, run_off_lic + REAL, ALLOCATABLE, SAVE:: run_off_lic(:) ! ruissellement total REAL, save :: tau_calv ! temps de relaxation pour la fonte des glaciers, en jours