Changeset 3798 for LMDZ6/branches/Ocean_skin/libf/phylmd/StratAer/calcaerosolstrato_rrtm.F90

Timestamp:

Jan 11, 2021, 11:24:08 PM (4 years ago)

Author:

lguez

Message:

Sync latest trunk changes to Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

• . (modified) (1 prop)
• libf/phylmd/StratAer/calcaerosolstrato_rrtm.F90 (modified) (2 diffs)

LMDZ6/branches/Ocean_skin/libf/phylmd/StratAer/calcaerosolstrato_rrtm.F90

@@ -4 +4 @@
 SUBROUTINE calcaerosolstrato_rrtm(pplay,t_seri,paprs,debut)
 
-  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, stratomask
@@ -118 +117 @@
     zdz=(paprs(i,k)-paprs(i,k+1))/zrho/RG     !thickness of layer in m
     tau_strat_550(i,k)=tau_strat_wave(i,k,2)/zdz
-    tau_strat_1020(i,k)=tau_strat_wave(i,k,6)/zdz
+    tau_strat_1020(i,k)=tau_strat_wave(i,k,5)/zdz
   ENDDO
   ENDDO