diff --git a/Software/MOHIDWater/ModuleWaterProperties.F90 b/Software/MOHIDWater/ModuleWaterProperties.F90 index 31eddfddc..ebc52e278 100644 --- a/Software/MOHIDWater/ModuleWaterProperties.F90 +++ b/Software/MOHIDWater/ModuleWaterProperties.F90 @@ -4399,21 +4399,13 @@ subroutine Construct_Time_Serie end do end do end do - - call SetBivalveTimeSeries(Me%ObjBivalve, & - Me%Output%BivalveTimeSeriesIndex, & - Me%Output%BivalveTimeSeriesNames, & - STAT = STAT_CALL) - if (STAT_CALL /= SUCCESS_) call CloseAllAndStop ('Construct_Time_Serie - ModuleWaterProperties - ERR130') - endif - - - - enddo - - + call SetBivalveTimeSeries(Me%ObjBivalve, & + Me%Output%BivalveTimeSeriesIndex, & + Me%Output%BivalveTimeSeriesNames, & + STAT = STAT_CALL) + if (STAT_CALL /= SUCCESS_) call CloseAllAndStop ('Construct_Time_Serie - ModuleWaterProperties - ERR130') endif end subroutine Construct_Time_Serie