mf6filesettingloadmodule Module Reference

This module contains the Mf6FileSettingLoadModule. More...

Data Types
type	idtptrtype
	Pointer type for read state variable. More...
type	settingloadtype
	Setting package loader. More...

Functions/Subroutines
subroutine	oc_init (this, mf6_input, component_name, component_input_name, input_name, iperblock, parser, iout)
subroutine	df (this)
subroutine	rp (this, parser)
subroutine	reset (this)
subroutine	destroy (this)

Detailed Description

This module contains the routines for reading a dfn setting with multiple tokens into a single CharacterStringType array using the StructArrayType.

Preceding param columns can be configured per package (e.g. OC)

Function/Subroutine Documentation

destroy()

subroutine mf6filesettingloadmodule::destroy ( class(settingloadtype), intent(inout)  this )

private

Definition at line 144 of file Mf6FileSetting.f90.

    use memorymanagermodule, only: mem_deallocate
    class(SettingLoadType), intent(inout) :: this
    integer(I4B) :: icol
 
    if (associated(this%structarray)) then
      ! destroy the structured array reader
      call destructstructarray(this%structarray)
    end if
 
    do icol = 1, size(this%idts)
      ! allocate variable in memory manager
      deallocate (this%idts(icol)%idt)
      nullify (this%idts(icol)%idt)
    end do
 
    call this%DynamicPkgLoadType%destroy()

Here is the call graph for this function:

df()

subroutine mf6filesettingloadmodule::df

(

class(settingloadtype), intent(inout)

this

)

Definition at line 108 of file Mf6FileSetting.f90.

    class(SettingLoadType), intent(inout) :: this

oc_init()

subroutine mf6filesettingloadmodule::oc_init ( class(settingloadtype), 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 49 of file Mf6FileSetting.f90.

    use definitionselectmodule, only: idt_default
    use loadmf6filemodule, only: loadmf6filetype
    class(SettingLoadType), 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
    integer(I4B) :: nparam, icol
 
    ! 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)
 
    ! create and allocate load context
    call this%ctx%init(mf6_input)
    call this%ctx%allocate_arrays()
 
    ! set nparam
    nparam = 1
    select case (mf6_input%subcomponent_type)
    case ('OC')
      nparam = nparam + 2
    case default
    end select
 
    ! allocate idts
    allocate (this%idts(nparam))
 
    ! set leading idts
    select case (mf6_input%subcomponent_type)
    case ('OC')
      this%idts(1)%idt => &
        idt_default(mf6_input%component_type, mf6_input%subcomponent_type, &
                    'PERIOD', 'OCACTION', 'OCACTION', 'STRING')
      this%idts(2)%idt => &
        idt_default(mf6_input%component_type, mf6_input%subcomponent_type, &
                    'PERIOD', 'RTYPE', 'RTYPE', 'STRING')
      icol = 3
    case default
      icol = 1
    end select
 
    ! set setting idt
    this%idts(icol)%idt => &
      idt_default(mf6_input%component_type, mf6_input%subcomponent_type, &
                  'PERIOD', 'SETTING', 'SETTING', 'STRING')
    ! force all setting tokens to be read
    this%idts(icol)%idt%shape = 'LINELENGTH'

Here is the call graph for this function:

reset()

subroutine mf6filesettingloadmodule::reset ( class(settingloadtype), intent(inout)  this )

private

Definition at line 124 of file Mf6FileSetting.f90.

    class(SettingLoadType), intent(inout) :: this
    integer(I4B) :: icol
 
    if (associated(this%structarray)) then
      ! destroy the structured array reader
      call destructstructarray(this%structarray)
    end if
 
    ! construct and set up the struct array object
    this%structarray => constructstructarray(this%mf6_input, size(this%idts), &
                                             -1, 0, this%mf6_input%mempath, &
                                             this%mf6_input%component_mempath)
    ! set up struct array
    do icol = 1, size(this%idts)
      ! allocate variable in memory manager
      call this%structarray%mem_create_vector(icol, this%idts(icol)%idt)
    end do

Here is the call graph for this function:

rp()

subroutine mf6filesettingloadmodule::rp ( class(settingloadtype), intent(inout)  this, type(blockparsertype), intent(inout), pointer  parser  )

private

Definition at line 112 of file Mf6FileSetting.f90.

    class(SettingLoadType), intent(inout) :: this
    type(BlockParserType), pointer, intent(inout) :: parser
 
    ! recreate structarray for period load
    call this%reset()
 
    ! read from ascii
    this%ctx%nbound = &
      this%structarray%read_from_parser(parser, .false., this%iout)