--- trunk/libf/dyn3d/abort_gcm.f90	2008/08/07 12:29:13	18
+++ trunk/libf/dyn3d/abort_gcm.f90	2010/04/01 09:07:28	30
@@ -15,7 +15,7 @@
     !         message = stuff to print
     !         ierr    = severity of situation ( = 0 normal )
 
-    USE IOIPSL, only: histclo
+    USE histcom, only: histclo
 
     character(len=*), intent(in):: modname
     integer, intent(in):: ierr