Initialize a variable system.
Type | Intent | Optional | 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. |
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