Changeset 4894 for LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nolic_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_nolic_mod.F90
r4600 r4894 711 711 ENDIF 712 712 713 CALL MPI_COMM_SPLIT(COMM_LMDZ_PHY,color,mpi_rank,orch_comm,ierr) 714 CALL MPI_COMM_SIZE(orch_comm,orch_mpi_size,ierr) 715 CALL MPI_COMM_RANK(orch_comm,orch_mpi_rank,ierr) 713 IF (using_mpi) THEN 714 CALL MPI_COMM_SPLIT(COMM_LMDZ_PHY,color,mpi_rank,orch_comm,ierr) 715 CALL MPI_COMM_SIZE(orch_comm,orch_mpi_size,ierr) 716 CALL MPI_COMM_RANK(orch_comm,orch_mpi_rank,ierr) 717 ENDIF 716 718 717 719 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.