Hi all,
I am trying to run a simulation in CESM2.1.5-CAM6 with trop_mam4 chem and MERRA2 offline_dyn to see the impact of turning off H2O2->Sulfate and Ozone->Sulfate aqueous reactions. I am trying this by copying the mo_usrrxt.F90 (found in $MODELROOT/components/cam/src/chemistry/mozart) in my $CASEROOT's SourceMod/src.cam and then multiplying the reaction rates with zero (example below).
However, the model is not considering these changes and my model runs as if I did not make these changes.
Case:
Example change (in red):
Thanks so much!
Sagar
I am trying to run a simulation in CESM2.1.5-CAM6 with trop_mam4 chem and MERRA2 offline_dyn to see the impact of turning off H2O2->Sulfate and Ozone->Sulfate aqueous reactions. I am trying this by copying the mo_usrrxt.F90 (found in $MODELROOT/components/cam/src/chemistry/mozart) in my $CASEROOT's SourceMod/src.cam and then multiplying the reaction rates with zero (example below).
However, the model is not considering these changes and my model runs as if I did not make these changes.
Case:
/glade/u/home/srathod/cases/F2000_42months_CESM2.1.5_nudging_2000USA_2000ROW_OZONEOFF_H2O2OFF
Example change (in red):
!-----------------------------------------------------------------------
! ... SO2 + O3 --> S(VI)
!-----------------------------------------------------------------------
if (aq_so2_o3_ndx >0) then
rxt(:,k,aq_so2_o3_ndx) = [B][COLOR=rgb(226, 80, 65)]0.00_r8 [/COLOR][/B]* lwc(:) * 1.0e-03_r8 * avo * &
HENRY298_SO2 * exp((H298_SO2 / R_CAL) * &
((1.0e+00_r8 / 298.0e+00_r8) - tinv(:))) * &
(K0_AQ * exp(ER0_AQ * &
((1.0e+00_r8 / 298.0e+00_r8) - tinv(:))) + &
K298_SO2_HSO3 * exp((H298_SO2_HSO3 / R_CAL) * &
((1.0e+00_r8 / 298.0e+00_r8) - tinv(:))) * &
(K1_AQ * exp(ER1_AQ * &
((1.0e+00_r8 / 298.0e+00_r8) - tinv(:))) / &
10.0e+00_r8**(-pH) + K2_AQ * exp(ER2_AQ * &
((1.0e+00_r8 / 298.0e+00_r8) - tinv(:))) * &
K298_HSO3_SO3 * exp((H298_HSO3_SO3 / R_CAL) * &
((1.0e+00_r8 / 298.0e+00_r8) - tinv(:))) / &
(10.0e+00_r8**(-pH))**2.0e+00_r8) ) * &
HENRY298_O3 * exp((H298_O3 / R_CAL) * &
((1.0e+00_r8 / 298.0e+00_r8) - tinv(:))) * &
(R_CONC * temp(:ncol,k))**2.0e+00_r8
endif
endif
Thanks so much!
Sagar