141 class(SwfIcType) :: this
143 character(len=LINELENGTH) :: errmsg
144 type(SwfIcParamFoundType) :: found
145 integer(I4B),
dimension(:),
pointer,
contiguous :: map
149 if (this%dis%nodes < this%dis%nodesuser) map => this%dis%nodeuser
152 call mem_set_value(this%strt,
'STRT', this%input_mempath, map, found%strt)
155 if (.not. found%strt)
then
156 write (errmsg,
'(a)')
'Error in GRIDDATA block: STRT not found.'
159 else if (this%iout > 0)
then
160 write (this%iout,
'(4x,a)')
'STRT set from input file'
This module contains simulation methods.
subroutine, public store_error(msg, terminate)
Store an error message.
subroutine, public store_error_filename(filename, terminate)
Store the erroring file name.