Index: LMDZ5/trunk/libf/phylmd/tropopause_m.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/tropopause_m.F90	(revision 2970)
+++ LMDZ5/trunk/libf/phylmd/tropopause_m.F90	(revision 2971)
@@ -17,5 +17,4 @@
   USE dimphy,       ONLY: klon, klev
   USE geometry_mod, ONLY: latitude_deg, longitude_deg
-  USE write_field_phy
   USE vertical_layers_mod, ONLY: aps, bps, preff
 
@@ -85,8 +84,4 @@
   END DO
 
-  CALL writefield_phy('PV_ou'   ,pvor_cen(:,1:klev-1),klev-1)
-  CALL writefield_phy('theta_ou',tpot_cen,klev)
-  CALL writefield_phy('Pcen_ou' ,pplay   ,klev)
-
   !--- LOCATE TROPOPAUSE: LOWEST POINT BETWEEN THETA=380K AND PV=2PVU SURFACES.
   DO i = 1, klon
@@ -107,5 +102,4 @@
                             dyn_tropopause(i) )
   END DO
-  CALL writefield_phy('PreTr_ou',dyn_tropopause,1)
 
 END FUNCTION dyn_tropopause