FDS Source: Shutdown properly if restart files do not exist

Author: mcgratta

Manuals/FDS_User_Guide/FDS_User_Guide.tex

@@ -14609,6 +14609,7 @@ \chapter{Error Codes}
 1044 \> \ct{Cannot set EXTERNAL_FILE=T for a RAMP used for an output clock ...} \> Section~\ref{info:external_control} \\
 1045 \> \ct{QUANTITY ... requires a PART_ID for particles with mass.} \> Section~\ref{tab:particleoutputquantities} \\
 \\
+1050 \> \ct{The file ... does not exist. Set RESTART=.FALSE.} \> Section~\ref{info:restart} \\
 1051 \> \ct{RESTART initial time equals T_END.} \> Section~\ref{info:restart} \\
 1052 \> \ct{On TIME, do not set both RAMP_TIME and RAMP_DT.} \> Section~\ref{info:simulation_time_ramp} \\
 1053 \> \ct{One TIME, if one of DT_EXTERNAL_HEARTBEAT or} \> Section~\ref{info:external_control} \\

Source/dump.f90

@@ -1528,12 +1528,10 @@ SUBROUTINE WRITE_SMOKEVIEW_FILE
 
 ! If this is a RESTART case but an old .smv file does not exist, shutdown with an ERROR.
 
-IF( MY_RANK==0) THEN
-   INQUIRE(FILE=FN_SMV,EXIST=EX)
-   IF (.NOT.EX .AND. APPEND) THEN
-      WRITE(MESSAGE,'(A,A,A)') "ERROR: The file, ",TRIM(FN_SMV),", does not exist. Set RESTART=.FALSE."
-      CALL SHUTDOWN(MESSAGE) ; RETURN
-   ENDIF
+INQUIRE(FILE=FN_SMV,EXIST=EX)
+IF (.NOT.EX .AND. APPEND) THEN
+   WRITE(MESSAGE,'(A,A,A)') "ERROR(1050): The file, ",TRIM(FN_SMV),", does not exist. Set RESTART=.FALSE."
+   CALL SHUTDOWN(MESSAGE) ; RETURN
 ENDIF
 
 ! If this is a RESTART case, there is no need to open the .smv file except for Process 0.