Changeset 4389 for LMDZ6/trunk/libf/phy_common

Timestamp:

Jan 23, 2023, 11:28:51 AM (2 years ago)

Author:

dcugnet

Message:

• revert to original "type_trac" management:
  • 4 characters keyword (lmdz, Inca, repr, co2i, into, aeNP, coag
  • no longer a list of component with "|" separator
  • the parsed (with "|" separator) version "types_trac" is no longer used
  • the sole routine using a list of component is readTracFiles
• fix for INCA and CO2Aer modes: setGeneration is now a function, index corrections for had/vadv.

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 : types_trac
+  USE infotrac_phy, ONLY : type_trac
 #ifdef REPROBUS
   USE CHEM_REP, ONLY : Init_chem_rep_phys
@@ -39 +39 @@
 #ifdef REPROBUS
 ! Initialization of Reprobus
-    IF (ANY(types_trac == 'repr')) CALL Init_chem_rep_phys(klon_omp,nbp_lev)
+    IF (type_trac == 'repr') CALL Init_chem_rep_phys(klon_omp,nbp_lev)
 #endif
 
@@ -50 +50 @@
 !  USE mod_grid_phy_lmdz, ONLY: Init_grid_phy_lmdz!, nbp_lev
 !  USE dimphy, ONLY : Init_dimphy
-!  USE infotrac_phy, ONLY : types_trac
+!  USE infotrac_phy, ONLY : type_trac
 !#ifdef REPROBUS
 !  USE CHEM_REP, ONLY : Init_chem_rep_phys
@@ -71 +71 @@
 !#ifdef REPROBUS
 !! Initialization of Reprobus
-!    IF (ANY(types_trac == 'repr')) CALL Init_chem_rep_phys(klon_omp,nbp_lev)
+!    IF (type_trac == 'repr') CALL Init_chem_rep_phys(klon_omp,nbp_lev)
 !    END IF
 !#endif