Changeset 4046 for LMDZ6/trunk/libf/phylmd/Dust/splaeropt_5wv_rrtm.F90
- Timestamp:
- Dec 15, 2021, 11:18:49 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/Dust/splaeropt_5wv_rrtm.F90
r2753 r4046 113 113 114 114 DO itr=1,nbtr !--loop over tracers 115 116 IF (tname(itr+nqo)=='PREC') THEN !--fine mode accumulation mode 117 CYCLE 118 ELSE IF (tname(itr+nqo)=='FINE') THEN !--fine mode accumulation mode 119 soluble=.TRUE. 120 spsol=1 121 aerindex=1 122 ELSE IF (tname(itr+nqo)=='COSS') THEN !--coarse mode sea salt 123 soluble=.TRUE. 124 spsol=2 125 aerindex=2 126 ELSE IF (tname(itr+nqo)=='CODU') THEN !--coarse mode dust 127 soluble=.FALSE. 128 spinsol=1 129 aerindex=3 130 ELSE IF (tname(itr+nqo)=='SCDU') THEN !--super coarse mode dust 131 soluble=.FALSE. 132 spinsol=2 133 aerindex=4 134 ELSE 135 CALL abort_physic(modname,'I cannot do aerosol optics for '//tname(itr+nqo),1) 136 ENDIF 115 SELECT CASE(tracers(itr+nqo)%name) 116 CASE('PREC'); CYCLE !--precursor 117 CASE('FINE'); soluble=.TRUE.; spsol=1; aerindex=1 !--fine mode accumulation mode 118 CASE('COSS'); soluble=.TRUE.; spsol=2; aerindex=2 !--coarse mode sea salt 119 CASE('CODU'); soluble=.FALSE.; spsol=1; aerindex=3 !--coarse mode dust 120 CASE('SCDU'); soluble=.FALSE.; spsol=2; aerindex=4 !--super coarse mode dust 121 CASE DEFAULT; CALL abort_physic(modname,'I cannot do aerosol optics for '//tracers(itr+nqo)%name,1) 122 END SELECT 137 123 138 124 DO la=1,las
Note: See TracChangeset
for help on using the changeset viewer.