--- trunk/libf/phylmd/Radlwsw/radlwsw.f	2010/03/03 13:23:49	24
+++ trunk/libf/phylmd/Radlwsw/radlwsw.f	2011/09/23 12:28:01	52
@@ -17,9 +17,9 @@
 c      
       use dimphy
       use clesphys 
-      use YOMCST
+      use SUPHEC_M
       use raddim, only: kflev, kdlon
-      use yoethf
+      use yoethf_m
       IMPLICIT none
 c======================================================================
 c Auteur(s): Z.X. Li (LMD/CNRS) date: 19960719
@@ -81,7 +81,8 @@
       real, intent(in):: paprs(klon,klev+1)
       real, intent(in):: pplay(klon,klev)
       real albedo(klon), alblw(klon), tsol(klon)
-      real t(klon,klev), q(klon,klev)
+      real, intent(in):: t(klon,klev)
+      real q(klon,klev)
       real, intent(in):: wo(klon,klev)
       real cldfra(klon,klev), cldemi(klon,klev), cldtaupd(klon,klev)
       real heat(klon,klev), cool(klon,klev)