diff --git a/Source/read.f90 b/Source/read.f90 index d853e80aca7..54b5b70f1ea 100644 --- a/Source/read.f90 +++ b/Source/read.f90 @@ -10203,7 +10203,8 @@ SUBROUTINE READ_RAMP DO I=1,RP%NUMBER_INTERPOLATION_POINTS-1 TM = RP%INDEPENDENT_DATA(1) + REAL(I,EB)/RP%RDT TLOOP: DO II=1,RP%NUMBER_DATA_POINTS-1 - IF ((RP%INDEPENDENT_DATA(II+1)-RP%INDEPENDENT_DATA(II))*RP%RDT < 1._EB) DT_WARNING = .TRUE. + IF ((RP%INDEPENDENT_DATA(II+1)-RP%INDEPENDENT_DATA(II))*RP%RDT < 1._EB .AND. & + TRIM(RP%ID)/='RSRVD TEMPERATURE PROFILE' .AND. TRIM(RP%ID)/='RSRVD VELOCITY PROFILE' ) DT_WARNING = .TRUE. IF (TM>=RP%INDEPENDENT_DATA(II) .AND. TM