Changeset 2929 for trunk/LMDZ.MARS/libf
- Timestamp:
- Mar 31, 2023, 5:29:15 PM (20 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/aeronomars/photochemistry.F90
r2833 r2929 1810 1810 ! UMIST 1811 1811 1812 i019(:) = 7.7e-7*(300./t_elect(:))**0.31813 1814 nb_reaction_4 = nb_reaction_4 + 1 1815 v_4(:,nb_reaction_4) = i01 6(:)1812 i019(:) = 1.7e-7*(300./t_elect(:))**0.3 1813 1814 nb_reaction_4 = nb_reaction_4 + 1 1815 v_4(:,nb_reaction_4) = i019(:) 1816 1816 1817 1817 !--- i020: N2+ + o -> o+ + N2
Note: See TracChangeset
for help on using the changeset viewer.