added error "0" for internal (run time) checks failing

2012-10-12 17:55:23 +00:00 · 2012-10-12 17:55:23 +00:00 · b20c612e25
parent 1b2edd7e7d
commit b20c612e25
1 changed files with 5 additions and 0 deletions
--- a/code/IO.f90
+++ b/code/IO.f90
@ -1293,6 +1293,11 @@ subroutine IO_error(error_ID,e,i,g,ext_msg)

 select case (error_ID)

+ !* internal errors
+ 
+ case (0_pInt)
+   msg = 'internal check failed:'
+
 !* file handling errors
 
 case (100_pInt)