Index: LMDZ6/trunk/libf/phylmd/ener_conserv.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/ener_conserv.f90	(revision 5818)
+++ LMDZ6/trunk/libf/phylmd/ener_conserv.f90	(revision 5819)
@@ -1,2 +1,11 @@
+!$gpum horizontal klon
+MODULE ener_conserv_mod
+
+  PRIVATE
+
+  PUBLIC ener_conserv
+
+  CONTAINS
+
 subroutine ener_conserv(klon,klev,pdtphys, &
  &                      puo,pvo,pto,qx,ivap,iliq,isol, &
@@ -57,9 +66,7 @@
 REAL ZRCPD
 
-character*80 abort_message
-character*20 :: modname
-
-
-modname='ener_conser'
+CHARACTER (LEN=80) :: abort_message
+CHARACTER (LEN=20), PARAMETER :: modname = 'ener_conser'
+
 d_t_ec(:,:)=0.
 
@@ -268,2 +275,4 @@
 
 END SUBROUTINE ener_conserv
+
+END MODULE ener_conserv_mod
Index: LMDZ6/trunk/libf/phylmd/physiq_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/physiq_mod.F90	(revision 5818)
+++ LMDZ6/trunk/libf/phylmd/physiq_mod.F90	(revision 5819)
@@ -35,4 +35,5 @@
     USE dimphy
     USE etat0_limit_unstruct_mod
+    USE ener_conserv_mod, ONLY: ener_conserv
     USE evappot_mod, ONLY: evappot
     USE FLOTT_GWD_rando_m, only: FLOTT_GWD_rando, FLOTT_GWD_rando_first
Index: LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90	(revision 5818)
+++ LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90	(revision 5819)
@@ -33,4 +33,5 @@
     USE cmp_seri_mod
     USE dimphy
+    USE ener_conserv_mod, ONLY: ener_conserv
     USE etat0_limit_unstruct_mod
     USE evappot_mod, ONLY: evappot