Changeset 5258 for LMDZ6/trunk/libf/dyn3dmem/caladvtrac_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/caladvtrac_loc.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/dyn3dmem/caladvtrac_loc.F90

@@ -16 +16 @@
   USE Vampir
   USE write_field_loc
-  !
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
   IMPLICIT NONE
   !
@@ -131 +131 @@
 !$OMP ENDDO NOWAIT
 
-#ifdef DEBUG_IO
+IF (CPPKEY_DEBUGIO) THEN
      CALL WriteField_u('pbarug1',pbarug)
      CALL WriteField_v('pbarvg1',pbarvg)
      CALL WriteField_u('wg1',wg)
-#endif
+END IF
 
 !$OMP BARRIER
@@ -178 +178 @@
 
 
-#ifdef DEBUG_IO
+IF (CPPKEY_DEBUGIO) THEN
      CALL WriteField_u('pbarug1',pbarug_adv)
      CALL WriteField_v('pbarvg1',pbarvg_adv)
      CALL WriteField_u('wg1',wg_adv)
-#endif
+END IF
   ! !write(*,*) 'caladvtrac 185'
   CALL advtrac_loc( pbarug_adv,pbarvg_adv,wg_adv, &