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/phyetat0.F90

    r4040 r4046  
    3131  USE geometry_mod, ONLY : longitude_deg, latitude_deg
    3232  USE iostart, ONLY : close_startphy, get_field, get_var, open_startphy
    33   USE infotrac_phy, only: nbtr, nqo, type_trac, tname, niadv, &
     33  USE infotrac_phy, only: nbtr, nqo, type_trac, tracers, niadv, &
    3434        itr_indice ! C Risi
    3535  USE traclmdz_mod,    ONLY : traclmdz_from_restart
     
    476476        iq=itr_indice(it)                                                   
    477477        iiq=niadv(iq)                                                        ! jyg
    478         found=phyetat0_get(1,trs(:,it),"trs_"//tname(iiq), &
    479               "Surf trac"//tname(iiq),0.)
     478        found=phyetat0_get(1,trs(:,it),"trs_"//TRIM(tracers(iiq)%name), &
     479                                  "Surf trac"//TRIM(tracers(iiq)%name),0.)
    480480     ENDDO
    481481     CALL traclmdz_from_restart(trs)
     
    489489        found=phyetat0_get(1,co2_send,"co2_send","co2 send",co2_ppm)
    490490     ENDIF
    491   ENDIF !IF (type_trac == 'lmdz') THEN
     491  ENDIF
    492492
    493493#ifdef ISO
Note: See TracChangeset for help on using the changeset viewer.