Changeset 3593

Timestamp:

Jan 21, 2025, 4:39:14 PM (13 hours ago)

Author:

flefevre

Message:

Cleaning. This does (should) not change the results.

File:

• trunk/LMDZ.VENUS/libf/phyvenus/photochemistry_venus.F90 (modified) (6 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/photochemistry_venus.F90

@@ -3812 +3812 @@
       v_3(:,nb_reaction_3) = g022(:)
 
-
 !---  g023: s2 + o -> so + s 
 
@@ -3828 +3827 @@
       g024(:) = 6.63E-20*(t(:)**2.57)*exp(-1180./t(:))
       
-!      g025(:) = 0.0E+0
-
       nb_reaction_4 = nb_reaction_4 + 1
       v_4(:,nb_reaction_4) = g024(:)
@@ -3874 +3871 @@
 
       g029(:) = 7.0E-14*exp(-5170./t(:))
-
-!      g030(:) = g011(:)/(deq(:)*c(:,i_h2o))
-!      g030(:) = 0.0E+0
 
       nb_phot = nb_phot + 1
       v_phot(:,nb_phot) = g029(:)*c(:,i_h2o)
- !     v_phot(:,nb_phot) = 0.0E+0
       
 !---  g030: so3 + ocs -> s2o2 +  co2
@@ -3887 +3880 @@
 
       g030(:) = 1.0E-11*exp(-10000./t(:))
-!      g031(:) = 0.0E+0
       
       nb_reaction_4 = nb_reaction_4 + 1
@@ -3894 +3886 @@
 !---  g031: s2o2 + ocs -> co + so2 + s2
 
-!       decomposee en
-!       0.5 s2o2 + 0.5 ocs -> co
-!       0.5 s2o2 + 0.5 ocs -> so2 + s2
+!     split into
+!     0.5 s2o2 + 0.5 ocs -> co
+!     0.5 s2o2 + 0.5 ocs -> so2 + s2
 
 !     krasnopolsky , 2007 
 
       g031(:) = 1.0E-20
-!      g032(:) = 0.0E+0
       
       nb_reaction_4 = nb_reaction_4 + 1
@@ -3909 +3900 @@
       v_4(:,nb_reaction_4) = g031(:)
 
-!      g032: so + so -> so2 + s
-!  Krasnopolsky 2012 from Martinez & Heron 1983 or Moses et al 2002
-
-!      g032(:) = 3.5E-15
-      g032(:) =1.0E-12*exp(-1700.0/t(:))
+!     g032: so + so -> so2 + s
+
+!     krasnopolsky, 2012
+
+      g032(:) = 1.0e-12*exp(-1700./t(:))
       
       nb_reaction_3 = nb_reaction_3 + 1