Changeset 4600 for LMDZ6/trunk/libf/dyn3dmem/abort_gcm.F
- Timestamp:
- Jun 30, 2023, 8:18:43 PM (11 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/abort_gcm.F
r4593 r4600 47 47 else 48 48 write(lunout,*) 'Houston, we have a problem, ierr = ', ierr 49 #ifdef CPP_MPI 49 50 if (using_mpi) THEN 50 51 C$OMP CRITICAL (MPI_ABORT_GCM) 51 call MPI_ABORT(COMM_LMDZ, 1, ierror_mpi)52 call MPI_ABORT(COMM_LMDZ, 1, ierror_mpi) 52 53 C$OMP END CRITICAL (MPI_ABORT_GCM) 53 #else 54 stop 1 55 #endif 54 else 55 stop 1 56 endif 57 56 58 endif 57 59 END
Note: See TracChangeset
for help on using the changeset viewer.