Merge pull request #14295 from rmcdermo/master

FDS Source: add error code for impinging jet model

Author: rmcdermo

Manuals/FDS_User_Guide/FDS_User_Guide.tex

@@ -14029,6 +14029,7 @@ \chapter{Error Codes}
 374  \> \ct{Numerical Instability - FDS stopped.                                   } \> Section~\ref{info:Errors}  \\
 375  \> \ct{OBST ... is VARIABLE_THICKNESS or HT3D and needs a MATL_ID.      } \> Section~\ref{info:HT3D_Limitations}  \\
 376  \> \ct{Meshes must have the same y/z bounds for TUNNEL_PRECONDITIONER.  } \> Section~\ref{tunnel_solver}  \\
+377  \> \ct{SURF ... IMPINGING JET model requires ...                        } \> Section~\ref{info:impinging_jet}  \\
      \>                                                                               \>                                     \\
 381  \> \ct{Need more spectral band limits.                                        } \> Section~\ref{info:RADI_Wide_Band}  \\
 382  \> \ct{Spectral band limits should be given in ascending order.               } \> Section~\ref{info:RADI_Wide_Band}  \\

Source/read.f90

@@ -8326,7 +8326,7 @@ SUBROUTINE READ_SURF(QUICK_READ)
 
    IF (SF%HEAT_TRANSFER_MODEL==IMPINGING_JET_HTC_MODEL .AND. &
       (HEAT_TRANSFER_COEFFICIENT<0._EB .OR. HEAT_TRANSFER_COEFFICIENT_SIGMA<0._EB .OR. ANY(XYZ < -1.E5_EB)) ) THEN
-      WRITE(MESSAGE,'(A,A,A)') 'ERROR(XXX): SURF ',TRIM(SF%ID), &
+      WRITE(MESSAGE,'(A,A,A)') 'ERROR(377): SURF ',TRIM(SF%ID), &
          ' IMPINGING JET model requires XYZ(1:3), HEAT_TRANSFER_COEFFICIENT, and HEAT_TRANSFER_COEFFICIENT_SIGMA.'
       CALL SHUTDOWN(MESSAGE) ; RETURN
    ENDIF