Changeset 4163 for LMDZ6/trunk/libf/phylmd/Dust
- Timestamp:
- May 23, 2022, 7:17:52 PM (3 years ago)
- Location:
- LMDZ6/trunk/libf/phylmd/Dust
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/Dust/splaeropt_5wv_rrtm.F90
r4071 r4163 120 120 CASE('FINE'); soluble=.TRUE.; spsol=1; aerindex=1 !--fine mode accumulation mode 121 121 CASE('COSS'); soluble=.TRUE.; spsol=2; aerindex=2 !--coarse mode sea salt 122 CASE('CODU'); soluble=.FALSE.; sp sol=1; aerindex=3 !--coarse mode dust123 CASE('SCDU'); soluble=.FALSE.; sp sol=2; aerindex=4 !--super coarse mode dust122 CASE('CODU'); soluble=.FALSE.; spinsol=1; aerindex=3 !--coarse mode dust 123 CASE('SCDU'); soluble=.FALSE.; spinsol=2; aerindex=4 !--super coarse mode dust 124 124 CASE DEFAULT; CALL abort_physic(modname,'I cannot do aerosol optics for '//tracers(iq)%name,1) 125 125 END SELECT -
LMDZ6/trunk/libf/phylmd/Dust/splaeropt_6bands_rrtm.F90
r4071 r4163 173 173 CASE('FINE'); soluble=.TRUE.; spsol=1; aerindex=1 !--fine mode accumulation mode 174 174 CASE('COSS'); soluble=.TRUE.; spsol=2; aerindex=2 !--coarse mode sea salt 175 CASE('CODU'); soluble=.FALSE.; sp sol=1; aerindex=3 !--coarse mode dust176 CASE('SCDU'); soluble=.FALSE.; sp sol=2; aerindex=4 !--super coarse mode dust175 CASE('CODU'); soluble=.FALSE.; spinsol=1; aerindex=3 !--coarse mode dust 176 CASE('SCDU'); soluble=.FALSE.; spinsol=2; aerindex=4 !--super coarse mode dust 177 177 CASE DEFAULT; CALL abort_physic(modname,'I cannot do aerosol optics for '//tracers(iq)%name,1) 178 178 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.