--- trunk/libf/dyn3d/calfis.f90	2008/08/07 12:29:13	18
+++ trunk/libf/dyn3d/calfis.f90	2008/10/15 16:19:57	20
@@ -55,7 +55,7 @@
     use dimens_m, only: iim, jjm, llm, nqmx
     use dimphy, only: klon
     use comconst, only: kappa, cpp, dtphys, g, pi
-    use comvert, only: preff, presnivs
+    use comvert, only: preff
     use comgeom, only: apoln, cu_2d, cv_2d, unsaire_2d, apols, rlonu, rlonv
     use iniadvtrac_m, only: niadv
     use grid_change, only: dyn_phy, gr_fi_dyn
@@ -331,7 +331,7 @@
     !   Appel de la physique:
 
     CALL physiq(nq, firstcal, lafin, rdayvrai, heure, dtphys, &
-         zplev, zplay, zphi, zphis, presnivs, zufi, zvfi, &
+         zplev, zplay, zphi, zphis, zufi, zvfi, &
          ztfi, zqfi, pvervel, zdufi, zdvfi, zdtfi, zdqfi, zdpsrf, pducov, &
          PVteta) ! IM diagnostique PVteta, Amip2