--- trunk/libf/dyn3d/calfis.f90	2010/06/08 15:37:21	35
+++ trunk/libf/dyn3d/calfis.f90	2011/01/25 15:11:05	39
@@ -4,9 +4,9 @@
 
 contains
 
-  SUBROUTINE calfis(lafin, rdayvrai, heure, pucov, pvcov, pteta, q, &
+  SUBROUTINE calfis(rdayvrai, heure, pucov, pvcov, pteta, q, &
        pmasse, pps, ppk, pphis, pphi, pducov, pdvcov, pdteta, pdq, pw, &
-       pdufi, pdvfi, pdhfi, pdqfi, pdpsfi)
+       pdufi, pdvfi, pdhfi, pdqfi, pdpsfi, lafin)
 
     ! From dyn3d/calfis.F, version 1.3 2005/05/25 13:10:09
     ! Authors : P. Le Van, F. Hourdin
@@ -49,13 +49,14 @@
     !        pdtrad         radiative tendencies  \  both input
     !        pfluxrad       radiative fluxes      /  and output
 
-    use comconst, only: kappa, cpp, dtphys, g, pi
+    use comconst, only: kappa, cpp, dtphys, g
     use comvert, only: preff
     use comgeom, only: apoln, cu_2d, cv_2d, unsaire_2d, apols, rlonu, rlonv
     use dimens_m, only: iim, jjm, llm, nqmx
     use dimphy, only: klon
     use grid_change, only: dyn_phy, gr_fi_dyn
     use iniadvtrac_m, only: niadv
+    use nr_util, only: pi
     use physiq_m, only: physiq
     use pressure_var, only: p3d, pls