Changeset 3114 for LMDZ6/trunk/libf

Timestamp:

Dec 5, 2017, 2:49:25 PM (7 years ago)

Author:

oboucher

Message:

Small change in Pinatubo emissions

File:

• LMDZ6/trunk/libf/phylmd/StratAer/traccoag_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/StratAer/traccoag_mod.F90

@@ -203 +203 @@
             !vertically distributed emission
             DO k=1, klev
-              ! stretch emission over one day of Pinatubo eruption
-              emission=m_aer_emiss_vol*(mSO2mol/mSatom)/m_air_gridbox(i,k)*f_lay_emiss(k)/1./86400. 
+              ! stretch emission over one day (minus one timestep) of Pinatubo eruption
+              emission=m_aer_emiss_vol*(mSO2mol/mSatom)/m_air_gridbox(i,k)*f_lay_emiss(k)/1./(86400.-pdtphys)
               tr_seri(i,k,id_SO2_strat)=tr_seri(i,k,id_SO2_strat)+emission*pdtphys 
               budg_emi_so2(i)=budg_emi_so2(i)+emission*zdm(k)*mSatom/mSO2mol