File tree Expand file tree Collapse file tree 1 file changed +2
-1
lines changed Expand file tree Collapse file tree 1 file changed +2
-1
lines changed Original file line number Diff line number Diff line change @@ -10203,7 +10203,8 @@ SUBROUTINE READ_RAMP
10203
10203
DO I=1,RP%NUMBER_INTERPOLATION_POINTS-1
10204
10204
TM = RP%INDEPENDENT_DATA(1) + REAL(I,EB)/RP%RDT
10205
10205
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.
10207
10208
IF (TM>=RP%INDEPENDENT_DATA(II) .AND. TM<RP%INDEPENDENT_DATA(II+1)) THEN
10208
10209
RP%INTERPOLATED_DATA(I) = RP%DEPENDENT_DATA(II) + (TM-RP%INDEPENDENT_DATA(II)) * &
10209
10210
(RP%DEPENDENT_DATA(II+1)-RP%DEPENDENT_DATA(II))/(RP%INDEPENDENT_DATA(II+1)-RP%INDEPENDENT_DATA(II))
You can’t perform that action at this time.
0 commit comments