tsp-ic.f90

Go to the documentation of this file.

module tspicmodule
 
  use kindmodule, only: dp, i4b
  use constantsmodule, only: lenvarname
  use gwficmodule, only: gwfictype
  use blockparsermodule, only: blockparsertype
  use basedismodule, only: disbasetype
 
  implicit none
  private
  public :: tspictype
  public :: ic_cr
 
  ! -- Most of the TspIcType functionality comes from GwfIcType
  type, extends(gwfictype) :: tspictype
    ! -- strings
    character(len=LENVARNAME) :: depvartype = ''
  end type tspictype
 
contains
 
  !> @brief Create a new initial conditions object
  !<
  subroutine ic_cr(ic, name_model, input_mempath, inunit, iout, dis, depvartype)
    ! -- dummy
    type(tspictype), pointer :: ic
    character(len=*), intent(in) :: name_model
    character(len=*), intent(in) :: input_mempath
    integer(I4B), intent(in) :: inunit
    integer(I4B), intent(in) :: iout
    class(disbasetype), pointer, intent(in) :: dis
    character(len=LENVARNAME), intent(in) :: depvartype
    !
    ! -- Create the object
    allocate (ic)
    !
    ! -- create name and memory path
    call ic%set_names(1, name_model, 'IC', 'IC', input_mempath)
    !
    ! -- Allocate scalars
    call ic%allocate_scalars()
    !
    ic%inunit = inunit
    ic%iout = iout
    !
    ! -- set pointers
    ic%dis => dis
    !
    ! -- Give package access to the assigned labelsd based on dependent variable
    ic%depvartype = depvartype
    !
    ! -- Return
    return
  end subroutine ic_cr
 
end module tspicmodule