Changeset 4600 for LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nolic_mod.F90

Timestamp:

Jun 30, 2023, 8:18:43 PM (10 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:

• LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nolic_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nolic_mod.F90

@@ -689 +689 @@
 
   SUBROUTINE Get_orchidee_communicator(orch_comm, orch_mpi_size, orch_mpi_rank, orch_omp_size,orch_omp_rank)
+  USE lmdz_mpi
   USE  mod_surf_para
       
-#ifdef CPP_MPI
-    INCLUDE 'mpif.h'
-#endif    
-
     INTEGER,INTENT(OUT) :: orch_comm
     INTEGER,INTENT(OUT) :: orch_mpi_size
@@ -714 +711 @@
       ENDIF
     
-#ifdef CPP_MPI    
       CALL MPI_COMM_SPLIT(COMM_LMDZ_PHY,color,mpi_rank,orch_comm,ierr)
       CALL MPI_COMM_SIZE(orch_comm,orch_mpi_size,ierr)
       CALL MPI_COMM_RANK(orch_comm,orch_mpi_rank,ierr)
-#endif
     
     ENDIF
@@ -742 +737 @@
     USE mod_surf_para    
     USE indice_sol_mod
-
-#ifdef CPP_MPI
-    INCLUDE 'mpif.h'
-#endif    
+    USE lmdz_mpi
 
 ! Input arguments