Changeset 3137 for trunk/LMDZ.VENUS
- Timestamp:
- Nov 23, 2023, 11:08:26 AM (12 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.VENUS/libf/phyvenus/photochemistry_venus.F90
r3135 r3137 3667 3667 v_4(:,nb_reaction_4) = g010(:) 3668 3668 3669 !--- g011: so3 + h2o + M -> h2so4 + M 3670 !--- avec M = h2o 3671 3672 DO iz=1,nz 3673 ! jpl 2011 3674 ! g011(:) = 8.5E-21*exp(6540./t(:))*c(:,i_h2o) 3675 g011(iz) = 2.26E-23*MAX(t(iz),100.)*exp(6540./MAX(t(iz),100.)) & 3676 *c(iz,i_h2o) 3677 g011(iz) = g011(iz)*1.0E-20 3678 ! g011(:) = 0. ! SANS H2SO4 3679 ENDDO 3669 !--- g011: so3 + h2o + h2o -> h2so4 + h2o 3670 3671 ! lovejoy et al., j.phys.chem., 1996 3672 3673 do iz = 1,nz 3674 g011(iz) = 2.26E-23*max(t(iz),100.)*exp(6540./max(t(iz),100.)) 3675 g011(iz) = g011(iz)*1.0E-20*c(iz,i_h2o) 3676 end do 3680 3677 3681 3678 nb_reaction_4 = nb_reaction_4 + 1
Note: See TracChangeset
for help on using the changeset viewer.