Permalink
Browse files

Updated error messages for the case that the velocity diverges.

  • Loading branch information...
stevensrjam committed Feb 17, 2016
1 parent f76d817 commit 042737a49db39b7811745e40e4d7398883766efd
Showing with 4 additions and 0 deletions.
  1. +4 −0 QuitRoutine.F90
View
@@ -59,7 +59,11 @@ subroutine NotifyError(errorcode)
268 format(10x,'velocities diverged')
else if(errorcode.eq.169) then
write(6,178)
write(6,179)
write(6,180)
178 format(10x,'too large local residue for mass conservation at:')
179 format(10x,'Probably the matrix in SolvePressureCorrection becomes singular')
180 format(10x,'Try changing nxm or str3')
call LocateLargeDivergence
else if(errorcode.eq.333) then
write(*,*) "time greater than tmax"

0 comments on commit 042737a

Please sign in to comment.