--- trunk/libf/dyn3d/calfis.f90	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/calfis.f90	2008/03/31 12:24:17	7
@@ -133,7 +133,7 @@
     REAL SSUM
 
     LOGICAL:: firstcal = .true.
-    REAL rdayvrai
+    REAL, intent(in):: rdayvrai
 
     !-----------------------------------------------------------------------