tem_varSys_init Subroutine

public subroutine tem_varSys_init(me, systemName, length)

Initialize a variable system.

Arguments

Type IntentOptional Attributes Name
type(tem_varSys_type), intent(out) :: me

Variable system to initialize.
character(len=*), intent(in) :: systemName

A descriptive name for this system of variables.
integer, intent(in), optional :: length

Initial length for the arrays used in the variable system.

Calls

proc~~tem_varsys_init~~CallsGraph proc~tem_varsys_init tem_varSys_init interface~init~24 init proc~tem_varsys_init->interface~init~24 proc~init_da_label init_da_label interface~init~24->proc~init_da_label

Source Code

  subroutine tem_varSys_init(me, systemName, length)
    ! --------------------------------------------------------------------------!
    !> Variable system to initialize.
    type(tem_varSys_type),           intent(out) :: me

    !> A descriptive name for this system of variables.
    character(len=*),                intent(in)  :: systemName

    !> Initial length for the arrays used in the variable system.
    integer,               optional, intent(in)  :: length
    ! --------------------------------------------------------------------------!

    me%systemName = trim(systemName)
    me%nStateVars = 0
    me%nScalars = 0
    me%nAuxVars = 0
    me%nAuxScalars = 0

    call init( me     = me%varname, &
      &        length = length      )

    call init( me     = me%method, &
      &        length = length     )

  end subroutine tem_varSys_init