Changeset 4263 for LMDZ6/trunk/libf/phy_common/physics_distribution_mod.F90

Timestamp:

Sep 21, 2022, 9:35:28 AM (2 years ago)

Author:

dcugnet

Message:

Fixes for INCO, CO2i AND REPROBUS, mostly because some sections are specific to type_trac=="lmdz",
which is not always equivalent to ANY(types_trac=='lmdz).
Also force the water phases to get tracers(*)%component='lmdz' so that nqo can be correctly computed.

File:

• LMDZ6/trunk/libf/phy_common/physics_distribution_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phy_common/physics_distribution_mod.F90

@@ -40 +40 @@
 ! Initialization of Reprobus
     IF (ANY(types_trac == 'repr')) CALL Init_chem_rep_phys(klon_omp,nbp_lev)
-    END IF
 #endif