Skip to content

Commit

Permalink
Merge pull request #8113 from mcgratta/master
Browse files Browse the repository at this point in the history
FDS Source: Fix bug initializing CHI_R
  • Loading branch information
mcgratta authored Mar 6, 2020
2 parents 623146c + 438fc1e commit bfaa110
Showing 1 changed file with 5 additions and 1 deletion.
6 changes: 5 additions & 1 deletion Source/init.f90
Original file line number Diff line number Diff line change
Expand Up @@ -291,7 +291,11 @@ SUBROUTINE INITIALIZE_MESH_VARIABLES_1(DT,NM)
IF (.NOT.EVACUATION_ONLY(NM)) THEN
ALLOCATE(M%CHI_R(0:IBP1,0:JBP1,0:KBP1),STAT=IZERO)
CALL ChkMemErr('INIT','QR',IZERO)
M%CHI_R = MAX(0._EB,RADIATIVE_FRACTION*EVALUATE_RAMP(T_BEGIN,0._EB,REACTION(1)%RAMP_CHI_R_INDEX))
IF (N_REACTIONS>0) THEN
M%CHI_R = MAX(0._EB,RADIATIVE_FRACTION*EVALUATE_RAMP(T_BEGIN,0._EB,REACTION(1)%RAMP_CHI_R_INDEX))
ELSE
M%CHI_R = MAX(0._EB,RADIATIVE_FRACTION)
ENDIF
ALLOCATE(M%QR(0:IBP1,0:JBP1,0:KBP1),STAT=IZERO)
CALL ChkMemErr('INIT','QR',IZERO)
M%QR = 0._EB
Expand Down

0 comments on commit bfaa110

Please sign in to comment.