--- trunk/libf/dyn3d/calfis.f90	2008/04/18 14:45:53	10
+++ trunk/libf/dyn3d/calfis.f90	2008/07/21 16:05:07	12
@@ -99,7 +99,7 @@
     REAL pdpsfi(iim + 1,jjm + 1)
 
     INTEGER, PARAMETER:: longcles = 20
-    REAL clesphy0(longcles)
+    REAL, intent(in):: clesphy0(longcles)
 
     !    Local variables :