--- trunk/libf/phylmd/calltherm.f90	2011/12/06 15:07:04	54
+++ trunk/Sources/phylmd/calltherm.f	2015/04/29 15:47:56	134
@@ -16,7 +16,7 @@
 
     REAL, intent(in):: dtime
 
-    REAL u_seri(klon, klev), v_seri(klon, klev)
+    REAL, intent(inout):: u_seri(klon, klev), v_seri(klon, klev)
     REAL, intent(inout):: t_seri(klon, klev)
     real q_seri(klon, klev)
     REAL, intent(in):: paprs(klon, klev+1)