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

Timestamp:

Oct 22, 2024, 2:09:45 PM (6 hours ago)

Author:

abarral

Message:

Wrap uses of cpp key REPROBUS and CPP_STRATAER
Add REPROBUS wrapper

File:

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

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

@@ -17 +17 @@
   USE vertical_layers_mod, ONLY : init_vertical_layers
   USE infotrac, ONLY: nbtr, type_trac
-#ifdef CPP_StratAer
   USE infotrac_phy, ONLY: nbtr_bin, nbtr_sulgas, id_OCS_strat, &
                       id_SO2_strat, id_H2SO4_strat, id_BIN01_strat
-
-#endif
-#ifdef REPROBUS
-  USE CHEM_REP, ONLY : Init_chem_rep_phys
+  USE lmdz_reprobus_wrappers, ONLY : Init_chem_rep_phys
 #ifdef CPP_PARA
   USE parallel_lmdz, ONLY : mpi_size, mpi_rank
@@ -29 +25 @@
 #endif
   USE mod_phys_lmdz_omp_data, ONLY: klon_omp
-#endif
   USE control_mod, ONLY: dayref,anneeref,day_step,nday,offline, iphysiq
   USE inifis_mod, ONLY: inifis
@@ -46 +41 @@
   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
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS
   IMPLICIT NONE
 
@@ -140 +135 @@
   ! Initializations for Reprobus
   IF (type_trac == 'repr') THEN
-#ifdef REPROBUS
+IF (CPPKEY_REPROBUS) THEN
     call Init_chem_rep_phys(klon_omp,nlayer)
     call init_reprobus_para( &
           nbp_lon,nbp_lat,nbp_lev,klon_glo,mpi_size, &
           distrib_phys,communicator)
-#endif
+END IF
   ENDIF
 !$OMP END PARALLEL
@@ -151 +146 @@
 
   IF (type_trac == 'repr') THEN
-#ifdef REPROBUS
+IF (CPPKEY_REPROBUS) THEN
     call init_reprobus_para( &
           nbp_lon,nbp_lat,nbp_lev,klon_glo,mpi_size, &
           distrib_phys,communicator)
-#endif
+END IF
   ENDIF