write_collisions_config Subroutine

private subroutine write_collisions_config(self, unit)

Writes out a namelist representing the current state of the config object

Type Bound

collisions_config_type

Arguments

Type IntentOptional Attributes Name
class(collisions_config_type), intent(in) :: self
integer, intent(in), optional :: unit

Contents


Source Code

  subroutine write_collisions_config(self, unit)
    implicit none
    class(collisions_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("adjust", self%adjust, unit_internal)
    call self%write_key_val("cfac", self%cfac, unit_internal)
    call self%write_key_val("collision_model", self%collision_model, unit_internal)
    call self%write_key_val("conservative", self%conservative, unit_internal)
    call self%write_key_val("conserve_forbid_zero", self%conserve_forbid_zero, unit_internal)
    call self%write_key_val("conserve_moments", self%conserve_moments, unit_internal)
    call self%write_key_val("const_v", self%const_v, unit_internal)
    call self%write_key_val("ediff_scheme", self%ediff_scheme, unit_internal)
    call self%write_key_val("ei_coll_only", self%ei_coll_only, unit_internal)
    call self%write_key_val("etol", self%etol, unit_internal)
    call self%write_key_val("etola", self%etola, unit_internal)
    call self%write_key_val("ewindow", self%ewindow, unit_internal)
    call self%write_key_val("ewindowa", self%ewindowa, unit_internal)
    call self%write_key_val("force_collisions", self%force_collisions, unit_internal)
    call self%write_key_val("heating", self%heating, unit_internal)
    call self%write_key_val("hypermult", self%hypermult, unit_internal)
    call self%write_key_val("lorentz_scheme", self%lorentz_scheme, unit_internal)
    call self%write_key_val("ncheck", self%ncheck, unit_internal)
    call self%write_key_val("resistivity", self%resistivity, unit_internal)
    call self%write_key_val("special_wfb_lorentz", self%special_wfb_lorentz, unit_internal)
    call self%write_key_val("split_collisions", self%split_collisions, unit_internal)
    call self%write_key_val("test", self%test, unit_internal)
    call self%write_key_val("timesteps_between_collisions", self%timesteps_between_collisions, unit_internal)
    call self%write_key_val("use_le_layout", self%use_le_layout, unit_internal)
    call self%write_key_val("vary_vnew", self%vary_vnew, unit_internal)
    call self%write_key_val("vnfac", self%vnfac, unit_internal)
    call self%write_key_val("vnslow", self%vnslow, unit_internal)
    call self%write_key_val("vpar_zero_mean", self%vpar_zero_mean, unit_internal)
    call self%write_namelist_footer(unit_internal)
  end subroutine write_collisions_config