--- trunk/Sources/phylmd/physiq.f	2015/07/20 16:01:49	157
+++ trunk/Sources/phylmd/physiq.f	2015/09/14 17:13:16	169
@@ -59,9 +59,10 @@
     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 transp_m, only: transp
     use unit_nml_m, only: unit_nml
     USE ymds2ju_m, ONLY: ymds2ju
     USE yoethf_m, ONLY: r2es, rvtmp2
@@ -289,7 +290,6 @@
     ! Declaration des procedures appelees
 
     EXTERNAL nuage ! calculer les proprietes radiatives
-    EXTERNAL transp ! transport total de l'eau et de l'energie
 
     ! Variables locales
 
@@ -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, &