- Timestamp:
- Jun 17, 2022, 4:24:49 PM (2 years ago)
- Location:
- LMDZ6/branches/LMDZ-ECRAD
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ-ECRAD
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ-ECRAD/libf/phylmd/Dust/splaeropt_6bands_rrtm.F90
r3770 r4171 8 8 USE dimphy 9 9 USE aero_mod 10 USE infotrac_phy 10 USE infotrac_phy, ONLY: nqtot, nbtr, tracers 11 11 USE phys_local_var_mod, ONLY: abs550aer 12 12 … … 35 35 ! 36 36 LOGICAL :: soluble 37 INTEGER :: i, k, irh, i tr, inu37 INTEGER :: i, k, irh, iq, itr, inu 38 38 INTEGER :: aerindex, spsol, spinsol 39 39 INTEGER :: RH_num(klon,klev) … … 165 165 cg_ae(:,:,:,:)=0. 166 166 167 DO itr=1, nbtr 168 169 IF (tname(itr+nqo)=='PREC') THEN !--precursor 170 CYCLE 171 ELSE IF (tname(itr+nqo)=='FINE') THEN !--fine mode accumulation mode 172 soluble=.TRUE. 173 spsol=1 174 aerindex=1 175 ELSE IF (tname(itr+nqo)=='COSS') THEN !--coarse mode sea salt 176 soluble=.TRUE. 177 spsol=2 178 aerindex=2 179 ELSE IF (tname(itr+nqo)=='CODU') THEN !--coarse mode dust 180 soluble=.FALSE. 181 spinsol=1 182 aerindex=3 183 ELSE IF (tname(itr+nqo)=='SCDU') THEN !--super coarse mode dust 184 soluble=.FALSE. 185 spinsol=2 186 aerindex=4 187 ELSE 188 CALL abort_physic(modname,'I cannot do aerosol optics for '//tname(itr+nqo),1) 189 ENDIF 167 itr = 0 168 DO iq = 1, nqtot 169 IF(.NOT.tracers(iq)%isInPhysics) CYCLE 170 itr = itr+1 171 SELECT CASE(tracers(iq)%name) 172 CASE('PREC'); CYCLE !--precursor 173 CASE('FINE'); soluble=.TRUE.; spsol=1; aerindex=1 !--fine mode accumulation mode 174 CASE('COSS'); soluble=.TRUE.; spsol=2; aerindex=2 !--coarse mode sea salt 175 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 CASE DEFAULT; CALL abort_physic(modname,'I cannot do aerosol optics for '//tracers(iq)%name,1) 178 END SELECT 190 179 191 180 IF (soluble) THEN ! For aerosol soluble components
Note: See TracChangeset
for help on using the changeset viewer.