Changeset 5489 for LMDZ6/branches/contrails/libf/dynphy_lonlat/calfis_loc.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_loc.F90 (modified) (2 diffs)

LMDZ6/branches/contrails/libf/dynphy_lonlat/calfis_loc.F90

@@ -356 +356 @@
   itr = 0
   DO iq=1,nqtot
-     IF(.NOT.tracers(iq)%isAdvected) CYCLE
+     IF(tracers(iq)%iadv < 0) CYCLE
      itr = itr + 1
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
@@ -1059 +1059 @@
   itr = 0
   DO iq=1,nqtot
-     IF(.NOT.tracers(iq)%isAdvected) CYCLE
+     IF(tracers(iq)%iadv < 0) CYCLE
      itr = itr + 1
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)