Changeset 3427 for LMDZ6/branches/IPSLCM6.0.15/libf

Timestamp:

Dec 14, 2018, 12:14:44 PM (6 years ago)

Author:

oboucher

Message:

Correcting a bug for strat aerosol forcing diagnostics

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90 (modified) (1 diff)

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90

@@ -366 +366 @@
 !--this is the VOLMIP case
     DO band=1, NLW
+!--stratospheric aerosols are not added to index 1 
+!--and we copy index 2 in index 1 because we want the same dust aerosol LW properties as above
+      tau_aero_lw_rrtm(:,:,1,band)  = tau_aero_lw_rrtm(:,:,2,band)
+!
       WHERE (stratomask.GT.0.999999)
 !--stratospheric aerosols are only added to index 2
         tau_aero_lw_rrtm(:,:,2,band)  = tau_aero_lw_rrtm(:,:,2,band) + taulw_aer_strat(:,:,band)
-!--stratospheric aerosols are not added to index 1 
-!--and we copy index 2 in index 1 because we want the same dust aerosol LW properties as above
-        tau_aero_lw_rrtm(:,:,1,band)  = tau_aero_lw_rrtm(:,:,2,band)
       ENDWHERE
     ENDDO