Skip to content

Commit

Permalink
FDS Source: prior commit staged file before saving latest edit
Browse files Browse the repository at this point in the history
  • Loading branch information
drjfloyd committed Nov 12, 2024
1 parent 8dbeb1b commit 1e59d18
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion Source/hvac.f90
Original file line number Diff line number Diff line change
Expand Up @@ -1889,7 +1889,7 @@ SUBROUTINE DPSTARCALC
IF (IPZ==IOPZ) CYCLE
IF (P_ZONE(IOPZ)%N_DUCTNODES==0) CYCLE
IF (CONNECTED_ZONES(IPZ,IOPZ,1)) THEN
IF (P_ZONE(IPOZ)%N_DUCTNODES==0) CYCLE
IF (P_ZONE(IOPZ)%N_DUCTNODES==0) CYCLE
DPSTAR(IOPZ) = DPSTAR(IOPZ) - DN%DIR(1) * DU%AREA * DU%VEL(OLD) * DT_HV/PSUM_TOT(IPZ)
IF (DU%FIXED) DPSTAR(IOPZ) = DPSTAR(IOPZ) + DN%DIR(1) * DU%AREA * DU%VEL(NEW) * DT_HV/PSUM_TOT(IPZ)
ENDIF
Expand Down

0 comments on commit 1e59d18

Please sign in to comment.