--- trunk/libf/dyn3d/calfis.f90	2008/04/18 14:45:53	10
+++ trunk/libf/dyn3d/calfis.f90	2008/08/07 12:29:13	18
@@ -8,7 +8,7 @@
 
   SUBROUTINE calfis(nq, lafin, rdayvrai, heure, pucov, pvcov, pteta, pq, &
        pmasse, pps, ppk, pphis, pphi, pducov, pdvcov, pdteta, pdq, pw, &
-       clesphy0, pdufi, pdvfi, pdhfi, pdqfi, pdpsfi)
+       pdufi, pdvfi, pdhfi, pdqfi, pdpsfi)
 
     ! From dyn3d/calfis.F,v 1.3 2005/05/25 13:10:09
 
@@ -57,14 +57,14 @@
     use comconst, only: kappa, cpp, dtphys, g, pi
     use comvert, only: preff, presnivs
     use comgeom, only: apoln, cu_2d, cv_2d, unsaire_2d, apols, rlonu, rlonv
-    use advtrac_m, only: niadv
+    use iniadvtrac_m, only: niadv
     use grid_change, only: dyn_phy, gr_fi_dyn
     use physiq_m, only: physiq
     use pressure_var, only: p3d, pls
 
     !    0.  Declarations :
 
-    INTEGER nq
+    INTEGER, intent(in):: nq
 
     !    Arguments :
 
@@ -99,7 +99,6 @@
     REAL pdpsfi(iim + 1,jjm + 1)
 
     INTEGER, PARAMETER:: longcles = 20
-    REAL clesphy0(longcles)
 
     !    Local variables :
 
@@ -332,7 +331,7 @@
     !   Appel de la physique:
 
     CALL physiq(nq, firstcal, lafin, rdayvrai, heure, dtphys, &
-         zplev, zplay, zphi, zphis, presnivs, clesphy0, zufi, zvfi, &
+         zplev, zplay, zphi, zphis, presnivs, zufi, zvfi, &
          ztfi, zqfi, pvervel, zdufi, zdvfi, zdtfi, zdqfi, zdpsrf, pducov, &
          PVteta) ! IM diagnostique PVteta, Amip2