Index: /trunk/LMDZ.COMMON/libf/evolution/dyn_ss_ice_m_wrapper.f90
===================================================================
--- /trunk/LMDZ.COMMON/libf/evolution/dyn_ss_ice_m_wrapper.f90	(revision 3487)
+++ /trunk/LMDZ.COMMON/libf/evolution/dyn_ss_ice_m_wrapper.f90	(revision 3488)
@@ -1,5 +1,5 @@
 subroutine dyn_ss_ice_m_wrapper(ngrid,nsoil,tHIn,p0,pfrost,T_in,ssi_depth_in,porefill_in,porefill,ssi_depth)
 
-  use allinterfaces
+  use allinterfaces, only: dyn_ss_ice_m
   implicit none
   integer               ngrid,nsoil