Skip to content

FDS Source: add masking of undefined values for node interpolation of… #13918

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
ericvmueller merged 1 commit into from
Dec 18, 2024
Merged

FDS Source: add masking of undefined values for node interpolation of… #13918

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
7 changes: 7 additions & 0 deletions Source/dump.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -10348,6 +10348,12 @@ SUBROUTINE DUMP_BNDF(T,DT,NM)
! Interpolate the boundary quantity PP at cell corners, PPN

IF (.NOT.BF%CELL_CENTERED) THEN

! Dont include undetermined values in interpolation for FIRE ARRIVAL TIME
IF (OUTPUT_QUANTITY(BF%INDEX)%NAME=='FIRE ARRIVAL TIME') THEN
WHERE(PP>9.E5_FB) IBK=0
ENDIF

DO N=N1-1,N2
DO L=L1-1,L2
IF (IBK(L,N)==1) PPN(L,N) = PPN(L,N) + PP(L,N)
Expand All @@ -10360,6 +10366,7 @@ SUBROUTINE DUMP_BNDF(T,DT,NM)
ELSE
PPN(L,N) = REAL(SOLID_PHASE_OUTPUT(IND,BF%Y_INDEX,BF%Z_INDEX,BF%PART_INDEX,OPT_WALL_INDEX=0,&
OPT_BNDF_INDEX=NF),FB)
IF (OUTPUT_QUANTITY(BF%INDEX)%NAME=='FIRE ARRIVAL TIME') PPN(L,N) = 1.E6_FB
ENDIF
ENDDO
ENDDO
Expand Down
Loading