Skip to content

Commit f5b11f7

Browse files
committed
add doi references
modified: src/chemistry/mozart/mo_usrrxt.F90
1 parent d4b1678 commit f5b11f7

1 file changed

Lines changed: 13 additions & 2 deletions

File tree

src/chemistry/mozart/mo_usrrxt.F90

Lines changed: 13 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -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

Comments
 (0)