Changeset 4172 for LMDZ6/trunk/libf/dyn3d_common

Timestamp:

Jun 17, 2022, 5:49:22 PM (3 years ago)

Author:

dcugnet

Message:

• add the computation of nqINCA in the "tracer.def" case (A. Cozic)
• few fixes

File:

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

LMDZ6/trunk/libf/dyn3d_common/infotrac.F90

@@ -288 +288 @@
       nbtr   = nqtrue-COUNT(delPhase(tracers(:)%gen0Name) == 'H2O' &
                                .AND. tracers(:)%component == 'lmdz') !--- Number of tracers passed to phytrac
+#ifdef INCA
+      nqINCA = COUNT(tracers(:)%component == 'inca')
+#endif
       lerr = getKey('hadv', hadv, ky=tracers(:)%keys)
       lerr = getKey('vadv', vadv, ky=tracers(:)%keys)