Changeset 2953 for LMDZ5/trunk/libf/phylmd/rrtm
- Timestamp:
- Jul 14, 2017, 11:55:59 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/rrtm/readaerosol_optic_rrtm.F90
r2862 r2953 17 17 USE phys_local_var_mod, only: sconcso4,sconcno3,sconcoa,sconcbc,sconcss,sconcdust, & 18 18 concso4,concno3,concoa,concbc,concss,concdust,loadso4,loadoa,loadbc,loadss,loaddust, & 19 loadno3, load_tmp1,load_tmp2,load_tmp3 19 loadno3,load_tmp1,load_tmp2,load_tmp3,load_tmp4,load_tmp5,load_tmp6,load_tmp7, & 20 load_tmp8,load_tmp9,load_tmp10 20 21 21 22 USE infotrac_phy … … 196 197 IF ( flag_aerosol .EQ. 3 .OR. flag_aerosol .EQ. 6 ) THEN 197 198 198 CALL readaerosol_interp(id_ASPOMM_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, pomsol, pomsol_pi, load_tmp 1)199 CALL readaerosol_interp(id_AIPOMM_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, pomins, pomins_pi, load_tmp 2)200 loadoa(:)=load_tmp 1(:)+load_tmp2(:)199 CALL readaerosol_interp(id_ASPOMM_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, pomsol, pomsol_pi, load_tmp3) 200 CALL readaerosol_interp(id_AIPOMM_phy, itap, pdtphys, rjourvrai, debut, pplay, paprs, t_seri, pomins, pomins_pi, load_tmp4) 201 loadoa(:)=load_tmp3(:)+load_tmp4(:) 201 202 ELSE 202 203 pomsol(:,:) = 0. ; pomsol_pi(:,:) = 0. … … 209 210 210 211 CALL readaerosol_interp(id_SSSSM_phy ,itap, pdtphys,rjourvrai, & 211 debut, pplay, paprs, t_seri, sssupco, sssupco_pi, load_tmp 1)212 debut, pplay, paprs, t_seri, sssupco, sssupco_pi, load_tmp5) 212 213 CALL readaerosol_interp(id_CSSSM_phy ,itap, pdtphys,rjourvrai, & 213 debut, pplay, paprs, t_seri, sscoarse,sscoarse_pi, load_tmp 2)214 debut, pplay, paprs, t_seri, sscoarse,sscoarse_pi, load_tmp6) 214 215 CALL readaerosol_interp(id_ASSSM_phy ,itap, pdtphys,rjourvrai, & 215 debut, pplay, paprs, t_seri, ssacu, ssacu_pi, load_tmp 3)216 loadss(:)=load_tmp 1(:)+load_tmp2(:)+load_tmp3(:)216 debut, pplay, paprs, t_seri, ssacu, ssacu_pi, load_tmp7) 217 loadss(:)=load_tmp5(:)+load_tmp6(:)+load_tmp7(:) 217 218 ELSE 218 219 sscoarse(:,:) = 0. ; sscoarse_pi(:,:) = 0. … … 236 237 237 238 CALL readaerosol_interp(id_ASNO3M_phy, itap, pdtphys, rjourvrai, & 238 debut, pplay, paprs, t_seri, nitracc, nitracc_pi, load_tmp 1)239 debut, pplay, paprs, t_seri, nitracc, nitracc_pi, load_tmp8) 239 240 CALL readaerosol_interp(id_CSNO3M_phy, itap, pdtphys, rjourvrai, & 240 debut, pplay, paprs, t_seri, nitrcoarse, nitrcoarse_pi, load_tmp 2)241 debut, pplay, paprs, t_seri, nitrcoarse, nitrcoarse_pi, load_tmp9) 241 242 CALL readaerosol_interp(id_CINO3M_phy, itap, pdtphys, rjourvrai, & 242 debut, pplay, paprs, t_seri, nitrinscoarse, nitrinscoarse_pi, load_tmp 3)243 loadno3(:)=load_tmp 1(:)+load_tmp2(:)+load_tmp3(:)243 debut, pplay, paprs, t_seri, nitrinscoarse, nitrinscoarse_pi, load_tmp10) 244 loadno3(:)=load_tmp8(:)+load_tmp9(:)+load_tmp10(:) 244 245 245 246 ELSE
Note: See TracChangeset
for help on using the changeset viewer.