- Timestamp:
- Oct 30, 2023, 5:37:00 PM (8 months ago)
- Location:
- LMDZ6/branches/Portage_acc
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Portage_acc
- Property svn:mergeinfo changed
-
LMDZ6/branches/Portage_acc/libf/phy_common/abort_physic.F90
r4584 r4743 38 38 if (ierr .eq. 0) then 39 39 write(lunout,*) 'Everything is cool' 40 #ifdef CPP_MPI 41 !$OMP CRITICAL (MPI_ABORT_PHYSIC)42 call MPI_ABORT(COMM_LMDZ_PHY, 0, ierror_mpi)43 !$OMP END CRITICAL (MPI_ABORT_PHYSIC)44 #else45 stop 046 #endif40 if (using_mpi) then 41 !$OMP CRITICAL (MPI_ABORT_PHYSIC) 42 call MPI_ABORT(COMM_LMDZ_PHY, 0, ierror_mpi) 43 !$OMP END CRITICAL (MPI_ABORT_PHYSIC) 44 else 45 stop 0 46 endif 47 47 else 48 48 write(lunout,*) 'Houston, we have a problem, ierr = ', ierr 49 #ifdef CPP_MPI 50 !$OMP CRITICAL (MPI_ABORT_PHYSIC)51 call MPI_ABORT(COMM_LMDZ_PHY, 1, ierror_mpi)52 !$OMP END CRITICAL (MPI_ABORT_PHYSIC)53 #else54 stop 155 #endif49 if (using_mpi) then 50 !$OMP CRITICAL (MPI_ABORT_PHYSIC) 51 call MPI_ABORT(COMM_LMDZ_PHY, 1, ierror_mpi) 52 !$OMP END CRITICAL (MPI_ABORT_PHYSIC) 53 else 54 stop 1 55 endif 56 56 endif 57 57 END
Note: See TracChangeset
for help on using the changeset viewer.