Changeset 4600 for LMDZ6/trunk/libf/phy_common/abort_physic.F90

Timestamp:

Jun 30, 2023, 8:18:43 PM (11 months ago)

Author:

yann meurdesoif

Message:

Suppress CPP_MPI key usage in source code. MPI wrappers is used to supress missing symbol if the mpi library is not linked

YM

File:

• LMDZ6/trunk/libf/phy_common/abort_physic.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phy_common/abort_physic.F90

@@ -38 +38 @@
       if (ierr .eq. 0) then
         write(lunout,*) 'Everything is cool'
-#ifdef CPP_MPI
-        !$OMP CRITICAL (MPI_ABORT_PHYSIC)
-        call MPI_ABORT(COMM_LMDZ_PHY, 0, ierror_mpi)
-        !$OMP END CRITICAL (MPI_ABORT_PHYSIC)
-#else
-        stop 0
-#endif          
+        if (using_mpi) then
+          !$OMP CRITICAL (MPI_ABORT_PHYSIC)
+          call MPI_ABORT(COMM_LMDZ_PHY, 0, ierror_mpi)
+          !$OMP END CRITICAL (MPI_ABORT_PHYSIC)
+        else
+          stop 0
+        endif          
       else
         write(lunout,*) 'Houston, we have a problem, ierr = ', ierr
-#ifdef CPP_MPI
-!$OMP CRITICAL (MPI_ABORT_PHYSIC)
-        call MPI_ABORT(COMM_LMDZ_PHY, 1, ierror_mpi)
-!$OMP END CRITICAL (MPI_ABORT_PHYSIC)
-#else
-        stop 1
-#endif          
+        if (using_mpi) then
+          !$OMP CRITICAL (MPI_ABORT_PHYSIC)
+          call MPI_ABORT(COMM_LMDZ_PHY, 1, ierror_mpi)
+          !$OMP END CRITICAL (MPI_ABORT_PHYSIC)
+        else
+          stop 1
+        endif          
       endif
       END