@@ -1099,22 +1099,33 @@ subroutine usrrxt( state, rxt, temp, tempi, tempe, invariants, h2ovmr, &
10991099 end if
11001100
11011101!- ----------------------------------------------------------------
1102- ! ... N + O2 -> NO + O Abel Fernandez, A. Goumri, and Arthur Fontijn; 1998
1102+ ! ... N + O2 -> NO + O
1103+ ! Rate coefficients calculated by J. Orlando, D. Kinnison, and J. Zhang (2024)
1104+ ! from data published in:
1105+ ! "Kinetics of the Reactions of N(4S) Atoms with O2 and CO2 over Wide Temperatures Ranges"
1106+ ! Abel Fernandez, A. Goumri, and Arthur Fontijn, 1998
1107+ ! https://doi.org/10.1021/jp972365k
11031108!- ----------------------------------------------------------------
11041109 if ( usr_N_O2_ndx > 0 ) then
11051110 call comp_exp( exp_fac, - 2557._r8 * tinv, ncol )
11061111 rxt(:,k,usr_N_O2_ndx) = 2.0e-18_r8 * temp(:ncol,k)** 2.15_r8 * exp_fac(:)
11071112 end if
11081113
11091114!- ----------------------------------------------------------------
1110- ! ... N2D + O2 -> NO + O Duff, J.W., H. Dothe, and R. D. Sharma, 2003
1115+ ! ... N2D + O2 -> NO + O
1116+ ! "On the rate coefficient of the N(2D)+O2->NO+O reaction in the terrestrial thermosphere"
1117+ ! Duff, J.W., H. Dothe, and R. D. Sharma, 2003
1118+ ! https://doi.org/10.1029/2002GL016720
11111119!- ----------------------------------------------------------------
11121120 if ( usr_N2D_O2_ndx > 0 ) then
11131121 rxt(:,k,usr_N2D_O2_ndx) = 6.2e-12_r8 * temp(:ncol,k)/ 300.0_r8
11141122 end if
11151123
11161124!- ----------------------------------------------------------------
11171125! ... N2D + e -> N + e Roble, 1995
1126+ ! "Energetics of the Mesosphere and Thermosphere"
1127+ ! R. Roble, 1995
1128+ ! https://doi.org/10.1029/GM087p0001
11181129!- ----------------------------------------------------------------
11191130 if ( usr_N2D_e_ndx > 0 ) then
11201131 rxt(:,k,usr_N2D_e_ndx) = 3.6e-10_r8 * sqrt (tempe(:ncol,k)/ 300.0_r8 )
0 commit comments