--- trunk/libf/phylmd/calltherm.f90	2011/09/23 12:28:01	52
+++ trunk/phylmd/calltherm.f	2014/03/26 17:18:58	91
@@ -12,10 +12,11 @@
     USE dimphy, ONLY: klev, klon
     USE ctherm, ONLY: l_mix_thermals, nsplit_thermals, r_aspect_thermals, &
          tho_thermals, w2di_thermals
+    use thermcell_m, only: thermcell
 
     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)