Changeset 2100 for LMDZ5/trunk/libf/dyn3dmem
- Timestamp:
- Jul 22, 2014, 6:33:56 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dmem/abort_gcm.F
r1907 r2100 23 23 C ierr = severity of situation ( = 0 normal ) 24 24 25 character(len=*) modname25 character(len=*), intent(in):: modname 26 26 integer ierr, ierror_mpi 27 character(len=*) message27 character(len=*), intent(in):: message 28 28 29 29 write(lunout,*) 'in abort_gcm' … … 46 46 write(lunout,*) 'Everything is cool' 47 47 else 48 write(lunout,*) 'Houston, we have a problem ', ierr48 write(lunout,*) 'Houston, we have a problem, ierr = ', ierr 49 49 #ifdef CPP_MPI 50 50 C$OMP CRITICAL (MPI_ABORT_GCM)
Note: See TracChangeset
for help on using the changeset viewer.