Changeset 4046 for LMDZ6/trunk/libf/phylmd/Dust/splaerosol_optic_rrtm.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/phylmd/Dust/splaerosol_optic_rrtm.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/Dust/splaerosol_optic_rrtm.F90

@@ -51 +51 @@
   !
   DO itr=1,nbtr
-    IF (tname(itr+nqo)=='FINE') THEN
+    IF (tracers(itr+nqo)%name=='FINE') THEN
       mass_solu_aero(:,:)    = tr_seri(:,:,itr)
       mass_solu_aero_pi(:,:) = tr_seri(:,:,itr)