- Timestamp:
- Nov 5, 2018, 3:24:59 PM (6 years ago)
- Location:
- LMDZ6/branches/DYNAMICO-conv
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/DYNAMICO-conv
- Property svn:mergeinfo changed
/LMDZ6/trunk removed
- Property svn:mergeinfo changed
-
LMDZ6/branches/DYNAMICO-conv/libf/phylmd/rrtm/readaerosol_optic_rrtm.F90
r3356 r3411 173 173 ! 174 174 ! Read and interpolate sulfate 175 IF ( flag_aerosol .EQ. 1 .OR. flag_aerosol .EQ. 6 .OR. flag_aerosol .EQ. 7) THEN175 IF ( flag_aerosol .EQ. 1 .OR. flag_aerosol .EQ. 6 ) THEN 176 176 177 177 CALL readaerosol_interp(id_ASSO4M_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, sulfacc, sulfacc_pi,loadso4) … … 182 182 183 183 ! Read and interpolate bcsol and bcins 184 IF ( flag_aerosol .EQ. 2 .OR. flag_aerosol .EQ. 6 .OR. flag_aerosol .EQ. 7) THEN184 IF ( flag_aerosol .EQ. 2 .OR. flag_aerosol .EQ. 6 ) THEN 185 185 186 186 ! Get bc aerosol distribution … … 195 195 196 196 ! Read and interpolate pomsol and pomins 197 IF ( flag_aerosol .EQ. 3 .OR. flag_aerosol .EQ. 6 .OR. flag_aerosol .EQ. 7) THEN197 IF ( flag_aerosol .EQ. 3 .OR. flag_aerosol .EQ. 6 ) THEN 198 198 199 199 CALL readaerosol_interp(id_ASPOMM_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, pomsol, pomsol_pi, load_tmp3) … … 207 207 208 208 ! Read and interpolate csssm, ssssm, assssm 209 IF (flag_aerosol .EQ. 4 .OR. flag_aerosol .EQ. 6 .OR. flag_aerosol .EQ. 7) THEN209 IF (flag_aerosol .EQ. 4 .OR. flag_aerosol .EQ. 6 ) THEN 210 210 211 211 CALL readaerosol_interp(id_SSSSM_phy ,itap, pdtphys,rjourvrai, & … … 224 224 225 225 ! Read and interpolate cidustm 226 IF (flag_aerosol .EQ. 5 .OR. flag_aerosol .EQ. 6 .OR. flag_aerosol .EQ. 7) THEN226 IF (flag_aerosol .EQ. 5 .OR. flag_aerosol .EQ. 6 ) THEN 227 227 228 228 CALL readaerosol_interp(id_CIDUSTM_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, cidust, cidust_pi, loaddust) … … 234 234 ! 235 235 ! Read and interpolate asno3m, csno3m, cino3m 236 IF (flag_aerosol .EQ. 6 .OR. flag_aerosol .EQ. 7) THEN236 IF (flag_aerosol .EQ. 6) THEN 237 237 238 238 CALL readaerosol_interp(id_ASNO3M_phy, itap, pdtphys, rjourvrai, &
Note: See TracChangeset
for help on using the changeset viewer.