Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/phylmd/tropopause_m.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/phylmd/tropopause_m.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/phylmd/tropopause_m.F90) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/tropopause_m.f90

@@ -1 +1 @@
 MODULE tropopause_m
 
-  IMPLICIT NONE
-  PRIVATE
-  PUBLIC :: dyn_tropopause
+  IMPLICIT NONE; PRIVATE
+  PUBLIC dyn_tropopause
 
 CONTAINS
@@ -17 +16 @@
     USE lmdz_geometry, ONLY: latitude_deg, longitude_deg
     USE lmdz_vertical_layers, ONLY: aps, bps, preff
-#ifdef REPROBUS
-  USE chem_rep, ONLY: itroprep
-#endif
+    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_REPROBUS
+    USE lmdz_reprobus_wrappers, ONLY: itroprep
     USE lmdz_yomcst
 
@@ -116 +114 @@
         END DO; kp = kt
       END IF
-#ifdef REPROBUS
-    itroprep(i)=MAX(kt,kp)
-#endif
+      IF (CPPKEY_REPROBUS) THEN
+        itroprep(i) = MAX(kt, kp)
+      END IF
       !--- LAST TROPOSPHERIC LAYER INDEX NEEDED
       IF(PRESENT(itrop)) itrop(i) = MAX(kt, kp)