--- trunk/libf/phylmd/physiq.f90	2009/12/14 15:25:16	23
+++ trunk/libf/phylmd/physiq.f90	2010/04/01 14:59:19	31
@@ -23,7 +23,9 @@
     !AA                  -  stockage des moyennes des champs necessaires
     !AA                     en mode traceur off-line 
 
-    USE ioipsl, only: ymds2ju, histwrite, histsync
+    USE calendar, only: ymds2ju
+    USE histwrite_m, only: histwrite
+    USE histcom, only: histsync
     use dimens_m, only: jjm, iim, llm
     use indicesol, only: nbsrf, is_ter, is_lic, is_sic, is_oce, &
          clnsurf, epsfra
@@ -1797,10 +1799,7 @@
             , d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec)
     END IF
 
-    !AA Installation de l'interface online-offline pour traceurs
-
-    !   Calcul  des tendances traceurs
-
+    ! Calcul  des tendances traceurs
     call phytrac(rnpb, itap, lmt_pas, julien,  gmtime, firstcal, lafin, nq-2, &
          pdtphys, u, v, t, paprs, pplay, pmfu,  pmfd,  pen_u,  pde_u,  pen_d, &
          pde_d, ycoefh, fm_therm, entr_therm, yu1, yv1, ftsol, pctsrf, &
@@ -1809,24 +1808,16 @@
          psfl, da, phi, mp, upwd, dnwd, tr_seri, zmasse)
 
     IF (offline) THEN
-
-       print*, 'Attention on met a 0 les thermiques pour phystoke'
-       call phystokenc(pdtphys, rlon, rlat, &
-            t, pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, &
-            fm_therm, entr_therm, &
-            ycoefh, yu1, yv1, ftsol, pctsrf, &
-            frac_impa, frac_nucl, &
-            pphis, airephy, pdtphys, itap)
-
+       call phystokenc(pdtphys, rlon, rlat, t, pmfu, pmfd, pen_u, pde_u, &
+            pen_d, pde_d, fm_therm, entr_therm, ycoefh, yu1, yv1, ftsol, &
+            pctsrf, frac_impa, frac_nucl, pphis, airephy, pdtphys, itap)
     ENDIF
 
     ! 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, &
+         ue, uq)
 
-    CALL transp (paprs, zxtsol, &
-         t_seri, q_seri, u_seri, v_seri, zphi, &
-         ve, vq, ue, uq)
-
-    !IM diag. bilKP
+    ! diag. bilKP
 
     CALL transp_lay (paprs, zxtsol, &
          t_seri, q_seri, u_seri, v_seri, zphi, &