--- trunk/Sources/phylmd/physiq.f	2015/07/20 16:01:49	157
+++ trunk/Sources/phylmd/physiq.f	2015/07/21 15:29:52	159
@@ -59,7 +59,7 @@
     use radlwsw_m, only: radlwsw
     use readsulfate_m, only: readsulfate
     use readsulfate_preind_m, only: readsulfate_preind
-    use sugwd_m, only: sugwd
+    use yoegwd, only: sugwd
     USE suphec_m, ONLY: ra, rcpd, retv, rg, rlvtt, romega, rsigma, rtt
     USE temps, ONLY: itau_phy
     use unit_nml_m, only: unit_nml
@@ -1313,8 +1313,8 @@
     ! Calcul des tendances traceurs
     call phytrac(itap, lmt_pas, julien, time, firstcal, lafin, dtphys, t, &
          paprs, play, mfu, mfd, pde_u, pen_d, ycoefh, fm_therm, entr_therm, &
-         yu1, yv1, ftsol, pctsrf, frac_impa, frac_nucl, pphis, da, phi, mp, &
-         upwd, dnwd, tr_seri, zmasse, ncid_startphy)
+         yu1, yv1, ftsol, pctsrf, frac_impa, frac_nucl, da, phi, mp, upwd, &
+         dnwd, tr_seri, zmasse, ncid_startphy, nid_ins)
 
     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, &