Changeset 5481 for LMDZ6/trunk/libf/misc

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

Location:

LMDZ6/trunk/libf/misc

Files:

• readTracFiles_mod.f90 (modified) (2 diffs)
• wxios_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/misc/readTracFiles_mod.f90

@@ -61 +61 @@
     INTEGER               :: nqChildren  = 0                    !--- Number of children  (first generation)
     INTEGER               :: iadv        = 10                   !--- Advection scheme used
-    LOGICAL               :: isAdvected  = .FALSE.              !--- "true" tracers: iadv > 0.   COUNT(isAdvected )=nqtrue
     LOGICAL               :: isInPhysics = .TRUE.               !--- "true" tracers: in tr_seri. COUNT(isInPhysics)=nqtottr
     INTEGER               :: iso_iGroup  = 0                    !--- Isotopes group index in isotopes(:)
@@ -185 +184 @@
 !     * The "keys" component (of type keys_type) is in principle enough to store everything we could need.
 !     But some variables are stored as direct-access keys to make the code more readable and because they are used often.
-!     * Most of the direct-access keys are set in this module, but some are not (longName, iadv, isAdvected for now).
+!     * Most of the direct-access keys are set in this module, but some are not (longName, iadv and isInPhysicsfor now).
 !     * Some of the direct-access keys must be updated (using the routine "setDirectKeys") is a subset of "tracers(:)"
 !     is extracted: the indexes are no longer valid for a subset (examples: iqParent, iqDescen).

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"