--- trunk/libf/dyn3d/etat0.f90	2012/01/30 14:37:26	60
+++ trunk/libf/dyn3d/etat0.f90	2012/04/20 14:58:43	61
@@ -33,7 +33,7 @@
     use geopot_m, only: geopot
     use grid_atob, only: grille_m
     use grid_change, only: init_dyn_phy, dyn_phy
-    use histcom, only: histclo
+    use histclo_m, only: histclo
     use indicesol, only: is_oce, is_sic, is_ter, is_lic, epsfra
     use iniadvtrac_m, only: iniadvtrac
     use inidissip_m, only: inidissip