write_init_g_config Subroutine

  subroutine write_init_g_config(self, unit)
    implicit none
    class(init_g_config_type), intent(in) :: self
    integer, intent(in) , optional:: unit
    integer :: unit_internal

    unit_internal = 6 ! @todo -- get stdout from file_utils
    if (present(unit)) then
       unit_internal = unit
    endif

    call self%write_namelist_header(unit_internal)
    call self%write_key_val("a0", self%a0, unit_internal)
    call self%write_key_val("adj_spec", self%adj_spec, unit_internal)
    call self%write_key_val("apar0", self%apar0, unit_internal)
    call self%write_key_val("aparamp", self%aparamp, unit_internal)
    call self%write_key_val("b0", self%b0, unit_internal)
    call self%write_key_val("chop_side", self%chop_side, unit_internal)
    call self%write_key_val("clean_init", self%clean_init, unit_internal)
    call self%write_key_val("constant_random_flag", self%constant_random_flag, unit_internal)
    call self%write_key_val("den0", self%den0, unit_internal)
    call self%write_key_val("den1", self%den1, unit_internal)
    call self%write_key_val("den2", self%den2, unit_internal)
    call self%write_key_val("dphiinit", self%dphiinit, unit_internal)
    call self%write_key_val("eq_mode_n", self%eq_mode_n, unit_internal)
    call self%write_key_val("eq_mode_u", self%eq_mode_u, unit_internal)
    call self%write_key_val("eq_type", self%eq_type, unit_internal)
    call self%write_key_val("even", self%even, unit_internal)
    call self%write_key_val("ginit_option", self%ginit_option, unit_internal)
    call self%write_key_val("ikk", self%ikk, unit_internal)
    call self%write_key_val("ikkk", self%ikkk, unit_internal)
    call self%write_key_val("ikpar_init", self%ikpar_init, unit_internal)
    call self%write_key_val("ikx_init", self%ikx_init, unit_internal)
    call self%write_key_val("imfac", self%imfac, unit_internal)
    call self%write_key_val("include_explicit_source_in_restart", self%include_explicit_source_in_restart, unit_internal)
    call self%write_key_val("initial_condition_is_nonadiabatic_dfn", self%initial_condition_is_nonadiabatic_dfn, unit_internal)
    call self%write_key_val("input_check_recon", self%input_check_recon, unit_internal)
    call self%write_key_val("itt", self%itt, unit_internal)
    call self%write_key_val("ittt", self%ittt, unit_internal)
    call self%write_key_val("kpar_init", self%kpar_init, unit_internal)
    call self%write_key_val("left", self%left, unit_internal)
    call self%write_key_val("max_mode", self%max_mode, unit_internal)
    call self%write_key_val("new_field_init", self%new_field_init, unit_internal)
    call self%write_key_val("null_apar", self%null_apar, unit_internal)
    call self%write_key_val("null_bpar", self%null_bpar, unit_internal)
    call self%write_key_val("null_phi", self%null_phi, unit_internal)
    call self%write_key_val("phiamp", self%phiamp, unit_internal)
    call self%write_key_val("phifrac", self%phifrac, unit_internal)
    call self%write_key_val("phiinit", self%phiinit, unit_internal)
    call self%write_key_val("phiinit0", self%phiinit0, unit_internal)
    call self%write_key_val("phiinit_rand", self%phiinit_rand, unit_internal)
    call self%write_key_val("proc_to_save_fields", self%proc_to_save_fields, unit_internal)
    call self%write_key_val("prof_width", self%prof_width, unit_internal)
    call self%write_key_val("read_many", self%read_many, unit_internal)
    call self%write_key_val("refac", self%refac, unit_internal)
    call self%write_key_val("restart_dir", self%restart_dir, unit_internal)
    call self%write_key_val("restart_eig_id", self%restart_eig_id, unit_internal)
    call self%write_key_val("restart_file", self%restart_file, unit_internal)
    call self%write_key_val("scale", self%scale, unit_internal)
    call self%write_key_val("tpar0", self%tpar0, unit_internal)
    call self%write_key_val("tpar1", self%tpar1, unit_internal)
    call self%write_key_val("tpar2", self%tpar2, unit_internal)
    call self%write_key_val("tperp0", self%tperp0, unit_internal)
    call self%write_key_val("tperp1", self%tperp1, unit_internal)
    call self%write_key_val("tperp2", self%tperp2, unit_internal)
    call self%write_key_val("tstart", self%tstart, unit_internal)
    call self%write_key_val("ukxy_pt", self%ukxy_pt, unit_internal)
    call self%write_key_val("upar0", self%upar0, unit_internal)
    call self%write_key_val("upar1", self%upar1, unit_internal)
    call self%write_key_val("upar2", self%upar2, unit_internal)
    call self%write_key_val("width0", self%width0, unit_internal)
    call self%write_key_val("zf_init", self%zf_init, unit_internal)
    call self%write_namelist_footer(unit_internal)
  end subroutine write_init_g_config