Ignore:
Timestamp:
Apr 8, 2024, 4:22:12 PM (6 weeks ago)
Author:
Laurent Fairhead
Message:

Forgot to replace some #ifdef CPP_MPI in r4600
AB/LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90

    r4600 r4894  
    722722      ENDIF
    723723   
    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
    727729   
    728730    ENDIF
Note: See TracChangeset for help on using the changeset viewer.