From 245ff0c0e544c646cc8f68000940a1311cd68cbf Mon Sep 17 00:00:00 2001 From: Philippe Le Sager Date: Wed, 1 Jul 2026 18:33:20 +0200 Subject: [PATCH] Fix H2O2 and O3 depletion in SO2-to-SO4 --- ifs-source/arpifs/phys_ec/aer_so2so4_v2.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ifs-source/arpifs/phys_ec/aer_so2so4_v2.F90 b/ifs-source/arpifs/phys_ec/aer_so2so4_v2.F90 index 4158587c..3ae3c866 100644 --- a/ifs-source/arpifs/phys_ec/aer_so2so4_v2.F90 +++ b/ifs-source/arpifs/phys_ec/aer_so2so4_v2.F90 @@ -650,8 +650,8 @@ SUBROUTINE AER_SO2SO4_V2 & ! S(iv)tot : initial - gas - aq ZC_SO2_tot = ZC_SO2_tot - ZTend_OH - ZTend_Aq ! H2O2 and O3 : initial - aq - ZC_H2O2_gas = ZC_H2O2_gas - ZTend_Aq - ZC_O3_gas = ZC_O3_gas - ZTend_Aq + ZC_H2O2_gas = ZC_H2O2_gas - ZTend_H2O2 * ZCLW_VFRAC + ZC_O3_gas = ZC_O3_gas - ZTend_O3 * ZCLW_VFRAC ENDDO