subroutine set_itv_119(ratio) use physics_variables, only: tesep implicit none real(kind(1.d0)) :: ratio tesep = ratio end subroutine set_itv_119