Changeset 5618 for LMDZ6/branches/contrails/libf/phylmd/traclmdz_mod.f90

Timestamp:

Apr 15, 2025, 11:56:45 AM (8 months ago)

Author:

aborella

Message:

Merge with trunk testing r5597. We have convergence in prod and debug in NPv7.0.1c

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/traclmdz_mod.f90 (modified) (2 diffs)

LMDZ6/branches/contrails/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