Changeset 2752 for LMDZ5/trunk/libf/phylmd/StratAer/aer_sedimnt.F90

Timestamp:

Jan 8, 2017, 4:44:10 PM (8 years ago)

Author:

oboucher

Message:

Changes to StratAer? module, including setting up a new output file
hence dimension of output metadata is increased to 10 items.

File:

• LMDZ5/trunk/libf/phylmd/StratAer/aer_sedimnt.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/StratAer/aer_sedimnt.F90

@@ -14 +14 @@
 !-----------------------------------------------------------------------
 
-  USE phys_local_var_mod, ONLY: mdw, sfluxaer, DENSO4, f_r_wet, vsed_aer
+  USE phys_local_var_mod, ONLY: mdw, budg_sed_part, DENSO4, f_r_wet, vsed_aer
   USE dimphy, ONLY : klon,klev
   USE infotrac
@@ -106 +106 @@
 !---ZAERONWM1 now contains the surface concentration at the new timestep
 !---PFLUXAER in unit of xx m-2 s-1 
-sfluxaer(:)=0.0
+budg_sed_part(:)=0.0
 DO JL=1,klon
   ZRHO=pplay(JL,1)/(RD*t_seri(JL,1))
   DO nb=1,nbtr_bin
-    !compute sfluxaer as sum over bins in kg(S)/m2/s
-    sfluxaer(JL)=sfluxaer(JL)+ZRHO*ZAERONWM1(JL,nb)*ZVAER(JL,1,nb)*(mSatom/mH2SO4mol) &
+    !compute budg_sed_part as sum over bins in kg(S)/m2/s
+    budg_sed_part(JL)=budg_sed_part(JL)+ZRHO*ZAERONWM1(JL,nb)*ZVAER(JL,1,nb)*(mSatom/mH2SO4mol) &
                 & *dens_aer_dry*4./3.*RPI*(mdw(nb)/2.)**3
   ENDDO