Changeset 4727 for LMDZ6/branches/LMDZ_ECRad/libf/dyn3dmem/abort_gcm.F

Timestamp:

Oct 19, 2023, 4:02:57 PM (13 months ago)

Author:

idelkadi

Message:

Merged trunk changes -r4488:4726 LMDZ_ECRad branch

Location:

LMDZ6/branches/LMDZ_ECRad

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/abort_gcm.F (modified) (2 diffs)

LMDZ6/branches/LMDZ_ECRad/libf/dyn3dmem/abort_gcm.F

@@ -13 +13 @@
 #endif
       USE parallel_lmdz
-#include "iniprint.h"
+      INCLUDE "iniprint.h"
  
 C
@@ -47 +47 @@
       else
         write(lunout,*) 'Houston, we have a problem, ierr = ', ierr
-#ifdef CPP_MPI
+
+        if (using_mpi) THEN
 C$OMP CRITICAL (MPI_ABORT_GCM)
-        call MPI_ABORT(COMM_LMDZ, 1, ierror_mpi)
+          call MPI_ABORT(COMM_LMDZ, 1, ierror_mpi)
 C$OMP END CRITICAL (MPI_ABORT_GCM)
-#else
-        stop 1
-#endif          
+        else
+         stop 1
+        endif          
+      
       endif
       END