- Timestamp:
- Apr 8, 2024, 4:22:12 PM (6 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/surf_land_orchidee_noopenmp_mod.F90
r4600 r4894 621 621 ENDIF 622 622 623 CALL MPI_COMM_SPLIT(COMM_LMDZ_PHY,color,mpi_rank,orch_comm,ierr) 623 IF (using_mpi) THEN 624 CALL MPI_COMM_SPLIT(COMM_LMDZ_PHY,color,mpi_rank,orch_comm,ierr) 625 ENDIF 624 626 625 627 END SUBROUTINE Get_orchidee_communicator … … 666 668 knon_nb(:)=knon 667 669 ELSE 668 CALL MPI_GATHER(knon,1,MPI_INTEGER,knon_nb,1,MPI_INTEGER,0,COMM_LMDZ_PHY,ierr)670 CALL MPI_GATHER(knon,1,MPI_INTEGER,knon_nb,1,MPI_INTEGER,0,COMM_LMDZ_PHY,ierr) 669 671 ENDIF 670 672
Note: See TracChangeset
for help on using the changeset viewer.