init_fields_radial_variation Subroutine