--- trunk/libf/dyn3d/calfis.f90	2011/03/24 11:52:41	42
+++ trunk/libf/dyn3d/calfis.f90	2011/04/08 12:43:31	43
@@ -80,7 +80,7 @@
     REAL pdteta(iim + 1, jjm + 1, llm)
     REAL pdq(iim + 1, jjm + 1, llm, nqmx)
 
-    REAL pw(iim + 1, jjm + 1, llm)
+    REAL, intent(in):: pw(iim + 1, jjm + 1, llm)
 
     REAL pps(iim + 1, jjm + 1)
     REAL, intent(in):: ppk(iim + 1, jjm + 1, llm)