Changeset 4046 for LMDZ6/trunk/libf/phylmdiso/phyetat0.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/phyetat0.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmdiso/phyetat0.F90

@@ -31 +31 @@
   USE geometry_mod, ONLY : longitude_deg, latitude_deg
   USE iostart, ONLY : close_startphy, get_field, get_var, open_startphy
-  USE infotrac_phy, only: nbtr, nqo, type_trac, tname, niadv, &
+  USE infotrac_phy, only: nbtr, nqo, type_trac, tracers, niadv, &
         itr_indice ! C Risi
   USE traclmdz_mod,    ONLY : traclmdz_from_restart
@@ -476 +476 @@
         iq=itr_indice(it)                                                    
         iiq=niadv(iq)                                                        ! jyg
-        found=phyetat0_get(1,trs(:,it),"trs_"//tname(iiq), &
-              "Surf trac"//tname(iiq),0.)
+        found=phyetat0_get(1,trs(:,it),"trs_"//TRIM(tracers(iiq)%name), &
+                                  "Surf trac"//TRIM(tracers(iiq)%name),0.)
      ENDDO
      CALL traclmdz_from_restart(trs)
@@ -489 +489 @@
         found=phyetat0_get(1,co2_send,"co2_send","co2 send",co2_ppm)
      ENDIF
-  ENDIF !IF (type_trac == 'lmdz') THEN
+  ENDIF
 
 #ifdef ISO