Changeset 5489 for LMDZ6/branches/contrails/libf/phylmdiso/phyredem.F90

Timestamp:

Jan 17, 2025, 6:16:25 PM (18 hours ago)

Author:

aborella

Message:

Merge with trunk

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmdiso/phyredem.F90 (modified) (1 diff)

LMDZ6/branches/contrails/libf/phylmdiso/phyredem.F90

@@ -370 +370 @@
        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
           CALL put_field(pass,"trs_"//tracers(iq)%name, "", trs(:, it))