Changeset 2323 for LMDZ5/trunk/libf/phylmd/readaerosol_optic.F90

Timestamp:

Jul 8, 2015, 10:02:43 AM (9 years ago)

Author:

acozic

Message:

add seasalt accumulation mode in mass_solu_aero calcul
it will make some difference in ok_aie case
(Modification by Yves B., and Olivier B.)

File:

• LMDZ5/trunk/libf/phylmd/readaerosol_optic.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/readaerosol_optic.F90

@@ -172 +172 @@
 ! Calculate the total mass of all soluble aersosols
 !
-  mass_solu_aero(:,:)    = sulfate(:,:)    + bcsol(:,:)    + pomsol(:,:) !   + &
-!       sscoarse(:,:)    + ssacu(:,:)    + sssupco(:,:) 
-  mass_solu_aero_pi(:,:) = sulfate_pi(:,:) + bcsol_pi(:,:) + pomsol_pi(:,:) ! + &
-!       sscoarse_pi(:,:) + ssacu_pi(:,:) + sssupco_pi(:,:)
+  mass_solu_aero(:,:)    = sulfate(:,:)    + bcsol(:,:)    + pomsol(:,:) + ssacu(:,:)
+  mass_solu_aero_pi(:,:) = sulfate_pi(:,:) + bcsol_pi(:,:) + pomsol_pi(:,:) + ssacu_pi(:,:)
 
 !****************************************************************************************