Merge pull request #7861 from gforney/master

FDS source: minor edits to STOP error messages so firebot will detect…
firemodels · Dec 11, 2019 · df90e38 · df90e38
2 parents 9cb734f + efcd36f
commit df90e38
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Source/main.f90 b/Source/main.f90
@@ -1537,11 +1537,11 @@ SUBROUTINE END_FDS
          WRITE(MESSAGE,'(A)') 'STOP: FDS completed successfully'
          IF (STATUS_FILES) CLOSE(LU_NOTREADY,STATUS='DELETE')
       CASE(INSTABILITY_STOP)
-         WRITE(MESSAGE,'(A)') 'STOP: Numerical Instability'
+         WRITE(MESSAGE,'(A)') 'ERROR: Numerical Instability - FDS stopped'
       CASE(USER_STOP)
          WRITE(MESSAGE,'(A)') 'STOP: FDS stopped by user'
       CASE(SETUP_STOP)
-         WRITE(MESSAGE,'(A)') 'STOP: FDS was improperly set-up'
+         WRITE(MESSAGE,'(A)') 'ERROR: FDS was improperly set-up - FDS stopped'
       CASE(SETUP_ONLY_STOP)
          WRITE(MESSAGE,'(A)') 'STOP: Set-up only'
       CASE(CTRL_STOP)
@@ -1551,7 +1551,7 @@ SUBROUTINE END_FDS
       CASE(LEVELSET_STOP)
          WRITE(MESSAGE,'(A)') 'STOP: Level set analysis only'
       CASE(REALIZABILITY_STOP)
-         WRITE(MESSAGE,'(A)') 'STOP: Unrealizable mass density'
+         WRITE(MESSAGE,'(A)') 'ERROR: Unrealizable mass density - FDS stopped'
       CASE DEFAULT
          WRITE(MESSAGE,'(A)') 'null'
    END SELECT