Changeset 5481 for LMDZ6/trunk/libf/misc/wxios_mod.F90

Timestamp:

Jan 16, 2025, 8:14:15 PM (12 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/misc/wxios_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/misc/wxios_mod.F90

@@ -188 +188 @@
       ! On boucle sur les traceurs pour les ajouter au groupe puis fixer les attributs
       DO iq = 1, nqtot
-         IF(.NOT.(tracers(iq)%isAdvected .AND. tracers(iq)%isInPhysics)) CYCLE
+         IF(.NOT.tracers(iq)%isInPhysics) CYCLE
          dn = 'd'//TRIM(tracers(iq)%name)//'_'
 
@@ -241 +241 @@
       ! On boucle sur les traceurs pour les ajouter au groupe puis fixer les attributs
       DO iq = 1, nqtot
-         IF(.NOT.(tracers(iq)%isAdvected .AND. tracers(iq)%isInPhysics)) CYCLE
+         IF(.NOT.tracers(iq)%isInPhysics) CYCLE
          
          unt = "kg m-2"