Changeset 4894 for LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90
- 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_mod.F90
r4600 r4894 722 722 ENDIF 723 723 724 CALL MPI_COMM_SPLIT(COMM_LMDZ_PHY,color,mpi_rank,orch_comm,ierr) 725 CALL MPI_COMM_SIZE(orch_comm,orch_mpi_size,ierr) 726 CALL MPI_COMM_RANK(orch_comm,orch_mpi_rank,ierr) 724 IF (using_mpi) THEN 725 CALL MPI_COMM_SPLIT(COMM_LMDZ_PHY,color,mpi_rank,orch_comm,ierr) 726 CALL MPI_COMM_SIZE(orch_comm,orch_mpi_size,ierr) 727 CALL MPI_COMM_RANK(orch_comm,orch_mpi_rank,ierr) 728 ENDIF 727 729 728 730 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.