Changeset 5252 for LMDZ6/trunk/libf/dyn3d_common

Timestamp:

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

Author:

abarral

Message:

Wrap uses of cpp key REPROBUS and CPP_STRATAER
Add REPROBUS wrapper

File:

• LMDZ6/trunk/libf/dyn3d_common/infotrac.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/dyn3d_common/infotrac.F90

@@ -118 +118 @@
 SUBROUTINE init_infotrac
    USE control_mod, ONLY: planet_type
-#ifdef REPROBUS
-   USE CHEM_REP, ONLY: Init_chem_rep_trac
-#endif
-   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA
+   USE lmdz_reprobus_wrappers, ONLY: Init_chem_rep_trac
+   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS, CPPKEY_STRATAER
    IMPLICIT NONE
 !==============================================================================================================================
@@ -202 +200 @@
 END IF
       CASE('repr')
-#ifndef REPROBUS
+IF (.NOT. CPPKEY_REPROBUS) THEN
          CALL abort_gcm(modname, 'You must add cpp key REPROBUS and compile with REPROBUS code', 1)
-#endif
+END IF
       CASE('coag')
-#ifndef CPP_StratAer
+IF (.NOT. CPPKEY_STRATAER) THEN
          CALL abort_gcm(modname, 'You must add cpp key StratAer and compile with StratAer code', 1)
-#endif
+END IF
    END SELECT
 
@@ -279 +277 @@
    !---------------------------------------------------------------------------------------------------------------------------
 
-#ifdef REPROBUS
+IF (CPPKEY_REPROBUS) THEN
    CALL Init_chem_rep_trac(nbtr, nqo, tracers(:)%name)
-#endif
+END IF
 
 !==============================================================================================================================