Changeset 2715 for LMDZ5/trunk

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 !

Location:

LMDZ5/trunk/libf/phylmd

Files:

• StratAer/calcaerosolstrato_rrtm.F90 (modified) (2 diffs)
• stratosphere_mask.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

LMDZ5/trunk/libf/phylmd/stratosphere_mask.F90

@@ -28 +28 @@
 USE dimphy
 USE phys_local_var_mod, ONLY: stratomask
+#ifdef CPP_StratAer
+USE phys_local_var_mod, ONLY: p_tropopause
+#endif
 
 IMPLICIT NONE
@@ -89 +92 @@
 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