Ignore:
Timestamp:
Jun 30, 2023, 8:18:43 PM (11 months ago)
Author:
yann meurdesoif
Message:

Suppress CPP_MPI key usage in source code. MPI wrappers is used to supress missing symbol if the mpi library is not linked

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nounstruct_mod.F90

    r3438 r4600  
    525525  SUBROUTINE Get_orchidee_communicator(orch_comm,orch_omp_size,orch_omp_rank)
    526526  USE  mod_surf_para
     527  USE lmdz_mpi
    527528     
    528 #ifdef CPP_MPI
    529     INCLUDE 'mpif.h'
    530 #endif   
    531 
    532529    INTEGER,INTENT(OUT) :: orch_comm
    533530    INTEGER,INTENT(OUT) :: orch_omp_size
    … …  
    548545      ENDIF
    549546   
    550 #ifdef CPP_MPI   
    551547      CALL MPI_COMM_SPLIT(COMM_LMDZ_PHY,color,mpi_rank,orch_comm,ierr)
    552 #endif
    553548   
    554549    ENDIF
    … …  
    575570    USE mod_surf_para   
    576571    USE indice_sol_mod
    577 
    578 #ifdef CPP_MPI
    579     INCLUDE 'mpif.h'
    580 #endif   
     572    USE lmdz_mpi
    581573
    582574! Input arguments
Note: See TracChangeset for help on using the changeset viewer.