Changeset 4046 for LMDZ6/trunk/libf/phylmdiso/phyredem.F90

Timestamp:

Dec 15, 2021, 11:18:49 PM (3 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:

• LMDZ6/trunk/libf/phylmdiso/phyredem.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmdiso/phyredem.F90

@@ -38 +38 @@
   USE iostart, ONLY: open_restartphy, close_restartphy, enddef_restartphy, put_field, put_var
   USE traclmdz_mod, ONLY : traclmdz_to_restart
-  USE infotrac_phy, ONLY: type_trac, niadv, tname, nbtr, nqo,itr_indice
+  USE infotrac_phy, ONLY: type_trac, niadv, tracers, nbtr, nqo,itr_indice
 #ifdef ISO
   USE infotrac_phy, ONLY: itr_indice,niso,ntraciso
@@ -350 +350 @@
           iq=itr_indice(it)                                                           ! jyg
           iiq=niadv(iq)                                                           ! jyg
-          CALL put_field(pass,"trs_"//tname(iiq), "", trs(:, it))
+          CALL put_field(pass,"trs_"//tracers(iiq)%name, "", trs(:, it))
        END DO
        IF (carbon_cycle_cpl) THEN
@@ -407 +407 @@
     IF (pass==2) CALL close_restartphy
   ENDDO ! DO pass=1,2   ! pass=1 netcdf definition ; pass=2 netcdf write
-  
-
   
   !$OMP BARRIER