Changeset 4095 for trunk

Timestamp:

Mar 3, 2026, 10:26:40 AM (10 days ago)

Author:

flefevre

Message:

Implementation of ClSO2 thermal dissociation

Location:

trunk/LMDZ.VENUS/libf/phyvenus

Files:

• photochemistry_venus.F90 (modified) (3 diffs)
• phytrac_chimie.F (modified) (1 diff)

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

@@ -1525 +1525 @@
 
 !===========================================================
+!      f041 : ClSO2 + CO2 -> Cl + SO2 + CO2
+!===========================================================
+
+nb_phot = nb_phot + 1
+
+indice_phot(nb_phot) = z3spec(1.0, i_clso2, 1.0, i_cl, 1.0, i_so2)
+
+!===========================================================
 !      g001 : S + O2 -> SO + O
 !===========================================================
@@ -2682 +2690 @@
                        f022, f023, f024, f025, f026, f027, f028,   &
                        f029, f030, f031, f032, f033, f034, f035,   &
-                       f036, f037, f038, f039, f040,               &
+                       f036, f037, f038, f039, f040, f041,         &
                        g001, g002, g003, g004, g005, g006, g007,   &
                        g008, g009, g010, g011, g012, g013, g014,   &
@@ -3669 +3677 @@
       nb_reaction_4 = nb_reaction_4 + 1
       v_4(:,nb_reaction_4) = f040(:)
+
+!---  f041: clso2 + co2 -> cl + so2 + co2
+
+!     plane, personal communication, 2025
+
+      f041(:) = 2.8e-8*exp(-4044.3/t(:)) 
+
+      nb_phot = nb_phot + 1
+      v_phot(:,nb_phot) = f041(:)*conc(:)
 
 !----------------------------------------------------------------------

trunk/LMDZ.VENUS/libf/phyvenus/phytrac_chimie.F

@@ -157 +157 @@
            nb_reaction_4_max = 99     ! set number of bimolecular reactions
            nb_reaction_3_max = 14     ! set number of quadratic reactions
-           nquench           = 15     ! set number of first-order reactions: 
+           nquench           = 16     ! set number of first-order reactions: 
                                       !               quenching 
                                       !               thermal dissociation