init_possible_variable Subroutine

public subroutine init_possible_variable(me, length)

Arguments

Type IntentOptional AttributesName
type(tem_possible_variable_type), intent(out) :: me

Possible variables

integer, intent(in) :: length

Minimum length to expand the array


Calls

proc~~init_possible_variable~~CallsGraph proc~init_possible_variable init_possible_variable interface~init~12 init proc~init_possible_variable->interface~init~12 proc~init_da_label init_da_label interface~init~12->proc~init_da_label

Called by

proc~~init_possible_variable~~CalledByGraph proc~init_possible_variable init_possible_variable interface~init~34 init interface~init~34->proc~init_possible_variable

Contents


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