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_nofrein_mod.F90

    r3102 r4600  
    527527  SUBROUTINE Get_orchidee_communicator(orch_comm,orch_omp_size,orch_omp_rank)
    528528  USE  mod_surf_para
     529  USE lmdz_mpi
    529530     
    530 #ifdef CPP_MPI
    531     INCLUDE 'mpif.h'
    532 #endif   
    533 
    534531    INTEGER,INTENT(OUT) :: orch_comm
    535532    INTEGER,INTENT(OUT) :: orch_omp_size
    … …  
    550547      ENDIF
    551548   
    552 #ifdef CPP_MPI   
    553549      CALL MPI_COMM_SPLIT(COMM_LMDZ_PHY,color,mpi_rank,orch_comm,ierr)
    554 #endif
    555550   
    556551    ENDIF
    … …  
    577572    USE mod_surf_para   
    578573    USE indice_sol_mod
    579 
    580 #ifdef CPP_MPI
    581     INCLUDE 'mpif.h'
    582 #endif   
     574    USE lmdz_mpi
    583575
    584576! Input arguments
Note: See TracChangeset for help on using the changeset viewer.