Changeset 5251 for LMDZ6/trunk/libf/phy_common

Timestamp:

Oct 22, 2024, 12:31:08 PM (4 months ago)

Author:

abarral

Message:

Wrap uses of cpp key INCA
Add INCA wrapper

Location:

LMDZ6/trunk/libf/phy_common

Files:

• mod_phys_lmdz_mpi_data.F90 (modified) (2 diffs)
• physics_distribution_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phy_common/mod_phys_lmdz_mpi_data.F90

@@ -3 +3 @@
 !
 MODULE mod_phys_lmdz_mpi_data
-  USE lmdz_mpi 
+  USE lmdz_mpi
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA
 
   INTEGER,SAVE :: ii_begin
@@ -174 +175 @@
     CALL Print_module_data
 
-#ifdef INCA
+IF (CPPKEY_INCA) THEN
        CALL init_inca_para( &
             nbp_lon,nbp_lat,nbp_lev,klon_glo,mpi_size, &
             distrib,nvertex, grid_type,communicator)
-#endif
+END IF
     
   END SUBROUTINE Init_phys_lmdz_mpi_data

LMDZ6/trunk/libf/phy_common/physics_distribution_mod.F90

@@ -17 +17 @@
   USE CHEM_REP, ONLY : Init_chem_rep_phys
 #endif
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA
 
   IMPLICIT NONE
@@ -33 +34 @@
     CALL init_dimphy(klon_omp,nbp_lev)
 
-#ifdef INCA
+IF (CPPKEY_INCA) THEN
        CALL Init_inca_dim(klon_omp,nbp_lev)
-#endif
+END IF
 
 #ifdef REPROBUS