!-------------------------------BEGIN ADD---------------------------------
!Insert model-level declarations here, if any

!-----
CONTAINS !the following procedures...
!-----
!Insert procedures here, if any

!-------------------------------------------------------------------------

SUBROUTINE UpdatePerDiemFixedCosts(bigSur)
INTEGER(big):: bigSur
!-----
!Add per diem costs for each new day
DO
  IF(@D.Time <= @D.DayMark + $D.Epsilon)EXIT
  @D.DayMark = @D.DayMark + 24.
  &D.FixedCosts = &D.FixedCosts + &D.DailyFixedCost
END DO
!-----
END SUBROUTINE UpdatePerDiemFixedCosts
!--------------------------------END ADD----------------------------------