Changeset 2323 for LMDZ5/trunk/libf/phylmd/rrtm
- Timestamp:
- Jul 8, 2015, 10:02:43 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/rrtm/readaerosol_optic_rrtm.F90
r2297 r2323 288 288 ! Calculate the total mass of all soluble aersosols 289 289 ! to be revisited for AR6 290 mass_solu_aero(:,:) = sulfacc(:,:) + bcsol(:,:) + pomsol(:,:) + nitracc(:,:) ! + & 291 ! sscoarse(:,:) + ssacu(:,:) + sssupco(:,:) 292 mass_solu_aero_pi(:,:) = sulfacc_pi(:,:) + bcsol_pi(:,:) + pomsol_pi(:,:) + nitracc_pi(:,:) ! + & 293 ! sscoarse_pi(:,:) + ssacu_pi(:,:) + sssupco_pi(:,:) 290 mass_solu_aero(:,:) = sulfacc(:,:) + bcsol(:,:) + pomsol(:,:) + nitracc(:,:) + ssacu(:,:) 291 mass_solu_aero_pi(:,:) = sulfacc_pi(:,:) + bcsol_pi(:,:) + pomsol_pi(:,:) + nitracc_pi(:,:) + ssacu_pi(:,:) 294 292 295 293 !****************************************************************************************
Note: See TracChangeset
for help on using the changeset viewer.