Changeset 4600 for LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90
- Timestamp:
- Jun 30, 2023, 8:18:43 PM (15 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90
r4526 r4600 701 701 SUBROUTINE Get_orchidee_communicator(orch_comm, orch_mpi_size, orch_mpi_rank, orch_omp_size,orch_omp_rank) 702 702 USE mod_surf_para 703 USE lmdz_mpi 703 704 704 #ifdef CPP_MPI705 INCLUDE 'mpif.h'706 #endif707 708 705 INTEGER,INTENT(OUT) :: orch_comm 709 706 INTEGER,INTENT(OUT) :: orch_mpi_size … … 725 722 ENDIF 726 723 727 #ifdef CPP_MPI728 724 CALL MPI_COMM_SPLIT(COMM_LMDZ_PHY,color,mpi_rank,orch_comm,ierr) 729 725 CALL MPI_COMM_SIZE(orch_comm,orch_mpi_size,ierr) 730 726 CALL MPI_COMM_RANK(orch_comm,orch_mpi_rank,ierr) 731 #endif732 727 733 728 ENDIF … … 753 748 USE mod_surf_para 754 749 USE indice_sol_mod 755 756 #ifdef CPP_MPI 757 INCLUDE 'mpif.h' 758 #endif 750 USE lmdz_mpi 759 751 760 752 ! Input arguments
Note: See TracChangeset
for help on using the changeset viewer.