Changeset 3114 for LMDZ6


Ignore:
Timestamp:
Dec 5, 2017, 2:49:25 PM (7 years ago)
Author:
oboucher
Message:

Small change in Pinatubo emissions

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2752 r3114  
    203203            !vertically distributed emission
    204204            DO k=1, klev
    205               ! stretch emission over one day of Pinatubo eruption
    206               emission=m_aer_emiss_vol*(mSO2mol/mSatom)/m_air_gridbox(i,k)*f_lay_emiss(k)/1./86400.
     205              ! stretch emission over one day (minus one timestep) of Pinatubo eruption
     206              emission=m_aer_emiss_vol*(mSO2mol/mSatom)/m_air_gridbox(i,k)*f_lay_emiss(k)/1./(86400.-pdtphys)
    207207              tr_seri(i,k,id_SO2_strat)=tr_seri(i,k,id_SO2_strat)+emission*pdtphys
    208208              budg_emi_so2(i)=budg_emi_so2(i)+emission*zdm(k)*mSatom/mSO2mol
Note: See TracChangeset for help on using the changeset viewer.