Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd

Timestamp:

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

Author:

abarral

Message:

Replace REPROBUS CPP KEY by logical using handmade wonky wrapper

File:

• LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

@@ -17 +17 @@
     USE lmdz_infotrac, ONLY: nbtr, type_trac
 
-#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
   USE bands, ONLY: distrib_phys
 #endif
-  USE lmdz_phys_omp_data, ONLY: klon_omp
-#endif
+    USE lmdz_phys_omp_data, ONLY: klon_omp
     USE control_mod, ONLY: dayref, anneeref, day_step, nday, offline, iphysiq
     USE inifis_mod, ONLY: inifis
@@ -44 +42 @@
     USE lmdz_comgeom
     USE lmdz_tracstoke
+    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_REPROBUS
 
-USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
-  USE lmdz_paramet
+    USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
+    USE lmdz_paramet
     IMPLICIT NONE
 
@@ -53 +52 @@
     ! geometrical arrays for the physics
     ! =======================================================================
-
-
-
 
     REAL, INTENT (IN) :: prad ! radius of the planet (m)
@@ -137 +133 @@
     ! Initializations for Reprobus
     IF (type_trac == 'repr') THEN
-#ifdef REPROBUS
-    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
+      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)
+      END IF
     ENDIF
     !$OMP END PARALLEL
 
     IF (type_trac == 'repr') THEN
-#ifdef REPROBUS
-    CALL init_reprobus_para( &
-          nbp_lon,nbp_lat,nbp_lev,klon_glo,mpi_size, &
-          distrib_phys,communicator)
-#endif
+      IF (CPPKEY_REPROBUS) THEN
+        CALL init_reprobus_para(&
+                nbp_lon, nbp_lat, nbp_lev, klon_glo, mpi_size, &
+                distrib_phys, communicator)
+      END IF
     ENDIF