Index: LMDZ6/trunk/libf/phylmd/radiation_AR4.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/radiation_AR4.f90	(revision 5296)
+++ LMDZ6/trunk/libf/phylmd/radiation_AR4.f90	(revision 5314)
@@ -310,5 +310,7 @@
 SUBROUTINE swu_lmdar4(psct, pcldsw, ppmb, ppsol, prmu0, pfrac, ptave, pwv, &
     paki, pcld, pclear, pdsig, pfact, prmu, psec, pud)
-  USE clesphys_mod_h
+USE radopt_mod_h
+  USE radepsi_mod_h
+    USE clesphys_mod_h
   USE dimphy
   USE radiation_ar4_param, ONLY: zpdh2o, zpdumg, zprh2o, zprumg, rtdh2o, &
@@ -316,6 +318,4 @@
   USE yomcst_mod_h
 IMPLICIT NONE
-  include "radepsi.h"
-  include "radopt.h"
 
 
@@ -699,5 +699,6 @@
     palbp, pcg, pcld, pclear, pcldsw, pdsig, pomega, poz, prmu, psec, ptau, &
     pud, pwv, pqs, pfdown, pfup)
-  USE dimphy
+USE radepsi_mod_h
+    USE dimphy
   USE radiation_ar4_param, ONLY: rsun, rray
   USE infotrac_phy, ONLY: type_trac
@@ -706,5 +707,4 @@
 
   IMPLICIT NONE
-  include "radepsi.h"
 
   ! ------------------------------------------------------------------
@@ -1195,9 +1195,9 @@
     pdsig, prayl, psec, pcgaz, ppizaz, pray1, pray2, prefz, prj, prk, prmu0, &
     ptauaz, ptra1, ptra2)
-  USE dimphy
+USE radopt_mod_h
+  USE radepsi_mod_h
+    USE dimphy
   USE radiation_ar4_param, ONLY: taua, rpiza, rcga
   IMPLICIT NONE
-  include "radepsi.h"
-  include "radopt.h"
 
   ! ------------------------------------------------------------------
@@ -1524,9 +1524,9 @@
     ptau, pcgaz, ppizaz, pray1, pray2, prefz, prj, prk, prmue, ptauaz, ptra1, &
     ptra2)
-  USE clesphys_mod_h
+USE radopt_mod_h
+  USE radepsi_mod_h
+    USE clesphys_mod_h
   USE dimphy
   IMPLICIT NONE
-  include "radepsi.h"
-  include "radopt.h"
 
   ! ------------------------------------------------------------------
@@ -2124,9 +2124,9 @@
   ! IM  .              ptoplwdown,ptoplwdownclr)
     plwup, plwdn, plwup0, plwdn0)
-  USE dimphy
+USE raddimlw_mod_h
+    USE dimphy
   USE print_control_mod, ONLY: lunout
   USE yomcst_mod_h
 IMPLICIT NONE
-  include "raddimlw.h"
 
 
@@ -2311,5 +2311,8 @@
 ! IM ctes ds clesphys.h   SUBROUTINE LWU(RCO2, RCH4, RN2O, RCFC11, RCFC12,
 SUBROUTINE lwu_lmdar4(paer, pdp, ppmb, ppsol, poz, ptave, pview, pwv, pabcu)
-  USE clesphys_mod_h
+USE radopt_mod_h
+  USE radepsi_mod_h
+  USE raddimlw_mod_h
+    USE clesphys_mod_h
   USE dimphy
   USE radiation_ar4_param, ONLY: tref, rt1, raer, at, bt, oct
@@ -2320,8 +2323,5 @@
   USE yomcst_mod_h
 IMPLICIT NONE
-  include "raddimlw.h"
-
-  include "radepsi.h"
-  include "radopt.h"
+
 
   ! PURPOSE.
@@ -2680,8 +2680,8 @@
 SUBROUTINE lwbv_lmdar4(klim, pdp, pdt0, pemis, ppmb, ptl, ptave, pabcu, &
     pfluc, pbint, pbsui, pcts, pcntrb)
-  USE dimphy
+USE raddimlw_mod_h
+    USE dimphy
   USE yomcst_mod_h
 IMPLICIT NONE
-  include "raddimlw.h"
 
 
@@ -2767,8 +2767,8 @@
 SUBROUTINE lwc_lmdar4(klim, pcldld, pcldlu, pemis, pfluc, pbint, pbsuin, &
     pcts, pcntrb, pflux)
-  USE dimphy
+USE radopt_mod_h
+  USE radepsi_mod_h
+    USE dimphy
   IMPLICIT NONE
-  include "radepsi.h"
-  include "radopt.h"
 
   ! PURPOSE.
@@ -3143,8 +3143,8 @@
 SUBROUTINE lwb_lmdar4(pdt0, ptave, ptl, pb, pbint, pbsuin, pbsur, pbtop, &
     pdbsl, pga, pgb, pgasur, pgbsur, pgatop, pgbtop)
-  USE dimphy
+USE raddimlw_mod_h
+    USE dimphy
   USE radiation_ar4_param, ONLY: tintp, xp, ga, gb
   IMPLICIT NONE
-  include "raddimlw.h"
 
   ! -----------------------------------------------------------------------
@@ -4543,8 +4543,8 @@
     pbtop, pdbsl, pemis, ppmb, ptave, pga, pgb, pgasur, pgbsur, pgatop, &
     pgbtop, pcntrb, pcts, pfluc)
-  USE dimphy
+USE raddimlw_mod_h
+    USE dimphy
   USE yomcst_mod_h
 IMPLICIT NONE
-  include "raddimlw.h"
 
 
@@ -4649,8 +4649,8 @@
     pbsui, pbsur, pbtop, pdisd, pdisu, pemis, ppmb, pga, pgb, pgasur, pgbsur, &
     pgatop, pgbtop, pcts, pfluc)
-  USE dimphy
+USE radopt_mod_h
+  USE raddimlw_mod_h
+    USE dimphy
   IMPLICIT NONE
-  include "raddimlw.h"
-  include "radopt.h"
 
   ! -----------------------------------------------------------------------
@@ -4948,7 +4948,7 @@
 SUBROUTINE lwvd_lmdar4(kuaer, ktraer, pabcu, pdbdt, pga, pgb, pcntrb, pdisd, &
     pdisu)
-  USE dimphy
+USE raddimlw_mod_h
+    USE dimphy
   IMPLICIT NONE
-  include "raddimlw.h"
 
   ! -----------------------------------------------------------------------
@@ -5180,8 +5180,8 @@
 SUBROUTINE lwvn_lmdar4(kuaer, ktraer, pabcu, pdbsl, pga, pgb, padjd, padju, &
     pcntrb, pdbdt)
-  USE dimphy
+USE raddimlw_mod_h
+    USE dimphy
   USE radiation_ar4_param, ONLY: wg1
   IMPLICIT NONE
-  include "raddimlw.h"
 
   ! -----------------------------------------------------------------------
@@ -5373,7 +5373,7 @@
 END SUBROUTINE lwvn_lmdar4
 SUBROUTINE lwtt_lmdar4(pga, pgb, puu, ptt)
-  USE dimphy
+USE raddimlw_mod_h
+    USE dimphy
   IMPLICIT NONE
-  include "raddimlw.h"
 
   ! -----------------------------------------------------------------------
@@ -5546,7 +5546,7 @@
 END SUBROUTINE lwtt_lmdar4
 SUBROUTINE lwttm_lmdar4(pga, pgb, puu1, puu2, ptt)
-  USE dimphy
+USE raddimlw_mod_h
+    USE dimphy
   IMPLICIT NONE
-  include "raddimlw.h"
 
   ! ------------------------------------------------------------------
