Changeset 4052 for LMDZ6/trunk/libf/dyn3d_common/infotrac.F90

Timestamp:

Dec 26, 2021, 10:27:36 PM (2 years ago)

Author:

dcugnet

Message:

Fixes for previous commit:

• few tracers(:)%nqChilds were errouneously replaced with tarcers(:)%nqDesc
• minor changes

File:

• LMDZ6/trunk/libf/dyn3d_common/infotrac.F90 (modified) (1 diff)

LMDZ6/trunk/libf/dyn3d_common/infotrac.F90

@@ -734 +734 @@
     enddo !do iq=1,nqtot
     tracers(:)%gen0Name = ancestor(tracers)      !--- Name of the first generation ancestor
+    tracers(:)%isAdvected = tracers(:)%iadv  >   0
+!    tracers(:)%isH2Ofamily = delPhase(tracers(:)%gen0Name) == 'H2O'
+    tracers(:)%isH2Ofamily = [(tracers(iq)%gen0Name(1:3) == 'H2O', iq=1, nqtot)]