Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/misc/lmdz_cppkeys_wrapper.F90

Timestamp:

Jul 23, 2024, 8:22:55 AM (2 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/libf/misc/lmdz_cppkeys_wrapper.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/misc/lmdz_cppkeys_wrapper.F90

@@ -13 +13 @@
 
 MODULE lmdz_cppkeys_wrapper
-  USE, INTRINSIC :: ISO_FORTRAN_ENV, ONLY : REAL64, REAL32
+  USE, INTRINSIC :: ISO_FORTRAN_ENV, ONLY: REAL64, REAL32
   USE netcdf, ONLY: nf90_float, nf90_double
   IMPLICIT NONE; PRIVATE
-  PUBLIC nf90_format, CPPKEY_PHYS, CPPKEY_INCA, CPPKEY_STRATAER, CPPKEY_DUST
+  PUBLIC nf90_format, CPPKEY_PHYS, CPPKEY_INCA, CPPKEY_STRATAER, CPPKEY_DUST, &
+      CPPKEY_DEBUGIO
 
 #ifdef NC_DOUBLE
@@ -48 +49 @@
 #endif
 
+#ifdef DEBUG_IO
+  LOGICAL, PARAMETER :: CPPKEY_DEBUGIO = .TRUE.
+#else
+  LOGICAL, PARAMETER :: CPPKEY_DEBUGIO = .FALSE.
+#endif
+
 END MODULE lmdz_cppkeys_wrapper