Changeset 2231 for LMDZ5/trunk/libf/phylmd/rrtm/readaerosolstrato_rrtm.F90
- Timestamp:
- Mar 12, 2015, 5:46:56 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/rrtm/readaerosolstrato_rrtm.F90
r2183 r2231 211 211 ENDDO 212 212 213 !--default SSA value if there is no aerosol 214 !--to avoid 0 values that seems to cause some problem to RRTM 215 WHERE (tau_aero_sw_rrtm.LT.1.e-14) 216 piz_aero_sw_rrtm = 1.0 217 ENDWHERE 218 219 !--in principle this should not be necessary 220 !--as these variables have min values already but just in case 221 !--put 1e-15 min value to both SW and LW AOD 222 tau_aero_sw_rrtm = MAX(tau_aero_sw_rrtm,1.e-15) 223 tau_aero_lw_rrtm = MAX(tau_aero_lw_rrtm,1.e-15) 224 213 225 end subroutine readaerosolstrato_rrtm
Note: See TracChangeset
for help on using the changeset viewer.