--- trunk/libf/dyn3d/calfis.f90	2012/09/20 13:00:41	66
+++ trunk/libf/dyn3d/calfis.f90	2013/02/18 16:33:12	69
@@ -71,7 +71,7 @@
     REAL, intent(in):: q(iim + 1, jjm + 1, llm, nqmx)
     ! (mass fractions of advected fields)
 
-    REAL phis(iim + 1, jjm + 1)
+    REAL, intent(in):: phis(iim + 1, jjm + 1)
     REAL, intent(in):: phi(iim + 1, jjm + 1, llm)
 
     REAL dv(iim + 1, jjm, llm)