--- trunk/phylmd/physiq.f90	2013/11/15 18:45:49	76
+++ trunk/phylmd/physiq.f	2014/03/05 14:57:53	82
@@ -5,7 +5,7 @@
 contains
 
   SUBROUTINE physiq(lafin, rdayvrai, time, dtphys, paprs, play, pphi, pphis, &
-       u, v, t, qx, omega, d_u, d_v, d_t, d_qx, d_ps, dudyn, PVteta)
+       u, v, t, qx, omega, d_u, d_v, d_t, d_qx, d_ps, dudyn)
 
     ! From phylmd/physiq.F, version 1.22 2006/02/20 09:38:28
     ! (subversion revision 678)
@@ -107,9 +107,6 @@
     INTEGER nbteta
     PARAMETER(nbteta = 3)
 
-    REAL PVteta(klon, nbteta) 
-    ! (output vorticite potentielle a des thetas constantes)
-
     LOGICAL ok_gust ! pour activer l'effet des gust sur flux surface
     PARAMETER (ok_gust = .FALSE.)
 
@@ -1556,16 +1553,14 @@
 
     ! Calcul des tendances traceurs
     call phytrac(rnpb, itap, lmt_pas, julien, time, firstcal, lafin, nqmx-2, &
-         dtphys, u, t, paprs, play, mfu, mfd, pen_u, pde_u, pen_d, pde_d, &
-         ycoefh, fm_therm, entr_therm, yu1, yv1, ftsol, pctsrf, frac_impa, &
-         frac_nucl, pphis, albsol, rhcl, cldfra, rneb, diafra, cldliq, &
-         pmflxr, pmflxs, prfl, psfl, da, phi, mp, upwd, dnwd, tr_seri, zmasse)
-
-    IF (offline) THEN
-       call phystokenc(dtphys, rlon, rlat, t, mfu, mfd, pen_u, pde_u, &
-            pen_d, pde_d, fm_therm, entr_therm, ycoefh, yu1, yv1, ftsol, &
-            pctsrf, frac_impa, frac_nucl, pphis, airephy, dtphys, itap)
-    ENDIF
+         dtphys, u, t, paprs, play, mfu, mfd, pde_u, pen_d, ycoefh, fm_therm, &
+         entr_therm, yu1, yv1, ftsol, pctsrf, frac_impa, frac_nucl, pphis, &
+         albsol, rhcl, cldfra, rneb, diafra, cldliq, pmflxr, pmflxs, prfl, &
+         psfl, da, phi, mp, upwd, dnwd, tr_seri, zmasse)
+
+    IF (offline) call phystokenc(dtphys, rlon, rlat, t, mfu, mfd, pen_u, &
+         pde_u, pen_d, pde_d, fm_therm, entr_therm, ycoefh, yu1, yv1, ftsol, &
+         pctsrf, frac_impa, frac_nucl, pphis, airephy, dtphys, itap)
 
     ! Calculer le transport de l'eau et de l'energie (diagnostique)
     CALL transp(paprs, zxtsol, t_seri, q_seri, u_seri, v_seri, zphi, ve, vq, &