- Timestamp:
- Oct 19, 2023, 4:02:57 PM (9 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/phy_common/mod_phys_lmdz_mpi_data.F90
r4127 r4727 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_MPI 68 is_using_mpi=.TRUE. 69 #else 70 is_using_mpi=.FALSE. 71 #endif 65 is_using_mpi = using_mpi 72 66 73 67 if ((nbp_lon.eq.1).and.(nbp_lat.eq.1)) then ! running 1D column model … … 82 76 83 77 IF (is_using_mpi) THEN 84 #ifdef CPP_MPI85 78 MPI_REAL_LMDZ=MPI_REAL8 86 79 CALL MPI_COMM_SIZE(COMM_LMDZ_PHY,mpi_size,ierr) 87 80 CALL MPI_COMM_RANK(COMM_LMDZ_PHY,mpi_rank,ierr) 88 #endif89 81 ELSE 90 82 mpi_size=1 … … 95 87 96 88 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 89 CALL MPI_ALLGATHER(nbp,1,MPI_INTEGER,distrib,1,MPI_INTEGER,COMM_LMDZ_PHY,ierr) 100 90 ELSE 101 91 distrib(:)=nbp
Note: See TracChangeset
for help on using the changeset viewer.