42 character(len=LENFTYPE),
intent(in) :: mtype
43 character(len=LENPACKAGETYPE),
dimension(:),
allocatable, &
44 intent(inout) :: pkgtypes
45 integer(I4B),
intent(inout) :: numpkgs
51 allocate (pkgtypes(numpkgs))
55 allocate (pkgtypes(numpkgs))
59 allocate (pkgtypes(numpkgs))
63 allocate (pkgtypes(numpkgs))
67 allocate (pkgtypes(numpkgs))
82 character(len=LENFTYPE),
intent(in) :: mtype_component
83 character(len=LENFTYPE),
intent(in) :: ptype_component
84 character(len=LENFTYPE),
intent(in) :: pkgtype
86 logical(LGP) :: multi_package
90 multi_package = .false.
92 select case (mtype_component)
96 multi_package = .true.
104 multi_package = .true.
112 multi_package = .true.
120 multi_package = .true.
This module contains simulation constants.
integer(i4b), parameter lenpackagetype
maximum length of a package type (DIS6, SFR6, CSUB6, etc.)
integer(i4b), parameter lenftype
maximum length of a package type (DIS, WEL, OC, etc.)
character(len=lenpackagetype), dimension(gwe_nmultipkg), public gwe_multipkg
integer(i4b), parameter, public gwe_nbasepkg
GWE base package array descriptors.
character(len=lenpackagetype), dimension(gwe_nbasepkg), public gwe_basepkg
integer(i4b), parameter, public gwe_nmultipkg
GWE multi package array descriptors.
integer(i4b), parameter, public gwf_nmultipkg
GWF multi package array descriptors.
character(len=lenpackagetype), dimension(gwf_nmultipkg), public gwf_multipkg
integer(i4b), parameter, public gwf_nbasepkg
GWF base package array descriptors.
character(len=lenpackagetype), dimension(gwf_nbasepkg), public gwf_basepkg
integer(i4b), parameter, public gwt_nbasepkg
GWT base package array descriptors.
character(len=lenpackagetype), dimension(gwt_nmultipkg), public gwt_multipkg
character(len=lenpackagetype), dimension(gwt_nbasepkg), public gwt_basepkg
integer(i4b), parameter, public gwt_nmultipkg
GWT multi package array descriptors.
This module defines variable data types.
character(len=lenpackagetype), dimension(prt_nmultipkg), public prt_multipkg
character(len=lenpackagetype), dimension(prt_nbasepkg), public prt_basepkg
integer(i4b), parameter, public prt_nmultipkg
PRT multi package array descriptors.
integer(i4b), parameter, public prt_nbasepkg
PRT base package array descriptors.
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.
This module contains simulation variables.
character(len=maxcharlen) errmsg
error message string
Stream Network Flow (SWF) Module.
character(len=lenpackagetype), dimension(swf_nbasepkg), public swf_basepkg
character(len=lenpackagetype), dimension(swf_nmultipkg), public swf_multipkg
integer(i4b), parameter, public swf_nbasepkg
SWF base package array descriptors.
integer(i4b), parameter, public swf_nmultipkg
SWF multi package array descriptors.