broadcast_init_g_config Subroutine

private subroutine broadcast_init_g_config(self)

Uses

Broadcasts all config parameters so object is populated identically on all processors

Type Bound

init_g_config_type

Arguments

Type IntentOptional Attributes Name
class(init_g_config_type), intent(inout) :: self

Contents


Source Code

  subroutine broadcast_init_g_config(self)
    use mp, only: broadcast
    implicit none
    class(init_g_config_type), intent(in out) :: self
    call broadcast(self%a0)
    call broadcast(self%adj_spec)
    call broadcast(self%apar0)
    call broadcast(self%aparamp)
    call broadcast(self%b0)
    call broadcast(self%chop_side)
    call broadcast(self%clean_init)
    call broadcast(self%constant_random_flag)
    call broadcast(self%den0)
    call broadcast(self%den1)
    call broadcast(self%den2)
    call broadcast(self%dphiinit)
    call broadcast(self%eq_mode_n)
    call broadcast(self%eq_mode_u)
    call broadcast(self%eq_type)
    call broadcast(self%even)
    call broadcast(self%ginit_option)
    call broadcast(self%ikk)
    call broadcast(self%ikkk)
    call broadcast(self%ikpar_init)
    call broadcast(self%ikx_init)
    call broadcast(self%imfac)
    call broadcast(self%include_explicit_source_in_restart)
    call broadcast(self%initial_condition_is_nonadiabatic_dfn)
    call broadcast(self%input_check_recon)
    call broadcast(self%itt)
    call broadcast(self%ittt)
    call broadcast(self%kpar_init)
    call broadcast(self%left)
    call broadcast(self%max_mode)
    call broadcast(self%new_field_init)
    call broadcast(self%null_apar)
    call broadcast(self%null_bpar)
    call broadcast(self%null_phi)
    call broadcast(self%phiamp)
    call broadcast(self%phifrac)
    call broadcast(self%phiinit)
    call broadcast(self%phiinit0)
    call broadcast(self%phiinit_rand)
    call broadcast(self%proc_to_save_fields)
    call broadcast(self%prof_width)
    call broadcast(self%read_many)
    call broadcast(self%refac)
    call broadcast(self%restart_dir)
    call broadcast(self%restart_eig_id)
    call broadcast(self%restart_file)
    call broadcast(self%scale)
    call broadcast(self%tpar0)
    call broadcast(self%tpar1)
    call broadcast(self%tpar2)
    call broadcast(self%tperp0)
    call broadcast(self%tperp1)
    call broadcast(self%tperp2)
    call broadcast(self%tstart)
    call broadcast(self%ukxy_pt)
    call broadcast(self%upar0)
    call broadcast(self%upar1)
    call broadcast(self%upar2)
    call broadcast(self%width0)
    call broadcast(self%zf_init)

    call broadcast(self%exist)
  end subroutine broadcast_init_g_config