--- trunk/libf/dyn3d/ener.f90	2011/07/01 15:00:48	47
+++ trunk/Sources/dyn3d/ener.f	2015/04/29 15:47:56	134
@@ -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