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

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:

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

LMDZ6/trunk/libf/phylmd/phyredem.F90

@@ -35 +35 @@
   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
+  USE infotrac_phy, ONLY: type_trac, niadv, tracers, nbtr, nqo
   USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send
   USE indice_sol_mod, ONLY: nbsrf, is_oce, is_sic, is_ter, is_lic, epsfra
@@ -329 +329 @@
 !!        iiq=niadv(it+2)                                                           ! jyg
           iiq=niadv(it+nqo)                                                           ! jyg
-          CALL put_field(pass,"trs_"//tname(iiq), "", trs(:, it))
+          CALL put_field(pass,"trs_"//tracers(iiq)%name, "", trs(:, it))
        END DO
     END IF
@@ -380 +380 @@
     IF (pass==1) CALL enddef_restartphy
     IF (pass==2) CALL close_restartphy
- ENDDO
+  ENDDO ! DO pass=1,2   ! pass=1 netcdf definition ; pass=2 netcdf write
   
   !$OMP BARRIER