Changeset 2715 for LMDZ5/trunk/libf/phylmd/StratAer

Timestamp:

Nov 28, 2016, 4:02:59 PM (8 years ago)

Author:

oboucher

Message:

Fixing a small glitch in my StratAer? module
p_tropopause was used but not defined...
now it is diagnosed but not used !

File:

• LMDZ5/trunk/libf/phylmd/StratAer/calcaerosolstrato_rrtm.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/StratAer/calcaerosolstrato_rrtm.F90

@@ -3 +3 @@
   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 +102 @@
   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