tspicmodule Module Reference

Data Types
type	tspictype

Functions/Subroutines
subroutine, public	ic_cr (ic, name_model, input_mempath, inunit, iout, dis, depvartype)
	Create a new initial conditions object. More...

Function/Subroutine Documentation

ic_cr()

subroutine, public tspicmodule::ic_cr	(	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), intent(in), pointer	dis,
		character(len=lenvarname), intent(in)	depvartype
	)

Definition at line 24 of file tsp-ic.f90.

    ! -- 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

Here is the caller graph for this function: