Ignore:
Timestamp:
Jul 6, 2018, 9:01:31 AM (6 years ago)
Author:
oboucher
Message:

Embryon of changes for interactive CO2
type_trac=co2i

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/phytrac_mod.F90

    r3125 r3361  
    100100    USE print_control_mod, ONLY: lunout
    101101    USE aero_mod, ONLY : naero_grp
     102
     103    USE tracco2i_mod
    102104
    103105#ifdef CPP_StratAer
     
    474476       CASE('repr')
    475477          source(:,:)=0.
     478       CASE('co2i')
     479          source(:,:)=0.
    476480#ifdef CPP_StratAer
    477481       CASE('coag')
     
    537541                flag_cvltr(it)=.false.
    538542
     543             CASE('co2i')
     544                !--co2 tracers are not scavenged
     545                flag_cvltr(it)=.false.
     546
    539547#ifdef CPP_StratAer
    540548             CASE('coag')
     
    624632            t_seri, pplay, paprs, sh , &
    625633            tr_seri)
     634
     635    CASE('co2i')
     636       !   -- CO2 interactif --
     637       !   -- source is updated with FF and BB emissions
     638       !   -- OB => PC need to add net flux from ocean and orchidee
     639       !   -- sign convention : positive into the atmosphere
     640       CALL tracco2i(pdtphys, debutphy, &
     641            xlat, xlon, pphis, pphi, &
     642            t_seri, pplay, paprs, tr_seri, source)
    626643
    627644#ifdef CPP_StratAer
Note: See TracChangeset for help on using the changeset viewer.