Changeset 5252 for LMDZ6/trunk/libf/phylmd/conf_phys_m.F90

Timestamp:

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

Author:

abarral

Message:

Wrap uses of cpp key REPROBUS and CPP_STRATAER
Add REPROBUS wrapper

File:

• LMDZ6/trunk/libf/phylmd/conf_phys_m.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/conf_phys_m.F90

@@ -35 +35 @@
     USE phys_state_var_mod, ONLY: phys_tstep
     USE infotrac_phy, ONLY: type_trac
+    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_STRATAER
 
     INCLUDE "conema3.h"
@@ -2598 +2599 @@
 !       CALL abort_physic('conf_phys','ok_suntime_rrtm=y and solaire is provided',1)
 !    ENDIF
-#ifdef CPP_StratAer
-    IF (iflag_rrtm .NE. 1) THEN 
+IF (CPPKEY_STRATAER) THEN
+    IF (iflag_rrtm .NE. 1) THEN
        WRITE(lunout,*) ' ERROR iflag_rrtm<>1 but StratAer activated'
        CALL abort_physic('conf_phys','iflag_rrtm not valid for StratAer',1)
     ENDIF
-    IF (NSW .NE. 6) THEN 
+    IF (NSW .NE. 6) THEN
        WRITE(lunout,*) ' ERROR NSW<>6 but StratAer activated'
        CALL abort_physic('conf_phys','NSW not valid for StratAer',1)
     ENDIF
-#endif
+END IF
 
     !--test on ocean surface albedo