definitionselectmodule Module Reference

This module contains the DefinitionSelectModule. More...

Functions/Subroutines
subroutine, public	idt_parse_rectype (idt, cols, ncol)
	allocate and set RECARRAY, KEYSTRING or RECORD param list More...
character(len=linelength) function, public	idt_datatype (idt)
	return input definition type datatype More...
type(inputparamdefinitiontype) function, pointer, public	get_param_definition_type (input_definition_types, component_type, subcomponent_type, blockname, tagname, filename)
	Return parameter definition. More...
type(inputparamdefinitiontype) function, pointer, public	get_aggregate_definition_type (input_definition_types, component_type, subcomponent_type, blockname)
	Return aggregate definition. More...
subroutine, public	split_record_definition (input_definition_types, component_type, subcomponent_type, tagname, nwords, words)
	Return aggregate definition. More...

Detailed Description

This module contains the routines for getting parameter definitions, aggregate definitions, and block definitions for the different package types.

Function/Subroutine Documentation

get_aggregate_definition_type()

type(inputparamdefinitiontype) function, pointer, public definitionselectmodule::get_aggregate_definition_type	(	type(inputparamdefinitiontype), dimension(:), intent(in), target	input_definition_types,
		character(len=*), intent(in)	component_type,
		character(len=*), intent(in)	subcomponent_type,
		character(len=*), intent(in)	blockname
	)

Parameters

[in]	component_type	component type, such as GWF or GWT
[in]	subcomponent_type	subcomponent type, such as DIS or NPF
[in]	blockname	name of the block

Returns

corresponding InputParameterDefinitionType for this block

Definition at line 132 of file DefinitionSelect.f90.

    type(InputParamDefinitionType), dimension(:), intent(in), target :: &
      input_definition_types
    character(len=*), intent(in) :: component_type !< component type, such as GWF or GWT
    character(len=*), intent(in) :: subcomponent_type !< subcomponent type, such as DIS or NPF
    character(len=*), intent(in) :: blockname !< name of the block
    type(InputParamDefinitionType), pointer :: idt !< corresponding InputParameterDefinitionType for this block
    type(InputParamDefinitionType), pointer :: tmp_ptr
    integer(I4B) :: i
    !
    nullify (idt)
    do i = 1, size(input_definition_types)
      tmp_ptr => input_definition_types(i)
      if (tmp_ptr%component_type == component_type .and. &
          tmp_ptr%subcomponent_type == subcomponent_type .and. &
          tmp_ptr%blockname == blockname) then
        idt => input_definition_types(i)
        exit
      end if
    end do
    !
    if (.not. associated(idt)) then
      write (errmsg, '(a,a,a,a,a,a,a)') &
        'Idm aggregate definition not found: ', trim(blockname), &
        '. Component="', trim(component_type), &
        '", subcomponent="', trim(subcomponent_type), '".'
      call store_error(errmsg, .true.)
    end if

Here is the call graph for this function:

Here is the caller graph for this function:

get_param_definition_type()

type(inputparamdefinitiontype) function, pointer, public definitionselectmodule::get_param_definition_type	(	type(inputparamdefinitiontype), dimension(:), intent(in), target	input_definition_types,
		character(len=*), intent(in)	component_type,
		character(len=*), intent(in)	subcomponent_type,
		character(len=*), intent(in)	blockname,
		character(len=*), intent(in)	tagname,
		character(len=*), intent(in)	filename
	)

Parameters

[in]	component_type	component type, such as GWF or GWT
[in]	subcomponent_type	subcomponent type, such as DIS or NPF
[in]	blockname	name of the block
[in]	tagname	name of the input tag
[in]	filename	input filename

Returns

corresponding InputParameterDefinitionType for this tag

Definition at line 93 of file DefinitionSelect.f90.

    type(InputParamDefinitionType), dimension(:), intent(in), target :: &
      input_definition_types
    character(len=*), intent(in) :: component_type !< component type, such as GWF or GWT
    character(len=*), intent(in) :: subcomponent_type !< subcomponent type, such as DIS or NPF
    character(len=*), intent(in) :: blockname !< name of the block
    character(len=*), intent(in) :: tagname !< name of the input tag
    character(len=*), intent(in) :: filename !< input filename
    type(InputParamDefinitionType), pointer :: idt !< corresponding InputParameterDefinitionType for this tag
    type(InputParamDefinitionType), pointer :: tmp_ptr
    integer(I4B) :: i
    !
    nullify (idt)
    do i = 1, size(input_definition_types)
      tmp_ptr => input_definition_types(i)
      if (tmp_ptr%component_type == component_type .and. &
          tmp_ptr%subcomponent_type == subcomponent_type .and. &
          tmp_ptr%blockname == blockname .and. &
          tmp_ptr%tagname == tagname) then
        idt => input_definition_types(i)
        exit
      end if
    end do
    !
    if (.not. associated(idt)) then
      write (errmsg, '(a,a,a,a,a)') &
        'Input file tag not found: "', trim(tagname), &
        '" in block "', trim(blockname), &
        '".'
      call store_error(errmsg)
      call store_error_filename(filename)
    end if

Here is the call graph for this function:

Here is the caller graph for this function:

idt_datatype()

character(len=linelength) function, public definitionselectmodule::idt_datatype

(

type(inputparamdefinitiontype), intent(in), pointer

idt

)

Definition at line 72 of file DefinitionSelect.f90.

    ! -- modules
    use constantsmodule, only: linelength
    ! -- dummy
    type(InputParamDefinitionType), pointer, intent(in) :: idt
    ! -- result
    character(len=LINELENGTH) :: datatype
    !
    if (idt%datatype(1:9) == 'KEYSTRING') then
      datatype = 'KEYSTRING'
    else if (idt%datatype(1:8) == 'RECARRAY') then
      datatype = 'RECARRAY'
    else if (idt%datatype(1:6) == 'RECORD') then
      datatype = 'RECORD'
    else
      datatype = idt%datatype
    end if

Here is the caller graph for this function:

idt_parse_rectype()

subroutine, public definitionselectmodule::idt_parse_rectype	(	type(inputparamdefinitiontype), intent(in), pointer	idt,
		character(len=linelength), dimension(:), intent(inout), allocatable	cols,
		integer(i4b), intent(inout)	ncol
	)

Definition at line 28 of file DefinitionSelect.f90.

    ! -- modules
    use constantsmodule, only: linelength
    use inputoutputmodule, only: parseline
    ! -- dummy
    type(InputParamDefinitionType), pointer, intent(in) :: idt
    character(len=LINELENGTH), dimension(:), allocatable, &
      intent(inout) :: cols
    integer(I4B), intent(inout) :: ncol
    ! -- local
    character(len=:), allocatable :: parse_str
    character(len=LINELENGTH), dimension(:), allocatable :: param_cols
    integer(I4B) :: param_ncol, n
    !
    ! -- initialize
    if (allocated(cols)) deallocate (cols)
    ncol = 0
    !
    ! -- split definition
    parse_str = trim(idt%datatype)//' '
    call parseline(parse_str, param_ncol, param_cols)
    !
    if (param_ncol > 1) then
      if (param_cols(1) == 'RECARRAY' .or. &
          param_cols(1) == 'KEYSTRING' .or. &
          param_cols(1) == 'RECORD') then
        ! -- exclude 1st column
        allocate (cols(param_ncol - 1))
        do n = 2, param_ncol
          cols(n - 1) = param_cols(n)
        end do
        !
        ! -- set ncol
        ncol = param_ncol - 1
      end if
    end if
    !
    ! -- cleanup
    if (allocated(param_cols)) deallocate (param_cols)
    if (allocated(parse_str)) deallocate (parse_str)

Here is the call graph for this function:

Here is the caller graph for this function:

split_record_definition()

subroutine, public definitionselectmodule::split_record_definition	(	type(inputparamdefinitiontype), dimension(:), intent(in), target	input_definition_types,
		character(len=*), intent(in)	component_type,
		character(len=*), intent(in)	subcomponent_type,
		character(len=*), intent(in)	tagname,
		integer(i4b), intent(inout)	nwords,
		character(len=40), dimension(:), intent(inout), allocatable	words
	)

Split a component RECORD datatype definition whose second element matches tagname into an array of character tokens

Parameters

[in]	component_type	component type, such as GWF or GWT
[in]	subcomponent_type	subcomponent type, such as DIS or NPF
[in]	tagname	name of the input tag

Definition at line 168 of file DefinitionSelect.f90.

    use inputoutputmodule, only: parseline
    type(InputParamDefinitionType), dimension(:), intent(in), target :: &
      input_definition_types
    character(len=*), intent(in) :: component_type !< component type, such as GWF or GWT
    character(len=*), intent(in) :: subcomponent_type !< subcomponent type, such as DIS or NPF
    character(len=*), intent(in) :: tagname !< name of the input tag
    integer(I4B), intent(inout) :: nwords
    character(len=40), dimension(:), allocatable, intent(inout) :: words
    type(InputParamDefinitionType), pointer :: tmp_ptr
    integer(I4B) :: i
    character(len=:), allocatable :: parse_str
    !
    ! -- initialize to deallocated
    if (allocated(words)) deallocate (words)
    !
    ! -- return all tokens of multi-record type that matches the first
    ! -- tag following the expected first token "RECORD"
    do i = 1, size(input_definition_types)
      !
      ! -- initialize
      nwords = 0
      !
      ! -- set ptr to current definition
      tmp_ptr => input_definition_types(i)
      !
      ! -- match for definition to split
      if (tmp_ptr%component_type == component_type .and. &
          tmp_ptr%subcomponent_type == subcomponent_type .and. &
          idt_datatype(tmp_ptr) == 'RECORD') then
        !
        ! -- set split string
        parse_str = trim(input_definition_types(i)%datatype)//' '
        !
        ! -- split
        call parseline(parse_str, nwords, words)
        !
        ! -- check for match and manage memory
        if (nwords >= 2) then
          if (words(1) == 'RECORD' .and. words(2) == tagname) then
            exit
          end if
        end if
        !
        ! -- deallocate
        if (allocated(parse_str)) deallocate (parse_str)
        if (allocated(words)) deallocate (words)
        !
      end if
    end do

Here is the call graph for this function:

Here is the caller graph for this function: