parse_simulation Subroutine

private subroutine parse_simulation(table, error)

parse simulation information

Arguments

Type IntentOptional Attributes Name
type(toml_table), intent(inout) :: table

Input Toml table

type(toml_error), intent(out), allocatable :: error

Error message


Source Code

    subroutine parse_simulation(table, error)
        !! parse simulation information
        use sim_state_mod, only : state

        !> Input Toml table 
        type(toml_table),              intent(inout) :: table
        !> Error message
        type(toml_error), allocatable, intent(out)   :: error

        type(toml_table), pointer :: child

        call get_value(table, "simulation", child)

        if(associated(child))then
            call get_value(child, "iseed", state%iseed, 123456789)
            call get_value(child, "tev", state%tev, .false.)
            call get_value(child, "absorb", state%absorb, .false.)

            call get_value(child, "load_checkpoint", state%loadckpt, .false.)
            call get_value(child, "checkpoint_file", state%ckptfile, "check.ckpt")
            call get_value(child, "checkpoint_every_n", state%ckptfreq, 1000000)

        else
            call make_error(error, "Need simulation table in input param file", -1)
            return
        end if

    end subroutine parse_simulation