--- trunk/phylmd/calltherm.f	2014/03/12 21:16:36	90
+++ trunk/phylmd/calltherm.f	2014/03/26 17:18:58	91
@@ -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)