Changeset 5258 for LMDZ6/trunk/libf/dyn3dmem/groupe_loc.F90

Timestamp:

Oct 22, 2024, 4:17:24 PM (8 hours ago)

Author:

abarral

Message:

Wrap uses of cpp key DEBUG_IO

File:

• LMDZ6/trunk/libf/dyn3dmem/groupe_loc.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3dmem/groupe_loc.F90

@@ -4 +4 @@
   USE groupe_mod
   USE comconst_mod, ONLY: ngroup
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
   implicit none
 
@@ -71 +72 @@
 !$OMP END DO NOWAIT
 
-#ifdef DEBUG_IO
+IF (CPPKEY_DEBUGIO) THEN
   CALL WriteField_v('pbarvm',reshape(pbarvm,(/ip1jm,llm/)))
-#endif
+END IF
   call groupeun_loc(jjm,llm,jjb_v,jje_v,jjb,jje,pbarvm)
-#ifdef DEBUG_IO
+IF (CPPKEY_DEBUGIO) THEN
   CALL WriteField_v('pbarvm',reshape(pbarvm,(/ip1jm,llm/)))
-#endif
+END IF
   !   Champs 3D