Changeset 2951
- Timestamp:
- Jul 14, 2017, 5:22:12 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/rrtm/aeropt_5wv_rrtm.F90
r2858 r2951 431 431 soluble=.TRUE. 432 432 spsol=2 433 ELSEIF (aerosol_name(m).EQ.id_ ASSO4M_phy) THEN433 ELSEIF (aerosol_name(m).EQ.id_CSSO4M_phy) THEN 434 434 soluble=.TRUE. 435 435 spsol=3 436 fac=1.375 ! (NH4)2-SO4/SO4 132/96 mass conversion factor for AOD437 ELSEIF (aerosol_name(m).EQ.id_CSSO4M_phy) THEN438 soluble=.TRUE.439 spsol=4440 436 !fac=1.375 ! (NH4)2-SO4/SO4 132/96 mass conversion factor for AOD 441 437 fac=0.0 !--6 March 2017 - OB as Didier H said CSSO4 should not be used 438 ELSEIF (aerosol_name(m).EQ.id_ASSO4M_phy) THEN 439 soluble=.TRUE. 440 spsol=4 441 fac=1.375 ! (NH4)2-SO4/SO4 132/96 mass conversion factor for AOD 442 442 ELSEIF (aerosol_name(m).EQ.id_SSSSM_phy) THEN 443 443 soluble=.TRUE.
Note: See TracChangeset
for help on using the changeset viewer.