init_possible_variable Subroutine

public subroutine init_possible_variable(me, length)

Arguments

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

Possible variables
integer, intent(in) :: length

Minimum length to expand the array

Source Code

  subroutine init_possible_variable( me, length )
    !---------------------------------------------------------------------------
    !> Possible variables
    type(tem_possible_variable_type), intent(out) :: me
    !> Minimum length to expand the array
    integer, intent(in) :: length
    !---------------------------------------------------------------------------
    ! Unique array is used to extract position of variable to get nComponents
    call init( me = me%varName, length = length )
    call init( me = me%nComponents, length = length )

  end subroutine init_possible_variable