Skip to content

Commit 29e0f4e

Browse files
committed
FDS Source: Fix line length
1 parent 7249aef commit 29e0f4e

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

Source/dump.f90

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10183,7 +10183,8 @@ SUBROUTINE DUMP_HVAC(T)
1018310183
DO NNN=1,DUCT(N)%N_CELLS
1018410184
DO NN = 1, N_DUCT_QUANTITY
1018510185
HQT=>DUCT_QUANTITY_ARRAY(NN)
10186-
OUTVAL_D(NN) = REAL(HVAC_OUTPUT(HVAC_SMV_EQUIVALENCE(HQT%OUTPUT_INDEX),HQT%Y_INDEX,HQT%Z_INDEX,N,NODE_INDEX,NNN,HQT%DRY),FB)
10186+
OUTVAL_D(NN) = REAL(HVAC_OUTPUT(HVAC_SMV_EQUIVALENCE(HQT%OUTPUT_INDEX),HQT%Y_INDEX,HQT%Z_INDEX,N,NODE_INDEX,NNN,&
10187+
HQT%DRY),FB)
1018710188
ENDDO
1018810189
WRITE(LU_HVAC) OUTVAL_D
1018910190
ENDDO

0 commit comments

Comments
 (0)