Changeset 4600 for LMDZ6/trunk/libf/phy_common/mod_phys_lmdz_mpi_data.F90
- Timestamp:
- Jun 30, 2023, 8:18:43 PM (11 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phy_common/mod_phys_lmdz_mpi_data.F90
r4127 r4600 3 3 ! 4 4 MODULE mod_phys_lmdz_mpi_data 5 5 USE lmdz_mpi 6 6 7 INTEGER,SAVE :: ii_begin 7 8 INTEGER,SAVE :: ii_end … … 47 48 48 49 SUBROUTINE init_phys_lmdz_mpi_data(nbp, nbp_lon, nbp_lat, nbp_lev, grid_type, nvertex, communicator) 49 50 USE lmdz_mpi 50 51 IMPLICIT NONE 51 #ifdef CPP_MPI52 INCLUDE 'mpif.h'53 #endif54 52 INTEGER,INTENT(IN) :: nbp 55 53 INTEGER,INTENT(IN) :: nbp_lon … … 65 63 INTEGER :: i 66 64 67 #ifdef CPP_MPI68 is_using_mpi=.TRUE.69 #else70 is_using_mpi=.FALSE.71 #endif72 73 65 if ((nbp_lon.eq.1).and.(nbp_lat.eq.1)) then ! running 1D column model 74 66 klon_glo=1 … … 82 74 83 75 IF (is_using_mpi) THEN 84 #ifdef CPP_MPI85 76 MPI_REAL_LMDZ=MPI_REAL8 86 77 CALL MPI_COMM_SIZE(COMM_LMDZ_PHY,mpi_size,ierr) 87 78 CALL MPI_COMM_RANK(COMM_LMDZ_PHY,mpi_rank,ierr) 88 #endif89 79 ELSE 90 80 mpi_size=1 … … 95 85 96 86 IF (is_using_mpi) THEN 97 #ifdef CPP_MPI 98 CALL MPI_ALLGATHER(nbp,1,MPI_INTEGER,distrib,1,MPI_INTEGER,COMM_LMDZ_PHY,ierr) 99 #endif 87 CALL MPI_ALLGATHER(nbp,1,MPI_INTEGER,distrib,1,MPI_INTEGER,COMM_LMDZ_PHY,ierr) 100 88 ELSE 101 89 distrib(:)=nbp
Note: See TracChangeset
for help on using the changeset viewer.