real, dimension(ntb_ark), parameter, private module_mp_thompson::ta_ka = (/0.2, 0.4, 0.6, 0.8/)

private