write_nonlinear_terms_config Subroutine

private subroutine write_nonlinear_terms_config(self, unit)

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

Type Bound

nonlinear_terms_config_type

Arguments

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

Contents


Source Code

  subroutine write_nonlinear_terms_config(self, unit)
    implicit none
    class(nonlinear_terms_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("cfl", self%cfl, unit_internal)
    call self%write_key_val("densfac", self%densfac, unit_internal)
    call self%write_key_val("error_target", self%error_target, unit_internal)
    call self%write_key_val("include_apar", self%include_apar, unit_internal)
    call self%write_key_val("include_bpar", self%include_bpar, unit_internal)
    call self%write_key_val("include_phi", self%include_phi, unit_internal)
    call self%write_key_val("istep_error_start", self%istep_error_start, unit_internal)
    call self%write_key_val("nl_forbid_force_zero", self%nl_forbid_force_zero, unit_internal)
    call self%write_key_val("nonlinear_mode", self%nonlinear_mode, unit_internal)
    call self%write_key_val("qparfac", self%qparfac, unit_internal)
    call self%write_key_val("qprpfac", self%qprpfac, unit_internal)
    call self%write_key_val("split_nonlinear", self%split_nonlinear, unit_internal)
    call self%write_key_val("tparfac", self%tparfac, unit_internal)
    call self%write_key_val("tprpfac", self%tprpfac, unit_internal)
    call self%write_key_val("uparfac", self%uparfac, unit_internal)
    call self%write_key_val("use_cfl_limit", self%use_cfl_limit, unit_internal)
    call self%write_key_val("use_order_based_error", self%use_order_based_error, unit_internal)
    call self%write_key_val("zip", self%zip, unit_internal)
    call self%write_namelist_footer(unit_internal)
  end subroutine write_nonlinear_terms_config