Changeset 5324 for LMDZ6/trunk/libf/dyn3d

Timestamp:

Nov 12, 2024, 4:31:36 PM (14 months ago)

Author:

abarral

Message:

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

File:

• LMDZ6/trunk/libf/dyn3d/advtrac.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d/advtrac.f90

@@ -15 +15 @@
    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
    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
@@ -200 +199 @@
    !---------------------------------------------------------------------------
    CALL massbar(massem,massebx,masseby)
-
-IF (CPPKEY_DEBUGIO) THEN
-   CALL WriteField_u('massem',massem)
-   CALL WriteField_u('wg',wg)
-   CALL WriteField_u('pbarug',pbarug)
-   CALL WriteField_v('pbarvg',pbarvg)
-   CALL WriteField_u('p_tmp',p)
-   CALL WriteField_u('pk_tmp',pk)
-   CALL WriteField_u('teta_tmp',teta)
-   DO iq=1,nqtot
-      CALL WriteField_u('q_adv'//trim(int2str(iq)),q(:,:,iq))
-   END DO
-END IF
 
    IF(isoCheck) WRITE(*,*) 'advtrac 227'