Changeset 5481 for LMDZ6/trunk/libf/phylmd/traclmdz_mod.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/phylmd/traclmdz_mod.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/traclmdz_mod.f90

@@ -261 +261 @@
     it = 0
     DO iq = 1, nqtot
-       IF(.NOT.(tracers(iq)%isAdvected .AND. tracers(iq)%isInPhysics)) CYCLE
+       IF(.NOT.tracers(iq)%isInPhysics) CYCLE
        it = it+1
        ! Test if tracer is zero everywhere. 
@@ -310 +310 @@
     
     USE yomcst_mod_h
-USE dimphy
+    USE dimphy
     USE infotrac_phy, ONLY: nbtr, pbl_flg
     USE strings_mod,  ONLY: int2str