Changeset 4894 for LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nounstruct_mod.F90

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:

• LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nounstruct_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/surf_land_orchidee_nounstruct_mod.F90

@@ -545 +545 @@
       ENDIF
     
-      CALL MPI_COMM_SPLIT(COMM_LMDZ_PHY,color,mpi_rank,orch_comm,ierr)
+      IF (using_mpi) THEN
+        CALL MPI_COMM_SPLIT(COMM_LMDZ_PHY,color,mpi_rank,orch_comm,ierr)
+      ENDIF
     
     ENDIF