Index: /LMDZ5/trunk/libf/phylmd/StratAer/calcaerosolstrato_rrtm.F90
===================================================================
--- /LMDZ5/trunk/libf/phylmd/StratAer/calcaerosolstrato_rrtm.F90	(revision 2714)
+++ /LMDZ5/trunk/libf/phylmd/StratAer/calcaerosolstrato_rrtm.F90	(revision 2715)
@@ -3,5 +3,5 @@
   USE infotrac, ONLY : nbtr
   USE phys_state_var_mod, ONLY: tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm, tau_aero_lw_rrtm
-  USE phys_local_var_mod, ONLY: mdw, tausum_aero, tausum_strat, tau_strat_550, tau_strat_1020, p_tropopause
+  USE phys_local_var_mod, ONLY: mdw, tausum_aero, tausum_strat, tau_strat_550, tau_strat_1020, stratomask
   USE aero_mod
   USE dimphy
@@ -102,5 +102,5 @@
   DO i=1,klon
   DO k=1,klev
-    IF (pplay(i,k).LT.p_tropopause(i)) THEN
+    IF (stratomask(i,k).GT.0.5) THEN
       tausum_strat(i,1)=tausum_strat(i,1)+tau_strat_wave(i,k,2)  !--550 nm
       tausum_strat(i,2)=tausum_strat(i,2)+tau_strat_wave(i,k,5)  !--1020 nm
Index: /LMDZ5/trunk/libf/phylmd/stratosphere_mask.F90
===================================================================
--- /LMDZ5/trunk/libf/phylmd/stratosphere_mask.F90	(revision 2714)
+++ /LMDZ5/trunk/libf/phylmd/stratosphere_mask.F90	(revision 2715)
@@ -28,4 +28,7 @@
 USE dimphy
 USE phys_local_var_mod, ONLY: stratomask
+#ifdef CPP_StratAer
+USE phys_local_var_mod, ONLY: p_tropopause
+#endif
 
 IMPLICIT NONE
@@ -89,6 +92,9 @@
 ENDDO
 
-!!--diagnostic not used for now
-!!p_tropopause(:)=tp(:)
+!--this is only diagnosedd in the case of StratAer
+!--but it could be useful to LMDz
+#ifdef CPP_StratAer
+p_tropopause(:)=tp(:)
+#endif
 
 IF (ifil.gt.0) THEN