Changeset 3660

Timestamp:

Apr 12, 2020, 4:18:03 PM (4 years ago)

Author:

oboucher

Message:

Correction of diagnostic extinction coefficient at 1020 nm

File:

• LMDZ6/trunk/libf/phylmd/StratAer/calcaerosolstrato_rrtm.F90 (modified) (1 diff)

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

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