mf6filestoinputmodule Module Reference

This module contains the Mf6FileStoInputModule. More...

Data Types
type	stoinputtype
	STO package loader. More...

Functions/Subroutines
subroutine	sto_init (this, mf6_input, component_name, component_input_name, input_name, iperblock, parser, iout)
subroutine	sto_rp (this, parser)
subroutine	sto_destroy (this)

Detailed Description

This module contains the routines for reading STO period block input

Function/Subroutine Documentation

sto_destroy()

subroutine mf6filestoinputmodule::sto_destroy

(

class(stoinputtype), intent(inout)

this

)

Definition at line 106 of file Mf6FileStoInput.f90.

    use memorymanagermodule, only: mem_deallocate
    class(StoInputType), intent(inout) :: this
    call mem_deallocate(this%storage, 'STORAGE', this%mf6_input%mempath)
    call this%DynamicPkgLoadType%destroy()

sto_init()

subroutine mf6filestoinputmodule::sto_init ( class(stoinputtype), intent(inout)  this, type(modflowinputtype), intent(in)  mf6_input, character(len=*), intent(in)  component_name, character(len=*), intent(in)  component_input_name, character(len=*), intent(in)  input_name, integer(i4b), intent(in)  iperblock, type(blockparsertype), intent(inout), pointer  parser, integer(i4b), intent(in)  iout  )

private

Definition at line 32 of file Mf6FileStoInput.f90.

    use memorymanagerextmodule, only: mem_set_value
    use blockparsermodule, only: blockparsertype
    use loadmf6filemodule, only: loadmf6filetype
    class(StoInputType), intent(inout) :: this
    type(ModflowInputType), intent(in) :: mf6_input
    character(len=*), intent(in) :: component_name
    character(len=*), intent(in) :: component_input_name
    character(len=*), intent(in) :: input_name
    integer(I4B), intent(in) :: iperblock
    type(BlockParserType), pointer, intent(inout) :: parser
    integer(I4B), intent(in) :: iout
    type(LoadMf6FileType) :: loader
    !
    ! -- init loader
    call this%DynamicPkgLoadType%init(mf6_input, component_name, &
                                      component_input_name, input_name, &
                                      iperblock, iout)
    !
    ! -- initialize static loader
    call loader%load(parser, mf6_input, this%nc_vars, this%input_name, iout)
    !
    ! -- allocate storage string
    call mem_allocate(this%storage, linelength, 'STORAGE', this%mf6_input%mempath)
    !
    ! -- initialize storage to TRANSIENT (model iss=0)
    this%storage = 'TRANSIENT'

sto_rp()

subroutine mf6filestoinputmodule::sto_rp	(	class(stoinputtype), intent(inout)	this,
		type(blockparsertype), intent(inout), pointer	parser
	)

Definition at line 62 of file Mf6FileStoInput.f90.

    ! -- modules
    use blockparsermodule, only: blockparsertype
    use definitionselectmodule, only: get_param_definition_type
    use idmloggermodule, only: idm_log_header, idm_log_close, idm_log_var
    ! -- dummy
    class(StoInputType), intent(inout) :: this
    type(BlockParserType), pointer, intent(inout) :: parser
    ! -- local
    character(len=LINELENGTH) :: tagname
    type(InputParamDefinitionType), pointer :: idt
    logical(LGP) :: endOfBlock
    !
    ! -- read next line
    call parser%GetNextLine(endofblock)
    !
    ! -- return if no input
    if (endofblock) return
    !
    ! -- read the tag
    call parser%GetStringCaps(tagname)
    !
    ! -- verify tag is supported
    idt => get_param_definition_type(this%mf6_input%param_dfns, &
                                     this%mf6_input%component_type, &
                                     this%mf6_input%subcomponent_type, &
                                     'PERIOD', tagname, this%input_name)
    ! -- set storage
    this%storage = idt%tagname
    !
    ! -- only one input line is expected, terminate block
    call parser%terminateblock()
    !
    ! -- log lst file header
    call idm_log_header(this%mf6_input%component_name, &
                        this%mf6_input%subcomponent_name, this%iout)
    !
    call idm_log_var(this%storage, tagname, this%mf6_input%mempath, this%iout)
    !
    ! -- close logging statement
    call idm_log_close(this%mf6_input%component_name, &
                       this%mf6_input%subcomponent_name, this%iout)

Here is the call graph for this function: