Skip to content

Commit

Permalink
FDS Source: Error codes
Browse files Browse the repository at this point in the history
  • Loading branch information
@mcgratta
mcgratta committed Jan 2, 2024
1 parent 48e3020 commit 9aff239
Show file tree
Hide file tree
Showing 2 changed files with 25 additions and 16 deletions.
11 changes: 11 additions & 0 deletions Manuals/FDS_User_Guide/FDS_User_Guide.tex
View file
Original file line number Diff line number Diff line change
Expand Up @@ -13505,6 +13505,17 @@ \chapter{Error Codes}
559 \> {\ct Output QUANTITY \ldots SPEC\_ID \ldots not found } \> Section~\ref{info:hvacoutputquantities} \\
560 \> {\ct HVAC\_SMV QUANTITY \ldots not appropriate for .hvac file. } \> Section~\ref{info:hvacoutputquantities} \\
561 \> {\ct HVAC\_SMV QUANTITY \ldots not found } \> Section~\ref{info:hvacoutputquantities} \\
\> \> \\
601 \> {\ct OBST \ldots\ MULT\_ID \ldots\ not found. } \> Section~\ref{info:MULT} \\
602 \> {\ct OBST \ldots\ SHAPE requires RADIUS. } \> Section~\ref{info:multobst} \\
603 \> {\ct OBST \ldots\ SHAPE requires HEIGHT. } \> Section~\ref{info:multobst} \\
604 \> {\ct OBST \ldots\ BOX SHAPE requires LENGTH, WIDTH, HEIGHT. } \> Section~\ref{info:multobst} \\
605 \> {\ct SURF\_ID \ldots\ does not exist. } \> Section~\ref{info:OBST_Basics} \\
606 \> {\ct SURF\_ID\_INTERIOR \ldots\ does not exist. } \> Section~\ref{info:BURN_AWAY} \\
607 \> {\ct OBST \ldots\ needs a BULK\_DENSITY if it is to BURN\_AWAY. } \> Section~\ref{info:BURN_AWAY} \\
608 \> {\ct MATL\_ID \ldots\ not found. } \> Section~\ref{info:ht1d} \\
609 \> {\ct MULT\_ID \ldots\ not found on HOLE line \ldots\ } \> Section~\ref{info:MULT} \\
610 \> {\ct HOLE \ldots\ Cannot overlap HOLEs with a DEVC or CTRL\_ID. } \> Section~\ref{info:HOLE} \\

\end{tabbing}

Expand Down
30 changes: 14 additions & 16 deletions Source/read.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -9569,8 +9569,7 @@ SUBROUTINE READ_OBST(QUICK_READ)
ENDDO
ENDIF
IF (MULT_INDEX==-1) THEN
WRITE(MESSAGE,'(A,A,A,I0,A,I0)') 'ERROR: MULT line ', TRIM(MULT_ID),' not found on OBST ', N_OBST_O+1,&
', line number ',INPUT_FILE_LINE_NUMBER
WRITE(MESSAGE,'(A,I0,3A)') 'ERROR(601): OBST ',N_OBST_O+1,' MULT_ID ',TRIM(MULT_ID),' not found.'
CALL SHUTDOWN(MESSAGE,PROCESS_0_ONLY=.FALSE.) ; RETURN
ENDIF
MR => MULTIPLIER(MULT_INDEX)
Expand Down Expand Up @@ -9617,7 +9616,7 @@ SUBROUTINE READ_OBST(QUICK_READ)
ENDDO J_MULT_LOOP2
ENDDO K_MULT_LOOP2
2 IF (IOS>0) THEN
WRITE(MESSAGE,'(A,I0,A,I0)') 'ERROR: Problem with OBST number ',N_OBST_O+1,', line number ',INPUT_FILE_LINE_NUMBER
WRITE(MESSAGE,'(A,I0,A,I0)') 'ERROR(101): Problem with OBST number ',N_OBST_O+1,', line number ',INPUT_FILE_LINE_NUMBER
CALL SHUTDOWN(MESSAGE,PROCESS_0_ONLY=.FALSE.) ; RETURN
ENDIF
ENDDO COUNT_OBST_LOOP
Expand Down Expand Up @@ -9697,15 +9696,15 @@ SUBROUTINE READ_OBST(QUICK_READ)
! detect input errors
IF ((SHAPE_TYPE==OBST_SPHERE_TYPE .OR. SHAPE_TYPE==OBST_CYLINDER_TYPE .OR. SHAPE_TYPE==OBST_CONE_TYPE) &
.AND. RADIUS<0._EB) THEN
WRITE(MESSAGE,'(A,I0,A)') 'ERROR: OBST ',NN,' SHAPE requires RADIUS'
WRITE(MESSAGE,'(A,I0,A)') 'ERROR(602): OBST ',NN,' SHAPE requires RADIUS.'
CALL SHUTDOWN(MESSAGE,PROCESS_0_ONLY=.FALSE.) ; RETURN
ENDIF
IF ((SHAPE_TYPE==OBST_CYLINDER_TYPE .OR. SHAPE_TYPE==OBST_CONE_TYPE) .AND. HEIGHT<0._EB) THEN
WRITE(MESSAGE,'(A,I0,A)') 'ERROR: OBST ',NN,' SHAPE requires HEIGHT'
WRITE(MESSAGE,'(A,I0,A)') 'ERROR(603): OBST ',NN,' SHAPE requires HEIGHT.'
CALL SHUTDOWN(MESSAGE,PROCESS_0_ONLY=.FALSE.) ; RETURN
ENDIF
IF (SHAPE_TYPE==OBST_BOX_TYPE .AND. (LENGTH<0._EB .OR. WIDTH<0._EB .OR. HEIGHT<0._EB)) THEN
WRITE(MESSAGE,'(A,I0,A)') 'ERROR: OBST ',NN,' BOX SHAPE requires LENGTH, WIDTH, HEIGHT'
WRITE(MESSAGE,'(A,I0,A)') 'ERROR(604): OBST ',NN,' BOX SHAPE requires LENGTH, WIDTH, HEIGHT.'
CALL SHUTDOWN(MESSAGE,PROCESS_0_ONLY=.FALSE.) ; RETURN
ENDIF
IF (ORIENTATION(1)==0._EB .AND. &
Expand Down Expand Up @@ -10032,15 +10031,15 @@ SUBROUTINE READ_OBST(QUICK_READ)
IF (SURF_ID/='null') THEN
CALL CHECK_SURF_NAME(SURF_ID,EX)
IF (.NOT.EX) THEN
WRITE(MESSAGE,'(A,A,A)') 'ERROR: SURF_ID ',TRIM(SURF_ID),' does not exist'
WRITE(MESSAGE,'(A,A,A)') 'ERROR(605): SURF_ID ',TRIM(SURF_ID),' does not exist.'
CALL SHUTDOWN(MESSAGE,PROCESS_0_ONLY=.FALSE.) ; RETURN
ENDIF
ENDIF

IF (SURF_ID_INTERIOR/='null') THEN
CALL CHECK_SURF_NAME(SURF_ID_INTERIOR,EX)
IF (.NOT.EX) THEN
WRITE(MESSAGE,'(A,A,A)') 'ERROR: SURF_ID_INTERIOR ',TRIM(SURF_ID_INTERIOR),' does not exist'
WRITE(MESSAGE,'(A,A,A)') 'ERROR(606): SURF_ID_INTERIOR ',TRIM(SURF_ID_INTERIOR),' does not exist.'
CALL SHUTDOWN(MESSAGE,PROCESS_0_ONLY=.FALSE.) ; RETURN
ENDIF
ENDIF
Expand All @@ -10049,7 +10048,7 @@ SUBROUTINE READ_OBST(QUICK_READ)
IF (SURF_IDS(NNNN)/='null') THEN
CALL CHECK_SURF_NAME(SURF_IDS(NNNN),EX)
IF (.NOT.EX) THEN
WRITE(MESSAGE,'(A,A,A)') 'ERROR: SURF_ID ',TRIM(SURF_IDS(NNNN)),' does not exist'
WRITE(MESSAGE,'(A,A,A)') 'ERROR(605): SURF_ID ',TRIM(SURF_IDS(NNNN)),' does not exist.'
CALL SHUTDOWN(MESSAGE,PROCESS_0_ONLY=.FALSE.) ; RETURN
ENDIF
ENDIF
Expand All @@ -10059,7 +10058,7 @@ SUBROUTINE READ_OBST(QUICK_READ)
IF (SURF_ID6(NNNN)/='null') THEN
CALL CHECK_SURF_NAME(SURF_ID6(NNNN),EX)
IF (.NOT.EX) THEN
WRITE(MESSAGE,'(A,A,A)') 'ERROR: SURF_ID ',TRIM(SURF_ID6(NNNN)),' does not exist'
WRITE(MESSAGE,'(A,A,A)') 'ERROR(605): SURF_ID ',TRIM(SURF_ID6(NNNN)),' does not exist.'
CALL SHUTDOWN(MESSAGE,PROCESS_0_ONLY=.FALSE.) ; RETURN
ENDIF
ENDIF
Expand Down Expand Up @@ -10175,7 +10174,7 @@ SUBROUTINE READ_OBST(QUICK_READ)
DO IOR=-2,3
IF (IOR==0) CYCLE
IF (OB%SURF_INDEX(IOR)/=OB%SURF_INDEX(-3)) THEN
WRITE(MESSAGE,'(A,A,A)') 'ERROR: OBST ',TRIM(OB%ID),' needs a BULK_DENSITY if it is to BURN_AWAY'
WRITE(MESSAGE,'(A,A,A)') 'ERROR(607): OBST ',TRIM(OB%ID),' needs a BULK_DENSITY if it is to BURN_AWAY.'
CALL SHUTDOWN(MESSAGE,PROCESS_0_ONLY=.FALSE.) ; RETURN
ENDIF
ENDDO
Expand Down Expand Up @@ -10216,7 +10215,7 @@ SUBROUTINE READ_OBST(QUICK_READ)
ENDIF
ENDDO
IF (.NOT.FOUND) THEN
WRITE(MESSAGE,'(A,A,A)') 'ERROR: MATL ', TRIM(MATL_ID(NNN)),' not found'
WRITE(MESSAGE,'(A,A,A)') 'ERROR(608): MATL_ID ', TRIM(MATL_ID(NNN)),' not found.'
CALL SHUTDOWN(MESSAGE,PROCESS_0_ONLY=.FALSE.) ; RETURN
ENDIF
OB%MATL_INDEX(NNN) = NNNN
Expand Down Expand Up @@ -10471,13 +10470,13 @@ SUBROUTINE READ_HOLE
IF (MULT_ID==MR%ID) N_HOLE_NEW = MR%N_COPIES
ENDDO
IF (N_HOLE_NEW==0) THEN
WRITE(MESSAGE,'(A,A,A,I0)') 'ERROR: MULT line ', TRIM(MULT_ID),' not found on HOLE line', N_HOLE_O
WRITE(MESSAGE,'(A,A,A,I0)') 'ERROR(609): MULT_ID ',TRIM(MULT_ID),' not found on HOLE line ',N_HOLE_O
CALL SHUTDOWN(MESSAGE,PROCESS_0_ONLY=.FALSE.) ; RETURN
ENDIF
ENDIF
N_HOLE = N_HOLE + N_HOLE_NEW
2 IF (IOS>0) THEN
WRITE(MESSAGE,'(A,I0,A,I0)') 'ERROR: Problem with HOLE number ',N_HOLE_O+1,', line number ',INPUT_FILE_LINE_NUMBER
WRITE(MESSAGE,'(A,I0,A,I0)') 'ERROR(101): Problem with HOLE number ',N_HOLE_O+1,', line number ',INPUT_FILE_LINE_NUMBER
CALL SHUTDOWN(MESSAGE,PROCESS_0_ONLY=.FALSE.) ; RETURN
ENDIF
ENDDO COUNT_LOOP
Expand Down Expand Up @@ -10521,8 +10520,7 @@ SUBROUTINE READ_HOLE
(TEMP_XB(NN,3) <= XB(4) .AND. TEMP_XB(NN,4) >= XB(3)) .AND. &
(TEMP_XB(NN,5) <= XB(6) .AND. TEMP_XB(NN,6) >= XB(5))) THEN
IF (CONTROLLED(N) .OR. CONTROLLED(NN)) THEN
WRITE(MESSAGE,'(A,I0,A,I0)') 'ERROR: Cannot overlap HOLEs with a DEVC_ID or CTRL_ID. HOLE number ',N_HOLE_O+1,&
', line number ',INPUT_FILE_LINE_NUMBER
WRITE(MESSAGE,'(A,I0,A)') 'ERROR(610): HOLE number ',N_HOLE_O+1,' Cannot overlap HOLEs with a DEVC or CTRL_ID.'
CALL SHUTDOWN(MESSAGE,PROCESS_0_ONLY=.FALSE.) ; RETURN
ENDIF
ENDIF
Expand Down

0 comments on commit 9aff239

Please sign in to comment.