Changeset 3661 for LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/StratAer/calcaerosolstrato_rrtm.F90

Timestamp:

Apr 12, 2020, 4:37:17 PM (5 years ago)

Author:

oboucher

Message:

Correction of diagnostic on extinction coeff at 1020 nm

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/StratAer/calcaerosolstrato_rrtm.F90 (modified) (1 diff)

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/StratAer/calcaerosolstrato_rrtm.F90

@@ -115 +115 @@
     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