re-inserted line deleted with obsolescent block geom_axis%r

src-f90/copy_itm_v4_10b_to_ids_v3.39.0-4.11.6-2020b_equilibrium.f90

@@ -164,6 +164,7 @@ subroutine copy_itm_to_ids_equilibrium(equil_in_itm,equil_out_ids,flag_status,ex
     allocate(equil_out_ids%time_slice(it)%boundary%outline%z(nb_points))
     equil_out_ids%time_slice(it)%boundary%outline%z(1:nb_points) = equil_in_itm(it)%eqgeometry%boundary(1)%z(1:nb_points)
     equil_out_ids%time_slice(it)%boundary%psi_norm = equil_in_itm(it)%global_param%psi_bound ! since value at separatrix not known, may need to use namelist choice for shaving
+    equil_out_ids%time_slice(it)%boundary%geometric_axis%r = equil_in_itm(it)%eqgeometry%geom_axis%r
     equil_out_ids%time_slice(it)%boundary%geometric_axis%z = equil_in_itm(it)%eqgeometry%geom_axis%z
     equil_out_ids%time_slice(it)%boundary%minor_radius = equil_in_itm(it)%eqgeometry%a_minor
     equil_out_ids%time_slice(it)%boundary%elongation = equil_in_itm(it)%eqgeometry%elongation