Changeset 5251 for LMDZ6/trunk/libf/dyn3d

Timestamp:

Oct 22, 2024, 12:31:08 PM (3 months ago)

Author:

abarral

Message:

Wrap uses of cpp key INCA
Add INCA wrapper

File:

• LMDZ6/trunk/libf/dyn3d/dynetat0.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d/dynetat0.F90

@@ -25 +25 @@
 #endif
   USE iso_params_mod   ! tnat_* and alpha_ideal_*
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA
 
   IMPLICIT NONE
@@ -146 +147 @@
     ix = strIdx(newHNO3, var); IF(ix /= 0) oldVar = oldHNO3(ix)                          !--- REPROBUS HNO3 exceptions
 #endif
-#ifdef INCA
+IF (CPPKEY_INCA) THEN
     IF(var == 'O3') oldVar = 'OX'                                                        !--- DEAL WITH INCA OZONE EXCEPTION
-#endif
+END IF
     !--------------------------------------------------------------------------------------------------------------------------
     IF(NF90_INQ_VARID(fID, var, vID) == NF90_NoErr .AND. .NOT.lSkip) THEN                !=== REGULAR CASE: AVAILABLE VARIABLE