Changeset 5252 for LMDZ6/trunk/libf/phy_common

Timestamp:

Oct 22, 2024, 2:09:45 PM (8 months ago)

Author:

abarral

Message:

Wrap uses of cpp key REPROBUS and CPP_STRATAER
Add REPROBUS wrapper

File:

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

LMDZ6/trunk/libf/phy_common/physics_distribution_mod.F90 ¶

@@ -14 +14 @@
   USE dimphy, ONLY : Init_dimphy
   USE infotrac_phy, ONLY : type_trac
-#ifdef REPROBUS
-  USE CHEM_REP, ONLY : Init_chem_rep_phys
-#endif
-  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA
+  USE lmdz_reprobus_wrappers, ONLY : Init_chem_rep_phys
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS
 
   IMPLICIT NONE
@@ -38 +36 @@
 END IF
 
-#ifdef REPROBUS
+IF (CPPKEY_REPROBUS) THEN
 ! Initialization of Reprobus
     IF (type_trac == 'repr') CALL Init_chem_rep_phys(klon_omp,nbp_lev)
-#endif
+END IF
 
 !$OMP END PARALLEL
@@ -53 +51 @@
 !  USE infotrac_phy, ONLY : type_trac
 !#ifdef REPROBUS
-!  USE CHEM_REP, ONLY : Init_chem_rep_phys
+!  USE lmdz_reprobus_wrappers, ONLY : Init_chem_rep_phys
 !#endif