Changeset 5481 for LMDZ6/trunk/libf/dynphy_lonlat/calfis_loc.F90

Timestamp:

Jan 16, 2025, 8:14:15 PM (13 hours ago)

Author:

dcugnet

Message:

Remove tracers attributes "isAdvected" and "isInPhysics" from infotrac (iadv is enough).
Remove tracers attribute "isAdvected" from infotrac_phy (isInPhysics is now equivalent
to former isInPhysics .AND. iadv > 0

File:

• LMDZ6/trunk/libf/dynphy_lonlat/calfis_loc.F90 (modified) (2 diffs)

LMDZ6/trunk/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)