Ignore:
Timestamp:
Oct 22, 2024, 2:09:45 PM (3 hours ago)
Author:
abarral
Message:

Wrap uses of cpp key REPROBUS and CPP_STRATAER
Add REPROBUS wrapper

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.F90

    r5251 r5252  
    4646         xios_set_current_context, &
    4747         using_xios
    48    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA
     48   USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA, CPPKEY_REPROBUS
    4949
    5050  IMPLICIT NONE
    … …  
    15311531     ENDIF
    15321532END IF
    1533 #ifdef REPROBUS
     1533IF (CPPKEY_REPROBUS) THEN
    15341534     if (type_trac == 'repr') CALL finalize_reprobus
    1535 #endif
     1535END IF
    15361536
    15371537!$OMP MASTER
    … …  
    15881588          ENDIF
    15891589END IF
    1590 #ifdef REPROBUS
     1590IF (CPPKEY_REPROBUS) THEN
    15911591          if (type_trac == 'repr') CALL finalize_reprobus
    1592 #endif
     1592END IF
    15931593
    15941594!$OMP MASTER
    … …  
    17621762
    17631763END IF
    1764 #ifdef REPROBUS
     1764IF (CPPKEY_REPROBUS) THEN
    17651765             if (type_trac == 'repr') CALL finalize_reprobus
    1766 #endif
     1766END IF
    17671767
    17681768!$OMP MASTER
    … …  
    18761876
    18771877END IF
    1878 #ifdef REPROBUS
     1878IF (CPPKEY_REPROBUS) THEN
    18791879  if (type_trac == 'repr') CALL finalize_reprobus
    1880 #endif
     1880END IF
    18811881
    18821882!$OMP MASTER
Note: See TracChangeset for help on using the changeset viewer.