Ignore:
Timestamp:
Oct 31, 2017, 12:22:52 PM (7 years ago)
Author:
jvatant
Message:

Adapt modifs related to tracers to newstart and start2archive
+ nqtot in physics -> nqtot_p. Else conflict with nqtot from dyn
TBD : use of nqtot_p everywhere in physics instead of nq ...
--JVO

Location:
trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/newstart.F

    r1789 r1815  
    3838      use iniphysiq_mod, only: iniphysiq
    3939      use phyetat0_mod, only: phyetat0
     40      use tracer_h
    4041      implicit none
    4142
    … …  
    267268! Initialize global tracer indexes (stored in tracer.h)
    268269! ... this has to be done before phyetat0
    269       call initracer(ngridmx,nqtot,tname)
     270      call initracer2(nqtot,tname)
    270271
    271272! Take care of arrays in common modules

  • trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/start2archive.F

    r1789 r1815  
    3636      USE iniphysiq_mod, ONLY: iniphysiq
    3737      use phyetat0_mod, only: phyetat0
     38      use tracer_h
    3839      implicit none
    3940
    … …  
    219220
    220221! Initialize tracer names, indexes and properties
    221       CALL initracer(ngridmx,nqtot,tname)
     222      CALL initracer2(nqtot,tname)
    222223
    223224      CALL phyetat0(.true.,ngridmx,llm,fichnom,0,Lmodif,nsoilmx,nqtot,
Note: See TracChangeset for help on using the changeset viewer.