--- trunk/bibio/initfluxsto.f	2014/03/26 18:16:05	92
+++ trunk/bibio/initfluxsto.f	2014/09/04 10:05:52	104
@@ -28,7 +28,6 @@
   use conf_gcm_m
   USE dimens_m
   USE disvert_m
-  USE ener
   USE histbeg_totreg_m, ONLY : histbeg_totreg
   USE histdef_m, ONLY : histdef
   USE histend_m, ONLY : histend