--- trunk/phylmd/Interface_surf/interfsurf_hq.f	2015/02/05 15:19:37	124
+++ trunk/phylmd/Interface_surf/interfsurf_hq.f	2015/02/06 15:00:28	125
@@ -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