739 class(TransportModelType) :: this
740 integer(I4B),
intent(inout) :: indis
742 type(CharacterStringType),
dimension(:),
contiguous, &
743 pointer :: pkgtypes => null()
744 type(CharacterStringType),
dimension(:),
contiguous, &
745 pointer :: pkgnames => null()
746 type(CharacterStringType),
dimension(:),
contiguous, &
747 pointer :: mempaths => null()
748 integer(I4B),
dimension(:),
contiguous, &
749 pointer :: inunits => null()
750 character(len=LENMEMPATH) :: model_mempath
751 character(len=LENFTYPE) :: pkgtype
752 character(len=LENPACKAGENAME) :: pkgname
753 character(len=LENMEMPATH) :: mempath
754 integer(I4B),
pointer :: inunit
756 character(len=LENMEMPATH) :: mempathic =
''
765 call mem_setptr(pkgtypes,
'PKGTYPES', model_mempath)
766 call mem_setptr(pkgnames,
'PKGNAMES', model_mempath)
767 call mem_setptr(mempaths,
'MEMPATHS', model_mempath)
768 call mem_setptr(inunits,
'INUNITS', model_mempath)
770 do n = 1,
size(pkgtypes)
773 pkgtype = pkgtypes(n)
774 pkgname = pkgnames(n)
775 mempath = mempaths(n)
779 select case (pkgtype)
782 call dis_cr(this%dis, this%name, mempath, indis, this%iout)
785 call disv_cr(this%dis, this%name, mempath, indis, this%iout)
788 call disu_cr(this%dis, this%name, mempath, indis, this%iout)
794 case (
'MVT6',
'MVE6')
810 call ic_cr(this%ic, this%name, mempathic, this%inic, this%iout, this%dis, &
812 call fmi_cr(this%fmi, this%name, this%infmi, this%iout, this%eqnsclfac, &
814 call adv_cr(this%adv, this%name, this%inadv, this%iout, this%fmi, &
816 call ssm_cr(this%ssm, this%name, this%inssm, this%iout, this%fmi, &
817 this%eqnsclfac, this%depvartype)
818 call mvt_cr(this%mvt, this%name, this%inmvt, this%iout, this%fmi, &
819 this%eqnsclfac, this%depvartype)
820 call oc_cr(this%oc, this%name, this%inoc, this%iout)
This module contains simulation constants.
integer(i4b), parameter linelength
maximum length of a standard line
integer(i4b), parameter lenpackagename
maximum length of the package name
subroutine, public dis_cr(dis, name_model, input_mempath, inunit, iout)
Create a new structured discretization object.
subroutine, public disu_cr(dis, name_model, input_mempath, inunit, iout)
Create a new unstructured discretization object.
subroutine, public disv_cr(dis, name_model, input_mempath, inunit, iout)
Create a new discretization by vertices object.
character(len=lenmempath) function create_mem_path(component, subcomponent, context)
returns the path to the memory object
This module contains simulation variables.
character(len=linelength) idm_context
subroutine, public adv_cr(advobj, name_model, inunit, iout, fmi, eqnsclfac)
@ brief Create a new ADV object
subroutine, public fmi_cr(fmiobj, name_model, inunit, iout, eqnsclfac, depvartype)
Create a new FMI object.
subroutine, public ic_cr(ic, name_model, input_mempath, inunit, iout, dis, depvartype)
Create a new initial conditions object.
subroutine, public mvt_cr(mvt, name_model, inunit, iout, fmi1, eqnsclfac, depvartype, gwfmodelname1, gwfmodelname2, fmi2)
Create a new mover transport object.
subroutine, public tsp_obs_cr(obs, inobs)
Create a new TspObsType object.
subroutine, public oc_cr(ocobj, name_model, inunit, iout)
@ brief Create TspOcType
This module contains the TspSsm Module.
subroutine, public ssm_cr(ssmobj, name_model, inunit, iout, fmi, eqnsclfac, depvartype)
@ brief Create a new SSM package
This class is used to store a single deferred-length character string. It was designed to work in an ...