Ignore:
Timestamp:
Sep 11, 2024, 4:27:07 PM (3 months ago)
Author:
abarral
Message:

Replace REPROBUS CPP KEY by logical using handmade wonky wrapper

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

    r5182 r5185  
    1717    USE lmdz_infotrac, ONLY: nbtr, type_trac
    1818
    19 #ifdef REPROBUS
    20   USE CHEM_REP, ONLY: Init_chem_rep_phys
     19    USE lmdz_reprobus_wrappers, ONLY: Init_chem_rep_phys
    2120#ifdef CPP_PARA
    2221  USE parallel_lmdz, ONLY: mpi_size, mpi_rank
    2322  USE bands, ONLY: distrib_phys
    2423#endif
    25   USE lmdz_phys_omp_data, ONLY: klon_omp
    26 #endif
     24    USE lmdz_phys_omp_data, ONLY: klon_omp
    2725    USE control_mod, ONLY: dayref, anneeref, day_step, nday, offline, iphysiq
    2826    USE inifis_mod, ONLY: inifis
     
    4442    USE lmdz_comgeom
    4543    USE lmdz_tracstoke
     44    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_REPROBUS
    4645
    47 USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
    48   USE lmdz_paramet
     46    USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     47    USE lmdz_paramet
    4948    IMPLICIT NONE
    5049
     
    5352    ! geometrical arrays for the physics
    5453    ! =======================================================================
    55 
    56 
    57 
    5854
    5955    REAL, INTENT (IN) :: prad ! radius of the planet (m)
     
    137133    ! Initializations for Reprobus
    138134    IF (type_trac == 'repr') THEN
    139 #ifdef REPROBUS
    140     CALL Init_chem_rep_phys(klon_omp,nlayer)
    141     CALL init_reprobus_para( &
    142           nbp_lon,nbp_lat,nbp_lev,klon_glo,mpi_size, &
    143           distrib_phys,communicator)
    144 #endif
     135      IF (CPPKEY_REPROBUS) THEN
     136        CALL Init_chem_rep_phys(klon_omp, nlayer)
     137        CALL init_reprobus_para(&
     138                nbp_lon, nbp_lat, nbp_lev, klon_glo, mpi_size, &
     139                distrib_phys, communicator)
     140      END IF
    145141    ENDIF
    146142    !$OMP END PARALLEL
    147143
    148144    IF (type_trac == 'repr') THEN
    149 #ifdef REPROBUS
    150     CALL init_reprobus_para( &
    151           nbp_lon,nbp_lat,nbp_lev,klon_glo,mpi_size, &
    152           distrib_phys,communicator)
    153 #endif
     145      IF (CPPKEY_REPROBUS) THEN
     146        CALL init_reprobus_para(&
     147                nbp_lon, nbp_lat, nbp_lev, klon_glo, mpi_size, &
     148                distrib_phys, communicator)
     149      END IF
    154150    ENDIF
    155151
Note: See TracChangeset for help on using the changeset viewer.