Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_physics_distribution.F90

Timestamp:

Sep 11, 2024, 4:27:07 PM (2 months ago)

Author:

abarral

Message:

Replace REPROBUS CPP KEY by logical using handmade wonky wrapper

File:

• LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_physics_distribution.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_physics_distribution.F90

@@ -13 +13 @@
     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
     INTEGER, INTENT(IN) :: grid_type
@@ -35 +33 @@
     END IF
 
-#ifdef REPROBUS
-! Initialization of Reprobus
-    IF (type_trac == 'repr') CALL Init_chem_rep_phys(klon_omp,nbp_lev)
-#endif
+    IF (CPPKEY_REPROBUS) THEN
+      ! Initialization of Reprobus
+      IF (type_trac == 'repr') CALL Init_chem_rep_phys(klon_omp, nbp_lev)
+    END IF
 
     !$OMP END PARALLEL
@@ -49 +47 @@
   !  USE dimphy, ONLY: Init_dimphy
   !  USE infotrac_phy, ONLY: type_trac
-  !#ifdef REPROBUS
-  !  USE CHEM_REP, ONLY: Init_chem_rep_phys
-  !#endif
+  !IF (CPPKEY_REPROBUS) THEN
+  !  USE lmdz_reprobus_wrappers, ONLY: Init_chem_rep_phys
+  !END IF
 
   !  IMPLICIT NONE
@@ -67 +65 @@
   !    CALL Init_dimphy(klon_omp,nbp_lev)
 
-  !#ifdef REPROBUS
+  !IF (CPPKEY_REPROBUS) THEN
   !! Initialization of Reprobus
   !    IF (type_trac == 'repr') CALL Init_chem_rep_phys(klon_omp,nbp_lev)
   !    END IF
-  !#endif
+  !END IF
 
   !!$OMP END PARALLEL