Ignore:
Timestamp:
Dec 15, 2021, 11:18:49 PM (2 years ago)
Author:
dcugnet
Message:

First commit for new tracers.

  • parser routines readTracFiles, strings_mod and tracer_types added in misc using revision 4 of https://svn.lmd.jussieu.fr/tracers-parser
  • tested in sequential and parallel mode using ioipsl.
  • for now, only two fields of "tracers(:)" derived type vector are used: "name" and "longName".
File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmdiso/phyredem.F90

    r3940 r4046  
    3838  USE iostart, ONLY: open_restartphy, close_restartphy, enddef_restartphy, put_field, put_var
    3939  USE traclmdz_mod, ONLY : traclmdz_to_restart
    40   USE infotrac_phy, ONLY: type_trac, niadv, tname, nbtr, nqo,itr_indice
     40  USE infotrac_phy, ONLY: type_trac, niadv, tracers, nbtr, nqo,itr_indice
    4141#ifdef ISO
    4242  USE infotrac_phy, ONLY: itr_indice,niso,ntraciso
     
    350350          iq=itr_indice(it)                                                           ! jyg
    351351          iiq=niadv(iq)                                                           ! jyg
    352           CALL put_field(pass,"trs_"//tname(iiq), "", trs(:, it))
     352          CALL put_field(pass,"trs_"//tracers(iiq)%name, "", trs(:, it))
    353353       END DO
    354354       IF (carbon_cycle_cpl) THEN
     
    407407    IF (pass==2) CALL close_restartphy
    408408  ENDDO ! DO pass=1,2   ! pass=1 netcdf definition ; pass=2 netcdf write
    409  
    410 
    411409 
    412410  !$OMP BARRIER
Note: See TracChangeset for help on using the changeset viewer.