Changeset 5489 for LMDZ6/branches/contrails/libf/dynphy_lonlat/calfis.f90

Timestamp:

Jan 17, 2025, 6:16:25 PM (12 hours ago)

Author:

aborella

Message:

Merge with trunk

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/dynphy_lonlat/calfis.f90 (modified) (2 diffs)

LMDZ6/branches/contrails/libf/dynphy_lonlat/calfis.f90

@@ -279 +279 @@
   itr=0
   DO iq=1,nqtot
-     IF(.NOT.tracers(iq)%isAdvected) CYCLE
+     IF(tracers(iq)%iadv < 0) CYCLE
      itr = itr + 1
      DO l=1,llm
@@ -597 +597 @@
   itr = 0
   DO iq=1,nqtot
-     IF(.NOT.tracers(iq)%isAdvected) CYCLE
+     IF(tracers(iq)%iadv < 0) CYCLE
      itr = itr + 1
      DO l=1,llm