modelpackageinputmodule Module Reference

This module contains the ModelPackageInputModule. More...

Functions/Subroutines
subroutine, public	supported_model_packages (mtype, pkgtypes, numpkgs)
	set supported package types for model More...
logical(lgp) function, public	multi_package_type (mtype_component, ptype_component, pkgtype)
	Is the package multi-instance. More...

Detailed Description

Add an input model type to routines in this module to integrate the Model with IDM.

Function/Subroutine Documentation

multi_package_type()

logical(lgp) function, public modelpackageinputmodule::multi_package_type	(	character(len=lenftype), intent(in)	mtype_component,
		character(len=lenftype), intent(in)	ptype_component,
		character(len=lenftype), intent(in)	pkgtype
	)

Definition at line 81 of file ModelPackageInput.f90.

    ! -- modules
    ! -- dummy
    character(len=LENFTYPE), intent(in) :: mtype_component
    character(len=LENFTYPE), intent(in) :: ptype_component
    character(len=LENFTYPE), intent(in) :: pkgtype
    ! -- return
    logical(LGP) :: multi_package
    ! -- local
    integer(I4B) :: n
    !
    multi_package = .false.
    !
    select case (mtype_component)
    case ('CHF')
      do n = 1, chf_nmultipkg
        if (chf_multipkg(n) == pkgtype) then
          multi_package = .true.
          exit
        end if
      end do
      !
    case ('GWE')
      do n = 1, gwe_nmultipkg
        if (gwe_multipkg(n) == pkgtype) then
          multi_package = .true.
          exit
        end if
      end do
      !
    case ('GWF')
      do n = 1, gwf_nmultipkg
        if (gwf_multipkg(n) == pkgtype) then
          multi_package = .true.
          exit
        end if
      end do
      !
    case ('GWT')
      do n = 1, gwt_nmultipkg
        if (gwt_multipkg(n) == pkgtype) then
          multi_package = .true.
          exit
        end if
      end do
      !
    case ('OLF')
      do n = 1, olf_nmultipkg
        if (olf_multipkg(n) == pkgtype) then
          multi_package = .true.
          exit
        end if
      end do
      !
    case ('PRT')
      do n = 1, prt_nmultipkg
        if (prt_multipkg(n) == pkgtype) then
          multi_package = .true.
          exit
        end if
      end do
      !
    case default
    end select

Here is the caller graph for this function:

supported_model_packages()

subroutine, public modelpackageinputmodule::supported_model_packages	(	character(len=lenftype), intent(in)	mtype,
		character(len=lenpackagetype), dimension(:), intent(inout), allocatable	pkgtypes,
		integer(i4b), intent(inout)	numpkgs
	)

Allocate a list of package types supported by the model. Base packages should be listed first as list determines load order.

Definition at line 41 of file ModelPackageInput.f90.

    ! -- modules
    ! -- dummy
    character(len=LENFTYPE), intent(in) :: mtype
    character(len=LENPACKAGETYPE), dimension(:), allocatable, &
      intent(inout) :: pkgtypes
    integer(I4B), intent(inout) :: numpkgs
    ! -- local
    !
    select case (mtype)
    case ('CHF6')
      numpkgs = chf_nbasepkg + chf_nmultipkg
      allocate (pkgtypes(numpkgs))
      pkgtypes = [chf_basepkg, chf_multipkg]
    case ('GWE6')
      numpkgs = gwe_nbasepkg + gwe_nmultipkg
      allocate (pkgtypes(numpkgs))
      pkgtypes = [gwe_basepkg, gwe_multipkg]
    case ('GWF6')
      numpkgs = gwf_nbasepkg + gwf_nmultipkg
      allocate (pkgtypes(numpkgs))
      pkgtypes = [gwf_basepkg, gwf_multipkg]
    case ('GWT6')
      numpkgs = gwt_nbasepkg + gwt_nmultipkg
      allocate (pkgtypes(numpkgs))
      pkgtypes = [gwt_basepkg, gwt_multipkg]
    case ('OLF6')
      numpkgs = olf_nbasepkg + olf_nmultipkg
      allocate (pkgtypes(numpkgs))
      pkgtypes = [olf_basepkg, olf_multipkg]
    case ('PRT6')
      numpkgs = prt_nbasepkg + prt_nmultipkg
      allocate (pkgtypes(numpkgs))
      pkgtypes = [prt_basepkg, prt_multipkg]
    case default
    end select

Here is the caller graph for this function: