Changeset 2550 for LMDZ5/trunk/libf/phylmd/readaerosolstrato.F90

Timestamp:

Jun 8, 2016, 10:19:36 PM (8 years ago)

Author:

oboucher

Message:

Correcting a bug in the calculation of od550_strat
Computing od_10um_strat in readaerosolstrato*.F90

File:

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

LMDZ5/trunk/libf/phylmd/readaerosolstrato.F90

@@ -55 +55 @@
     data piz_strat  /0.9999998, 0.99762493/
     data cg_strat   /0.73107845,0.73229635/
-    real, dimension(nwave) :: alpha_strat_wave
+    real, dimension(nwave_sw) :: alpha_strat_wave
     data alpha_strat_wave/3.36780953,3.34667683,3.20444202,3.0293026,2.82108808/
 
@@ -153 +153 @@
 
 !--total vertical aod at the 6 wavelengths
-    DO wave=1, nwave
+    DO wave=1, nwave_sw
     DO k=1, klev
     tausum_aero(:,wave,id_STRAT_phy)=tausum_aero(:,wave,id_STRAT_phy)+tau_aer_strat(:,k)*alpha_strat_wave(wave)/alpha_strat_wave(2)