- Timestamp:
- Oct 19, 2023, 4:02:57 PM (8 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/surf_land_orchidee_noz0h_mod.F90
r3568 r4727 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.