--- trunk/libf/dyn3d/ener.f90	2008/02/27 13:16:39	3
+++ trunk/dyn3d/ener.f	2014/09/04 10:05:52	104
@@ -2,15 +2,8 @@
 
   ! From ener.h, v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin
 
-  use dimens_m, only: llm
-  
   implicit none
 
-  private llm
-
-  REAL ang0, etot0, ptot0, ztot0, stot0, ang, etot, ptot, ztot, stot, rmsdpdt
-  real rmsv, gtot(llm-1)
-
-  save
+  REAL, save:: ang0, etot0, ptot0, ztot0, stot0
 
 end module ener