Changeset 5251 for LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

Timestamp:

Oct 22, 2024, 12:31:08 PM (9 hours ago)

Author:

abarral

Message:

Wrap uses of cpp key INCA
Add INCA wrapper

File:

• LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

@@ -38 +38 @@
   USE phyaqua_mod, ONLY: iniaqua
   USE comconst_mod, ONLY: omeg, rad
-#ifdef INCA
   USE indice_sol_mod, ONLY: nbsrf, is_oce, is_sic, is_ter, is_lic
 #ifdef CPP_PARA
@@ -45 +44 @@
 #endif
   USE mod_phys_lmdz_omp_data, ONLY: klon_omp 
-#endif
   USE ioipsl_getin_p_mod, ONLY: getin_p
   USE slab_heat_transp_mod, ONLY: ini_slab_transp_geom
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA
   IMPLICIT NONE
 
@@ -167 +166 @@
 
   IF (ANY(type_trac == ['inca','inco'])) THEN
-#ifdef INCA
+IF (CPPKEY_INCA) THEN
      CALL init_inca_dim_reg(nbp_lon, nbp_lat - 1, &
           rlonudyn, rlatudyn, rlonvdyn, rlatvdyn)
-#endif
+END IF
   END IF