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

Timestamp:

Jun 16, 2022, 8:16:59 PM (2 years ago)

Author:

dcugnet

Message:

The variable "types_trac" is the equivalent of "type_trac" in case multiple sections must be read
and used in "tracer.def" file.
Tests on the "type_trac" were replaced with tests on the vector "types_trac".
Most of the time, there are two components: 'lmdz' and a second one. The later has priority on 'lmdz'
and must be used for the tests. For more components, care must be taken to execute specific parts
of the code on the right tracers ; the tracers(:)%component has been created in that respect.

File:

• LMDZ6/trunk/libf/phy_common/physics_distribution_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phy_common/physics_distribution_mod.F90

@@ -13 +13 @@
   USE mod_grid_phy_lmdz, ONLY: init_grid_phy_lmdz
   USE dimphy, ONLY : Init_dimphy
-  USE infotrac_phy, ONLY : type_trac
+  USE infotrac_phy, ONLY : types_trac
 #ifdef REPROBUS
   USE CHEM_REP, ONLY : Init_chem_rep_phys
@@ -38 +38 @@
 
 ! Initialization of Reprobus
-    IF (type_trac == 'repr') THEN
+    IF (ANY(types_trac == 'repr')) THEN
 #ifdef REPROBUS
        CALL Init_chem_rep_phys(klon_omp,nbp_lev)
@@ -52 +52 @@
 !  USE mod_grid_phy_lmdz, ONLY: Init_grid_phy_lmdz!, nbp_lev
 !  USE dimphy, ONLY : Init_dimphy
-!  USE infotrac_phy, ONLY : type_trac
+!  USE infotrac_phy, ONLY : types_trac
 !#ifdef REPROBUS
 !  USE CHEM_REP, ONLY : Init_chem_rep_phys
@@ -72 +72 @@
 !
 !! Initialization of Reprobus
-!    IF (type_trac == 'repr') THEN
+!    IF (ANY(types_trac == 'repr')) THEN
 !#ifdef REPROBUS
 !       CALL Init_chem_rep_phys(klon_omp,nbp_lev)