Changeset 2160 for LMDZ5/branches/testing/libf/dyn3dpar/abort_gcm.F
- Timestamp:
- Nov 28, 2014, 4:36:29 PM (10 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 2072,2075-2115,2117-2126,2128-2158
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/dyn3dpar/abort_gcm.F
r1910 r2160 27 27 C ierr = severity of situation ( = 0 normal ) 28 28 29 character(len=*) modname29 character(len=*), intent(in):: modname 30 30 integer ierr, ierror_mpi 31 character(len=*) message31 character(len=*), intent(in):: message 32 32 33 33 write(lunout,*) 'in abort_gcm' … … 53 53 write(lunout,*) 'Everything is cool' 54 54 else 55 write(lunout,*) 'Houston, we have a problem ', ierr55 write(lunout,*) 'Houston, we have a problem, ierr = ', ierr 56 56 #ifdef CPP_MPI 57 57 C$OMP CRITICAL (MPI_ABORT_GCM)
Note: See TracChangeset
for help on using the changeset viewer.