--- trunk/dyn3d/ener.f	2014/03/05 14:57:53	82
+++ 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
-
-  save
+  REAL, save:: ang0, etot0, ptot0, ztot0, stot0
 
 end module ener