Changeset 2843 for trunk/LMDZ.VENUS
- Timestamp:
- Dec 16, 2022, 2:46:20 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.VENUS/libf/phyvenus/photochemistry_venus.F90
r2836 r2843 2700 2700 !--- b003: o(1d) + h2 -> oh + h 2701 2701 2702 ! jpl 2003 2703 ! b003(:) = 1.1E-10 2704 2705 ! jpl 2016 2702 ! jpl 2011 2703 2706 2704 b003(:) = 1.2E-10 2707 2705 … … 2751 2749 !--- c002: o + oh -> o2 + h 2752 2750 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 2753 2760 ! 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 2763 2795 2764 2796 ! jpl 2003 2765 2797 2766 c003(:) = 1.4E-10*exp(-470./t(:))2767 2768 nb_reaction_4 = nb_reaction_4 + 12769 v_4(:,nb_reaction_4) = c003(:)2770 2771 !--- c004: h + ho2 -> oh + oh2772 2773 ! jpl 20062774 2775 c004(:) = 7.2E-112776 2777 nb_reaction_4 = nb_reaction_4 + 12778 v_4(:,nb_reaction_4) = c004(:)2779 2780 !--- c005: h + ho2 -> h2 + o22781 2782 ! jpl 20062783 2784 c005(:) = 6.9E-122785 2786 nb_reaction_4 = nb_reaction_4 + 12787 v_4(:,nb_reaction_4) = c005(:)2788 2789 !--- c006: h + ho2 -> h2o + o2790 2791 ! jpl 20062792 2793 c006(:) = 1.6E-122794 2795 nb_reaction_4 = nb_reaction_4 + 12796 v_4(:,nb_reaction_4) = c006(:)2797 2798 !--- c007: oh + ho2 -> h2o + o22799 2800 ! jpl 20032801 2802 2798 c007(:) = 4.8E-11*exp(250./t(:)) 2803 2799 … … 2807 2803 !--- c008: ho2 + ho2 -> h2o2 + o2 2808 2804 2809 ! jpl 20 062810 2811 ! c008(:) = 3.5E-13*exp(430./t(:))2805 ! jpl 2015 2806 2807 c008(:) = 3.0E-13*exp(460./t(:)) 2812 2808 2813 2809 ! 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(:)) 2818 2812 2819 2813 nb_reaction_3 = nb_reaction_3 + 1 … … 2892 2886 !--- c016: ho2 + ho2 + co2 -> h2o2 + o2 + co2 2893 2887 2894 ! jpl 2003 2895 ! c016(:) = 2.5*1.7E-33*exp(1000./t(:))*conc(:) 2896 2897 ! jpl 2016 2888 ! jpl 2011 2889 2898 2890 c016(:) = 2.5*2.1E-33*exp(920./t(:))*conc(:) 2899 2891 … … 3135 3127 !--- f004: hcl + oh -> h2o + cl 3136 3128 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 3137 3138 ! 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 3147 3146 3148 3147 ! jpl 2006 3149 3148 3150 f00 5(:) = 2.8E-11*exp(85./t(:))3151 3152 nb_reaction_4 = nb_reaction_4 + 1 3153 v_4(:,nb_reaction_4) = f00 5(:)3154 3155 !--- f00 6: clo + oh -> cl + ho23149 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 3156 3155 3157 3156 ! jpl 2006 3158 3157 3159 f00 6(:) = 7.4E-12*exp(270./t(:))3160 3161 nb_reaction_4 = nb_reaction_4 + 1 3162 v_4(:,nb_reaction_4) = f00 6(:)3163 3164 !--- f00 7: clo + oh -> hcl + o23158 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 3165 3164 3166 3165 ! jpl 2006 3167 3166 3168 f00 7(:) = 6.0E-13*exp(230./t(:))3169 3170 nb_reaction_4 = nb_reaction_4 + 1 3171 v_4(:,nb_reaction_4) = f00 7(:)3172 3173 !--- f00 8: cl + h2 -> hcl + h3167 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 3174 3173 3175 3174 ! jpl 2006 3176 3175 3177 f008(:) = 3.05E-11*exp(-2270./t(:))3178 3179 nb_reaction_4 = nb_reaction_4 + 13180 v_4(:,nb_reaction_4) = f008(:)3181 3182 !--- f009: cl + o3 -> clo + o23183 3184 ! jpl 20063185 3186 3176 f009(:) = 2.3E-11*exp(-200./t(:)) 3187 3177 … … 3191 3181 !--- f010: cl + ho2 -> clo + oh 3192 3182 3193 ! jpl 2006 3194 ! f010(:) = 4.1E-11*exp(-450./t(:)) 3195 3196 ! jpl 2016 3183 ! jpl 2009 3184 3197 3185 f010(:) = 3.6E-11*exp(-375./t(:)) 3198 3186 … … 3202 3190 !--- f011: cl + ho2 -> hcl + o2 3203 3191 3204 ! jpl 2006 3205 ! f011(:) = 1.8E-11*exp(170./t(:)) 3206 3207 ! jpl 2016 3192 ! jpl 2009 3193 3208 3194 f011(:) = 1.4E-11*exp(270./t(:)) 3209 3195 … … 3493 3479 !--- g001: s + o2 -> so + o 3494 3480 3495 ! g001(:) = 2.3E-12 3496 3497 ! jpl 2016 3481 ! jpl 2015 3482 3498 3483 g001(:) = 1.6E-12*exp(100./t(:)) 3499 3484 … … 3503 3488 !--- g002: s + o3 -> so + o2 3504 3489 3490 ! jpl 2015 3491 3505 3492 g002(:) = 1.2E-11 3506 3493 … … 3510 3497 !--- g003: so + o2 -> so2 + o 3511 3498 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(:)) 3516 3502 3517 3503 nb_reaction_4 = nb_reaction_4 + 1 … … 3520 3506 !--- g004: so + o3 -> so2 + o2 3521 3507 3508 ! jpl 2015 3509 3522 3510 g004(:) = 3.4E-12*exp(-1100./t(:)) 3523 3511 … … 3527 3515 !--- g005: so + oh -> so2 + h 3528 3516 3517 ! jpl 2015 3518 3529 3519 g005(:) = 2.7E-11*exp(335./t(:)) 3530 3520 … … 3533 3523 3534 3524 !--- g006: s + oh -> so + h 3525 3526 ! jpl 2015 3535 3527 3536 3528 g006(:) = 6.6E-11
Note: See TracChangeset
for help on using the changeset viewer.