Changeset 3140 for trunk/LMDZ.VENUS
- Timestamp:
- Nov 27, 2023, 11:27:55 AM (12 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.VENUS/libf/phyvenus/photochemistry_venus.F90
r3137 r3140 1980 1980 1981 1981 !=========================================================== 1982 ! i026 : HCO2+ + e -> H + CO21982 ! i026 : spare slot (reaction rate set to zero) 1983 1983 !=========================================================== 1984 1984 … … 4220 4220 v_4(:,nb_reaction_4) = i025(:) 4221 4221 4222 !--- i026: HCO2+ + e -> H + CO2 4223 4224 ! UMIST 4225 4226 i026(:) = 1.75e-8*((300./t_elect(:))**0.5) 4222 !--- i026: spare slot 4223 4224 i026(:) = 0. 4227 4225 4228 4226 nb_reaction_4 = nb_reaction_4 + 1 … … 4253 4251 4254 4252 !--- i030: HCO2+ + e -> H + CO2 4253 4254 ! UMIST 4255 4255 4256 4256 i030(:) = 6.0e-8*((300./t_elect(:))**0.64)
Note: See TracChangeset
for help on using the changeset viewer.