Changeset 2843 for trunk/LMDZ.VENUS


Ignore:
Timestamp:
Dec 16, 2022, 2:46:20 PM (2 years ago)
Author:
flefevre
Message:

Venus chemical kinetics: cosmetic changes prior to JPL 2019 update

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.VENUS/libf/phyvenus/photochemistry_venus.F90

    r2836 r2843  
    27002700!---  b003: o(1d) + h2  -> oh + h
    27012701
    2702 !     jpl 2003
    2703 !      b003(:) = 1.1E-10
    2704 
    2705 !      jpl 2016     
     2702!     jpl 2011     
     2703
    27062704      b003(:) = 1.2E-10
    27072705
     
    27512749!---  c002: o + oh -> o2 + h
    27522750
     2751!     jpl 2011 
     2752
     2753      c002(:) = 1.8E-11*exp(180./t(:))
     2754
     2755      nb_reaction_4 = nb_reaction_4 + 1
     2756      v_4(:,nb_reaction_4) = c002(:)
     2757
     2758!---  c003: h + o3 -> oh + o2
     2759
    27532760!     jpl 2003
    2754 !      c002(:) = 2.2E-11*exp(120./t(:))
    2755 
    2756 !     jpl 2016 
    2757       c002(:) = 1.8E-11*exp(180./t(:))
    2758 
    2759       nb_reaction_4 = nb_reaction_4 + 1
    2760       v_4(:,nb_reaction_4) = c002(:)
    2761 
    2762 !---  c003: h + o3 -> oh + o2
     2761
     2762      c003(:) = 1.4E-10*exp(-470./t(:))
     2763
     2764      nb_reaction_4 = nb_reaction_4 + 1
     2765      v_4(:,nb_reaction_4) = c003(:)
     2766
     2767!---  c004: h + ho2 -> oh + oh
     2768
     2769!     jpl 2006
     2770
     2771      c004(:) = 7.2E-11
     2772
     2773      nb_reaction_4 = nb_reaction_4 + 1
     2774      v_4(:,nb_reaction_4) = c004(:)
     2775
     2776!---  c005: h + ho2 -> h2 + o2
     2777
     2778!     jpl 2006
     2779
     2780      c005(:) = 6.9E-12
     2781
     2782      nb_reaction_4 = nb_reaction_4 + 1
     2783      v_4(:,nb_reaction_4) = c005(:)
     2784
     2785!---  c006: h + ho2 -> h2o + o
     2786
     2787!     jpl 2006
     2788
     2789      c006(:) = 1.6E-12
     2790
     2791      nb_reaction_4 = nb_reaction_4 + 1
     2792      v_4(:,nb_reaction_4) = c006(:)
     2793
     2794!---  c007: oh + ho2 -> h2o + o2
    27632795
    27642796!     jpl 2003
    27652797
    2766       c003(:) = 1.4E-10*exp(-470./t(:))
    2767 
    2768       nb_reaction_4 = nb_reaction_4 + 1
    2769       v_4(:,nb_reaction_4) = c003(:)
    2770 
    2771 !---  c004: h + ho2 -> oh + oh
    2772 
    2773 !     jpl 2006
    2774 
    2775       c004(:) = 7.2E-11
    2776 
    2777       nb_reaction_4 = nb_reaction_4 + 1
    2778       v_4(:,nb_reaction_4) = c004(:)
    2779 
    2780 !---  c005: h + ho2 -> h2 + o2
    2781 
    2782 !     jpl 2006
    2783 
    2784       c005(:) = 6.9E-12
    2785 
    2786       nb_reaction_4 = nb_reaction_4 + 1
    2787       v_4(:,nb_reaction_4) = c005(:)
    2788 
    2789 !---  c006: h + ho2 -> h2o + o
    2790 
    2791 !     jpl 2006
    2792 
    2793       c006(:) = 1.6E-12
    2794 
    2795       nb_reaction_4 = nb_reaction_4 + 1
    2796       v_4(:,nb_reaction_4) = c006(:)
    2797 
    2798 !---  c007: oh + ho2 -> h2o + o2
    2799 
    2800 !     jpl 2003
    2801 
    28022798      c007(:) = 4.8E-11*exp(250./t(:))
    28032799
     
    28072803!---  c008: ho2 + ho2 -> h2o2 + o2
    28082804
    2809 !     jpl 2006
    2810 
    2811 !     c008(:) = 3.5E-13*exp(430./t(:))
     2805!     jpl 2015
     2806
     2807      c008(:) = 3.0E-13*exp(460./t(:))
    28122808
    28132809!     christensen et al., grl, 13, 2002
    2814 !      c008(:) = 1.5E-12*exp(19./t(:))
    2815 
    2816 !     jpl 2016
    2817       c008(:) = 3.0E-13*exp(460./t(:))
     2810
     2811!     c008(:) = 1.5E-12*exp(19./t(:))
    28182812
    28192813      nb_reaction_3 = nb_reaction_3 + 1
     
    28922886!---  c016: ho2 + ho2 + co2 -> h2o2 + o2 + co2
    28932887
    2894 !     jpl 2003
    2895 !      c016(:) = 2.5*1.7E-33*exp(1000./t(:))*conc(:)
    2896 
    2897 !     jpl 2016
     2888!     jpl 2011
     2889
    28982890      c016(:) = 2.5*2.1E-33*exp(920./t(:))*conc(:)
    28992891
     
    31353127!---  f004: hcl + oh -> h2o + cl
    31363128
     3129!     jpl 2009
     3130
     3131      f004(:) = 1.8E-12*exp(-250./t(:))
     3132
     3133      nb_reaction_4 = nb_reaction_4 + 1
     3134      v_4(:,nb_reaction_4) = f004(:)
     3135
     3136!---  f005: clo + o -> cl + o2
     3137
    31373138!     jpl 2006
    3138 !      f004(:) = 2.6E-12*exp(-350./t(:))
    3139 
    3140 !     jpl 2016
    3141       f004(:) = 1.8E-12*exp(-250./t(:))
    3142 
    3143       nb_reaction_4 = nb_reaction_4 + 1
    3144       v_4(:,nb_reaction_4) = f004(:)
    3145 
    3146 !---  f005: clo + o -> cl + o2
     3139
     3140      f005(:) = 2.8E-11*exp(85./t(:))
     3141
     3142      nb_reaction_4 = nb_reaction_4 + 1
     3143      v_4(:,nb_reaction_4) = f005(:)
     3144
     3145!---  f006: clo + oh -> cl + ho2
    31473146
    31483147!     jpl 2006
    31493148
    3150       f005(:) = 2.8E-11*exp(85./t(:))
    3151 
    3152       nb_reaction_4 = nb_reaction_4 + 1
    3153       v_4(:,nb_reaction_4) = f005(:)
    3154 
    3155 !---  f006: clo + oh -> cl + ho2
     3149      f006(:) = 7.4E-12*exp(270./t(:))
     3150
     3151      nb_reaction_4 = nb_reaction_4 + 1
     3152      v_4(:,nb_reaction_4) = f006(:)
     3153
     3154!---  f007: clo + oh -> hcl + o2
    31563155
    31573156!     jpl 2006
    31583157
    3159       f006(:) = 7.4E-12*exp(270./t(:))
    3160 
    3161       nb_reaction_4 = nb_reaction_4 + 1
    3162       v_4(:,nb_reaction_4) = f006(:)
    3163 
    3164 !---  f007: clo + oh -> hcl + o2
     3158      f007(:) = 6.0E-13*exp(230./t(:))
     3159
     3160      nb_reaction_4 = nb_reaction_4 + 1
     3161      v_4(:,nb_reaction_4) = f007(:)
     3162
     3163!---  f008: cl + h2 -> hcl + h
    31653164
    31663165!     jpl 2006
    31673166
    3168       f007(:) = 6.0E-13*exp(230./t(:))
    3169 
    3170       nb_reaction_4 = nb_reaction_4 + 1
    3171       v_4(:,nb_reaction_4) = f007(:)
    3172 
    3173 !---  f008: cl + h2 -> hcl + h
     3167      f008(:) = 3.05E-11*exp(-2270./t(:))
     3168
     3169      nb_reaction_4 = nb_reaction_4 + 1
     3170      v_4(:,nb_reaction_4) = f008(:)
     3171
     3172!---  f009: cl + o3 -> clo + o2
    31743173
    31753174!     jpl 2006
    31763175
    3177       f008(:) = 3.05E-11*exp(-2270./t(:))
    3178 
    3179       nb_reaction_4 = nb_reaction_4 + 1
    3180       v_4(:,nb_reaction_4) = f008(:)
    3181 
    3182 !---  f009: cl + o3 -> clo + o2
    3183 
    3184 !     jpl 2006
    3185 
    31863176      f009(:) = 2.3E-11*exp(-200./t(:))
    31873177
     
    31913181!---  f010: cl + ho2 -> clo + oh
    31923182
    3193 !     jpl 2006
    3194 !      f010(:) = 4.1E-11*exp(-450./t(:))
    3195 
    3196 !     jpl 2016
     3183!     jpl 2009
     3184
    31973185      f010(:) = 3.6E-11*exp(-375./t(:))
    31983186     
     
    32023190!---  f011: cl + ho2 -> hcl + o2
    32033191
    3204 !     jpl 2006
    3205 !      f011(:) = 1.8E-11*exp(170./t(:))
    3206 
    3207 !     jpl 2016
     3192!     jpl 2009
     3193
    32083194      f011(:) = 1.4E-11*exp(270./t(:))
    32093195
     
    34933479!---  g001: s + o2 -> so + o
    34943480
    3495 !      g001(:) = 2.3E-12
    3496 
    3497 !     jpl 2016
     3481!     jpl 2015
     3482
    34983483      g001(:) = 1.6E-12*exp(100./t(:))
    34993484
     
    35033488!---  g002: s + o3 -> so + o2
    35043489
     3490!     jpl 2015
     3491
    35053492      g002(:) = 1.2E-11
    35063493
     
    35103497!---  g003: so + o2 -> so2 + o
    35113498
    3512 !      g003(:) = 1.25E-13*exp(-2190./t(:))
    3513 
    3514 !     jpl 2016
    3515        g003(:) = 1.6E-13*exp(-2280./t(:))
     3499!     jpl 2015
     3500
     3501      g003(:) = 1.6E-13*exp(-2280./t(:))
    35163502
    35173503      nb_reaction_4 = nb_reaction_4 + 1
     
    35203506!---  g004: so + o3 -> so2 + o2
    35213507
     3508!     jpl 2015
     3509
    35223510      g004(:) = 3.4E-12*exp(-1100./t(:))
    35233511
     
    35273515!---  g005: so + oh -> so2 + h
    35283516
     3517!     jpl 2015
     3518
    35293519      g005(:) = 2.7E-11*exp(335./t(:))
    35303520
     
    35333523
    35343524!---  g006: s + oh -> so + h
     3525
     3526!     jpl 2015
    35353527
    35363528      g006(:) = 6.6E-11
Note: See TracChangeset for help on using the changeset viewer.