--- trunk/libf/phylmd/phyredem.f90	2008/10/15 16:51:38	21
+++ trunk/libf/phylmd/phyredem.f90	2011/04/08 12:43:31	43
@@ -29,7 +29,7 @@
 
     REAL :: tslab(klon), seaice(klon) !IM "slab" ocean
     REAL :: qsurf(klon, nbsrf)
-    REAL :: qsol(klon)
+    REAL, intent(in):: qsol(klon)
     REAL :: snow(klon, nbsrf)
     REAL :: albedo(klon, nbsrf)