--- trunk/libf/phylmd/phyetat0.f90	2012/04/20 14:58:43	61
+++ trunk/libf/phylmd/phyetat0.f90	2012/07/26 14:37:37	62
@@ -41,7 +41,7 @@
     REAL alblw(klon, nbsrf)
     REAL evap(klon, nbsrf)
     REAL radsol(klon)
-    REAL rain_fall(klon)
+    REAL, intent(out):: rain_fall(klon)
     REAL snow_fall(klon)
     REAL sollw(klon)
     real solsw(klon)