Ignore:
Timestamp:
Apr 13, 2020, 4:48:01 PM (5 years ago)
Author:
emillour
Message:

Mars GCM:

  • Adding HCO+ ion chemistry.

FGG

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

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/initracer.F

    r2199 r2284  
    104104      igcm_hplus=0
    105105      igcm_hco2plus=0
     106      igcm_hcoplus=0
    106107      igcm_elec=0
    107108
    … …  
    321322          igcm_hco2plus=iq
    322323          mmol(igcm_hco2plus)=45.
     324          count=count+1
     325        endif
     326        if (noms(iq).eq."hcoplus") then
     327          igcm_hcoplus=iq
     328          mmol(igcm_hcoplus)=29.
    323329          count=count+1
    324330        endif

  • trunk/LMDZ.MARS/libf/phymars/tracer_mod.F90

    r2199 r2284  
    8686      integer,save :: igcm_hplus
    8787      integer,save :: igcm_hco2plus
     88      integer,save :: igcm_hcoplus
    8889      integer,save :: igcm_elec
    8990      ! other tracers
Note: See TracChangeset for help on using the changeset viewer.