Index: LMDZ5/trunk/libf/phylmd/YOETHF.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/YOETHF.h	(revision 2042)
+++ LMDZ5/trunk/libf/phylmd/YOETHF.h	(revision 2043)
@@ -1,4 +1,4 @@
 !
-! $Header$
+! $Id$
 !
 !  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
@@ -17,5 +17,12 @@
       REAL R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES
       REAL RVTMP2, RHOH2O
+      REAL R5ALVCP,R5ALSCP,RALVDCP,RALSDCP,RALFDCP,RTWAT,RTBER,RTBERCU
+      REAL RTICE,RTICECU,RTWAT_RTICE_R,RTWAT_RTICECU_R,RKOOP1,RKOOP2
       COMMON /YOETHF/R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES,    &
-     &               RVTMP2, RHOH2O
+     &               RVTMP2, RHOH2O,                                    &
+     &               R5ALVCP,R5ALSCP,RALVDCP,RALSDCP,                   &
+     &               RALFDCP,RTWAT,RTBER,RTBERCU,                       &
+     &               RTICE,RTICECU,RTWAT_RTICE_R,RTWAT_RTICECU_R,RKOOP1,&
+     &	  	     RKOOP2
+
 !$OMP THREADPRIVATE(/YOETHF/)
Index: LMDZ5/trunk/libf/phylmd/radlwsw_m.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/radlwsw_m.F90	(revision 2042)
+++ LMDZ5/trunk/libf/phylmd/radlwsw_m.F90	(revision 2043)
@@ -64,5 +64,5 @@
 !    &    RASWCB   ,RASWCC   ,RASWCD   ,RASWCE   ,RASWCF, RLINLI
       USE YOERDU   , ONLY : NUAER  ,NTRAER ,REPLOG ,REPSC  ,REPSCW ,DIFF
-      USE YOETHF   , ONLY : RTICE
+!      USE YOETHF   , ONLY : RTICE
       USE YOERRTWN , ONLY : DELWAVE   ,TOTPLNK      
       USE YOMPHY3  , ONLY : RII0
Index: LMDZ5/trunk/libf/phylmd/rrtm/radlsw.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/radlsw.F90	(revision 2042)
+++ LMDZ5/trunk/libf/phylmd/rrtm/radlsw.F90	(revision 2043)
@@ -144,5 +144,5 @@
  & RLILIA   ,RLILIB  
 USE YOERDU        , ONLY : NUAER    ,NTRAER   ,REPLOG   ,REPSC    ,REPSCW   ,DIFF
-USE YOETHF        , ONLY : RTICE
+!USE YOETHF        , ONLY : RTICE
 USE YOEPHLI       , ONLY : LPHYLIN
 USE YOERRTWN      , ONLY :                     DELWAVE   ,TOTPLNK   
@@ -154,5 +154,5 @@
 
 include "clesphys.h"
-
+include "YOETHF.h"
 INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
 INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
Index: LMDZ5/trunk/libf/phylmd/rrtm/sucst.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sucst.F90	(revision 2042)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sucst.F90	(revision 2043)
@@ -289,5 +289,5 @@
   WRITE(KULOUT,'(10(1X,E10.4))') (ESW(RTT+10._JPRB*J),J=-4,4)
   WRITE(KULOUT,'(10(1X,E10.4))') (ESS(RTT+10._JPRB*J),J=-4,4)
-  call flush()       !!!!! A REVOIR (MPL) les 7 lignes qui suivent
+!  call flush(0)       !!!!! A REVOIR (MPL) les 7 lignes qui suivent
    do j=1,9
      print*,'TEST J',j
@@ -295,5 +295,5 @@
      print*,'ES(RTT...',ES(RTT+10._JPRB*(J-5))
    enddo
-  call flush()
+  call flush(0)
 
   WRITE(KULOUT,'(10(1X,E10.4))') (ES (RTT+10._JPRB*J),J=-4,4)
Index: LMDZ5/trunk/libf/phylmd/rrtm/suphec.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suphec.F90	(revision 2042)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suphec.F90	(revision 2043)
@@ -69,10 +69,10 @@
 USE YOMCST   , ONLY : RD       ,RV       ,RCPD     ,&
  & RLVTT    ,RLSTT    ,RLMLT    ,RTT      ,RATM 
-USE YOETHF   , ONLY : R2ES     ,R3LES    ,R3IES    ,R4LES    ,&
- & R4IES    ,R5LES    ,R5IES    ,RVTMP2   ,RHOH2O   ,&
- & R5ALVCP  ,R5ALSCP  ,RALVDCP  ,RALSDCP  ,RALFDCP  ,&
- & RTWAT    ,RTBER    ,RTBERCU  ,RTICE    ,RTICECU  ,&
- & RTWAT_RTICE_R      ,RTWAT_RTICECU_R    ,&
- & RKOOP1   ,RKOOP2 
+!USE YOETHF   , ONLY : R2ES     ,R3LES    ,R3IES    ,R4LES    ,&
+! & R4IES    ,R5LES    ,R5IES    ,RVTMP2   ,RHOH2O   ,&
+! & R5ALVCP  ,R5ALSCP  ,RALVDCP  ,RALSDCP  ,RALFDCP  ,&
+! & RTWAT    ,RTBER    ,RTBERCU  ,RTICE    ,RTICECU  ,&
+! & RTWAT_RTICE_R      ,RTWAT_RTICECU_R    ,&
+! & RKOOP1   ,RKOOP2 
 USE YOMPHY   , ONLY : LRAYFM15
 !USE YOERAD   , ONLY : NSW      ,NTSW     ,&
@@ -89,5 +89,5 @@
 
 IMPLICIT NONE
-
+include "YOETHF.h"
 include "clesphys.h"