153 class(BoundGridInputType),
intent(inout) :: this
154 type(BlockParserType),
pointer,
intent(inout) :: parser
156 logical(LGP) :: endOfBlock
157 character(len=LINELENGTH) :: keyword, param_tag
158 type(InputParamDefinitionType),
pointer :: idt
159 integer(I4B) :: iaux, iparam
160 character(len=LENTIMESERIESNAME) :: tas_name
167 this%mf6_input%subcomponent_name, this%iout)
175 call parser%GetNextLine(endofblock)
179 call parser%GetStringCaps(param_tag)
182 iaux =
ifind_charstr(this%bound_context%auxname_cst, param_tag)
185 if (iaux > 0) param_tag =
'AUX'
189 this%mf6_input%component_type, &
190 this%mf6_input%subcomponent_type, &
191 'PERIOD', param_tag, this%input_name)
194 if (this%tas_active /= 0)
then
195 call parser%GetStringCaps(keyword)
197 if (keyword ==
'TIMEARRAYSERIES')
then
198 call parser%GetStringCaps(tas_name)
200 if (param_tag ==
'AUX')
then
201 this%aux_tasnames(iaux) = tas_name
203 iparam =
ifind(this%param_names, param_tag)
204 this%param_tasnames(iparam) = tas_name
205 this%param_reads(iparam)%invar = 2
209 call idm_log_var(param_tag, this%mf6_input%mempath, this%iout, .true.)
218 call this%param_load(parser, idt%datatype, idt%mf6varname, idt%tagname, &
219 idt%shape, this%mf6_input%mempath, iaux)
224 if (this%tas_active /= 0)
then
225 call this%tas_links_create(parser%iuactive)
230 this%mf6_input%subcomponent_name, this%iout)
subroutine, public idm_log_close(component, subcomponent, iout)
@ brief log the closing message
subroutine, public idm_log_header(component, subcomponent, iout)
@ brief log a header message
This module contains the SourceCommonModule.
integer(i4b) function, public ifind_charstr(array, str)