Skip to content

Commit fe2fbee

Browse files
authored
Merge pull request #13976 from drjfloyd/master
FDS Source: Don't check spacing for MO RAMPs. Issue #13975
2 parents e5bc376 + 4c307c1 commit fe2fbee

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

Source/read.f90

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10203,7 +10203,8 @@ SUBROUTINE READ_RAMP
1020310203
DO I=1,RP%NUMBER_INTERPOLATION_POINTS-1
1020410204
TM = RP%INDEPENDENT_DATA(1) + REAL(I,EB)/RP%RDT
1020510205
TLOOP: DO II=1,RP%NUMBER_DATA_POINTS-1
10206-
IF ((RP%INDEPENDENT_DATA(II+1)-RP%INDEPENDENT_DATA(II))*RP%RDT < 1._EB) DT_WARNING = .TRUE.
10206+
IF ((RP%INDEPENDENT_DATA(II+1)-RP%INDEPENDENT_DATA(II))*RP%RDT < 1._EB .AND. &
10207+
TRIM(RP%ID)/='RSRVD TEMPERATURE PROFILE' .AND. TRIM(RP%ID)/='RSRVD VELOCITY PROFILE' ) DT_WARNING = .TRUE.
1020710208
IF (TM>=RP%INDEPENDENT_DATA(II) .AND. TM<RP%INDEPENDENT_DATA(II+1)) THEN
1020810209
RP%INTERPOLATED_DATA(I) = RP%DEPENDENT_DATA(II) + (TM-RP%INDEPENDENT_DATA(II)) * &
1020910210
(RP%DEPENDENT_DATA(II+1)-RP%DEPENDENT_DATA(II))/(RP%INDEPENDENT_DATA(II+1)-RP%INDEPENDENT_DATA(II))

0 commit comments

Comments
 (0)