Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/misc/lmdz_mpi_wrappers.F90

Timestamp:

Jul 23, 2024, 8:22:55 AM (2 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/libf/misc/lmdz_mpi_wrappers.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/misc/lmdz_mpi_wrappers.F90

@@ -66 +66 @@
 
 SUBROUTINE MPI_WAITALL(COUNT, ARRAY_OF_REQUESTS, ARRAY_OF_STATUSES, IERROR)
-USE lmdz_mpi, ONLY : MPI_STATUS_SIZE
+USE lmdz_mpi, ONLY: MPI_STATUS_SIZE
 IMPLICIT NONE
     INTEGER    COUNT, ARRAY_OF_REQUESTS(*)
@@ -105 +105 @@
 
 SUBROUTINE MPI_ALLOC_MEM(SIZE, INFO, BASEPTR, IERROR)
-USE lmdz_mpi, ONLY : MPI_ADDRESS_KIND
+USE lmdz_mpi, ONLY: MPI_ADDRESS_KIND
 IMPLICIT NONE
     INTEGER INFO, IERROR
@@ -131 +131 @@
 SUBROUTINE MPI_RECV(BUF, COUNT, DATATYPE, SOURCE, TAG, COMM, STATUS, IERROR)
 USE ISO_C_BINDING
-USE lmdz_mpi, ONLY : MPI_STATUS_SIZE
+USE lmdz_mpi, ONLY: MPI_STATUS_SIZE
 IMPLICIT NONE
     TYPE(C_PTR),VALUE ::    BUF