subroutine set_itv_162(ratio) use build_variables, only: r_cp_top real(kind(1.d0)) :: ratio r_cp_top = ratio end subroutine set_itv_162