Changeset 4600 for LMDZ6/trunk/libf/phylmd/surf_land_orchidee_noz0h_mod.F90
- 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_noz0h_mod.F90
r3568 r4600 525 525 SUBROUTINE Get_orchidee_communicator(orch_comm,orch_omp_size,orch_omp_rank) 526 526 USE mod_surf_para 527 USE lmdz_mpi 527 528 528 #ifdef CPP_MPI529 INCLUDE 'mpif.h'530 #endif531 532 529 INTEGER,INTENT(OUT) :: orch_comm 533 530 INTEGER,INTENT(OUT) :: orch_omp_size … … 548 545 ENDIF 549 546 550 #ifdef CPP_MPI551 547 CALL MPI_COMM_SPLIT(COMM_LMDZ_PHY,color,mpi_rank,orch_comm,ierr) 552 #endif553 548 554 549 ENDIF … … 575 570 USE mod_surf_para 576 571 USE indice_sol_mod 577 578 #ifdef CPP_MPI 579 INCLUDE 'mpif.h' 580 #endif 572 USE lmdz_mpi 581 573 582 574 ! Input arguments
Note: See TracChangeset
for help on using the changeset viewer.