- Timestamp:
- Jun 30, 2023, 8:18:43 PM (11 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nofrein_mod.F90
r3102 r4600 527 527 SUBROUTINE Get_orchidee_communicator(orch_comm,orch_omp_size,orch_omp_rank) 528 528 USE mod_surf_para 529 USE lmdz_mpi 529 530 530 #ifdef CPP_MPI531 INCLUDE 'mpif.h'532 #endif533 534 531 INTEGER,INTENT(OUT) :: orch_comm 535 532 INTEGER,INTENT(OUT) :: orch_omp_size … … 550 547 ENDIF 551 548 552 #ifdef CPP_MPI553 549 CALL MPI_COMM_SPLIT(COMM_LMDZ_PHY,color,mpi_rank,orch_comm,ierr) 554 #endif555 550 556 551 ENDIF … … 577 572 USE mod_surf_para 578 573 USE indice_sol_mod 579 580 #ifdef CPP_MPI 581 INCLUDE 'mpif.h' 582 #endif 574 USE lmdz_mpi 583 575 584 576 ! Input arguments
Note: See TracChangeset
for help on using the changeset viewer.