Changeset 5258 for LMDZ6/trunk/libf/dyn3d

Timestamp:

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

Author:

abarral

Message:

Wrap uses of cpp key DEBUG_IO

File:

• LMDZ6/trunk/libf/dyn3d/advtrac.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/dyn3d/advtrac.F90

@@ -1 +1 @@
 ! $Id$
 
-#define DEBUG_IO
-#undef DEBUG_IO
 SUBROUTINE advtrac(pbaru, pbarv, p, masse,q,iapptrac,teta, flxw, pk)
    !     Auteur :  F. Hourdin
@@ -14 +12 @@
    USE control_mod,  ONLY: iapp_tracvl, day_step
    USE comconst_mod, ONLY: dtvr
-
+   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_DEBUGIO
+   USE strings_mod, ONLY: int2str
    IMPLICIT NONE
    !
@@ -202 +201 @@
    CALL massbar(massem,massebx,masseby)
 
-#ifdef DEBUG_IO    
+IF (CPPKEY_DEBUGIO) THEN
    CALL WriteField_u('massem',massem)
    CALL WriteField_u('wg',wg)
@@ -213 +212 @@
       CALL WriteField_u('q_adv'//trim(int2str(iq)),q(:,:,iq))
    END DO
-#endif
+END IF
 
    IF(isoCheck) WRITE(*,*) 'advtrac 227'