Changeset 2489 for trunk


Ignore:
Timestamp:
Mar 26, 2021, 8:06:58 PM (4 years ago)
Author:
flefevre
Message:

Photolysis : minor cosmetic changes

Location:
trunk/LMDZ.MARS/libf/aeronomars
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/aeronomars/photolysis_mod.F90

    r2461 r2489  
    55! photolysis
    66
    7   integer, save :: nphot = 13        ! number of photolysis
    8 !  integer, parameter :: nphot = 15        ! number of photolysis (with hdo)
     7  integer, save :: nphot = 13             ! number of photolysis
     8                                          ! is incremented by +2 in calchim if deuterium chemisty)
    99  integer, parameter :: nabs  = 10        ! number of absorbing gases
    1010

  • trunk/LMDZ.MARS/libf/aeronomars/photolysis_online.F

    r2461 r2489  
    8181      a_no      = 8      ! no
    8282      a_no2     = 9      ! no2
    83       a_n2      = 10     ! no2
     83      a_n2      = 10     ! n2
    8484
    8585!     photodissociation rates numbering.
Note: See TracChangeset for help on using the changeset viewer.