--- trunk/libf/bibio/writehist.f	2012/01/10 19:02:02	56
+++ trunk/libf/bibio/writehist.f	2012/04/20 14:58:43	61
@@ -9,7 +9,8 @@
       use paramet_m, only: ip1jm, ip1jmp1, iip1, jjp1
       use temps, only: itau_dyn
       use histwrite_m, only: histwrite
-      use histcom, only: histsync
+      use histsync_m, only: histsync
+      use covnat_m, only: covnat
 
       implicit none