Changeset 5324 for LMDZ6/trunk/libf/misc

Timestamp:

Nov 12, 2024, 4:31:36 PM (2 weeks ago)

Author:

abarral

Message:

[WIP] Remove uses of DEBUGIO cpp key (deprecated)

File:

• LMDZ6/trunk/libf/misc/lmdz_cppkeys_wrapper.F90 (modified) (1 diff)

LMDZ6/trunk/libf/misc/lmdz_cppkeys_wrapper.F90

@@ -25 +25 @@
   IMPLICIT NONE; PRIVATE
   PUBLIC nf90_format, CPPKEY_PHYS, CPPKEY_INCA, CPPKEY_STRATAER, CPPKEY_DUST, &
-          CPPKEY_DEBUGIO, CPPKEY_INLANDSIS, CPPKEY_OUTPUTPHYSSCM, CPPKEY_COSP, CPPKEY_COSP2, &
+          CPPKEY_INLANDSIS, CPPKEY_OUTPUTPHYSSCM, CPPKEY_COSP, CPPKEY_COSP2, &
           CPPKEY_COSPV2, CPPKEY_REPROBUS
 
 #ifdef NC_DOUBLE
-  INTEGER, PARAMETER :: nf90_format = nf90_double
+  INTEGER :: nf90_format = nf90_double
 #else
-  INTEGER, PARAMETER :: nf90_format = nf90_float
+  INTEGER :: nf90_format = nf90_float
 #endif
 
 #ifdef CPP_PHYS
-  LOGICAL, PARAMETER :: CPPKEY_PHYS = .TRUE.
+  LOGICAL :: CPPKEY_PHYS = .TRUE.
 #else
-  LOGICAL, PARAMETER :: CPPKEY_PHYS = .FALSE.
+  LOGICAL :: CPPKEY_PHYS = .FALSE.
 #endif
 
 #ifdef INCA
-  LOGICAL, PARAMETER :: CPPKEY_INCA = .TRUE.
+  LOGICAL :: CPPKEY_INCA = .TRUE.
 #else
-  LOGICAL, PARAMETER :: CPPKEY_INCA = .FALSE.
+  LOGICAL :: CPPKEY_INCA = .FALSE.
 #endif
 
 #ifdef REPROBUS
-  LOGICAL, PARAMETER :: CPPKEY_REPROBUS = .TRUE.
+  LOGICAL :: CPPKEY_REPROBUS = .TRUE.
 #else
-  LOGICAL, PARAMETER :: CPPKEY_REPROBUS = .FALSE.
+  LOGICAL :: CPPKEY_REPROBUS = .FALSE.
 #endif
 
 #ifdef CPP_StratAer
-  LOGICAL, PARAMETER :: CPPKEY_STRATAER = .TRUE.
+  LOGICAL :: CPPKEY_STRATAER = .TRUE.
 #else
-  LOGICAL, PARAMETER :: CPPKEY_STRATAER = .FALSE.
+  LOGICAL :: CPPKEY_STRATAER = .FALSE.
 #endif
 
 #ifdef CPP_DUST
-  LOGICAL, PARAMETER :: CPPKEY_DUST = .TRUE.
+  LOGICAL :: CPPKEY_DUST = .TRUE.
 #else
-  LOGICAL, PARAMETER :: CPPKEY_DUST = .FALSE.
-#endif
-
-#ifdef DEBUG_IO
-  LOGICAL, PARAMETER :: CPPKEY_DEBUGIO = .TRUE.
-#else
-  LOGICAL, PARAMETER :: CPPKEY_DEBUGIO = .FALSE.
+  LOGICAL :: CPPKEY_DUST = .FALSE.
 #endif
 
 #ifdef CPP_INLANDSIS
-  LOGICAL, PARAMETER :: CPPKEY_INLANDSIS = .TRUE.
+  LOGICAL :: CPPKEY_INLANDSIS = .TRUE.
 #else
-  LOGICAL, PARAMETER :: CPPKEY_INLANDSIS = .FALSE.
+  LOGICAL :: CPPKEY_INLANDSIS = .FALSE.
 #endif
 
 #ifdef OUTPUT_PHYS_SCM
-  LOGICAL, PARAMETER :: CPPKEY_OUTPUTPHYSSCM = .TRUE.
+  LOGICAL :: CPPKEY_OUTPUTPHYSSCM = .TRUE.
 #else
-  LOGICAL, PARAMETER :: CPPKEY_OUTPUTPHYSSCM = .FALSE.
+  LOGICAL :: CPPKEY_OUTPUTPHYSSCM = .FALSE.
 #endif
 
 #ifdef CPP_COSP
-  LOGICAL, PARAMETER :: CPPKEY_COSP = .TRUE.
+  LOGICAL :: CPPKEY_COSP = .TRUE.
 #else
-  LOGICAL, PARAMETER :: CPPKEY_COSP = .FALSE.
+  LOGICAL :: CPPKEY_COSP = .FALSE.
 #endif
 
 #ifdef CPP_COSP2
-  LOGICAL, PARAMETER :: CPPKEY_COSP2 = .TRUE.
+  LOGICAL :: CPPKEY_COSP2 = .TRUE.
 #else
-  LOGICAL, PARAMETER :: CPPKEY_COSP2 = .FALSE.
+  LOGICAL :: CPPKEY_COSP2 = .FALSE.
 #endif
 
 #ifdef CPP_COSPV2
-  LOGICAL, PARAMETER :: CPPKEY_COSPV2 = .TRUE.
+  LOGICAL :: CPPKEY_COSPV2 = .TRUE.
 #else
-  LOGICAL, PARAMETER :: CPPKEY_COSPV2 = .FALSE.
+  LOGICAL :: CPPKEY_COSPV2 = .FALSE.
 #endif