check_variableOperations Subroutine

  1. tem_logical_operator_test.f90
  2. tem_logical_opertor_test
  3. check_variableOperations

subroutine check_variableOperations(res)

Arguments

Type IntentOptional AttributesName
logical, intent(inout) :: res

Calls

proc~~check_variableoperations~~CallsGraph proc~check_variableoperations check_variableOperations proc~check_variableoperations_byindex check_variableOperations_byIndex proc~check_variableoperations->proc~check_variableoperations_byindex proc~load_env load_env proc~check_variableoperations->proc~load_env proc~tem_create_subtree_of_st_funlist tem_create_subTree_of_st_funList proc~check_variableoperations->proc~tem_create_subtree_of_st_funlist proc~tem_varsys_init tem_varSys_init proc~check_variableoperations->proc~tem_varsys_init proc~open_config_chunk open_config_chunk proc~check_variableoperations->proc~open_config_chunk proc~check_variableoperations_byelement check_variableOperations_byElement proc~check_variableoperations->proc~check_variableoperations_byelement proc~check_variableoperations_bypoint check_variableOperations_byPoint proc~check_variableoperations->proc~check_variableoperations_bypoint interface~tem_variable_load tem_variable_load proc~check_variableoperations->interface~tem_variable_load proc~tem_baryofid tem_BaryOfId proc~check_variableoperations->proc~tem_baryofid proc~tem_varsys_append_luavar tem_varSys_append_luaVar proc~check_variableoperations->proc~tem_varsys_append_luavar proc~checkresult checkResult proc~check_variableoperations_byindex->proc~checkresult interface~positionofval~5 positionofval proc~check_variableoperations_byindex->interface~positionofval~5 proc~realtological realToLogical proc~check_variableoperations_byindex->proc~realtological proc~load_env->proc~open_config_chunk proc~tem_load_general tem_load_general proc~load_env->proc~tem_load_general proc~load_tem load_tem proc~load_env->proc~load_tem proc~tem_start tem_start proc~load_env->proc~tem_start proc~load_tem_bc_prop load_tem_BC_prop proc~load_env->proc~load_tem_bc_prop proc~tem_logging_load_primary tem_logging_load_primary proc~load_env->proc~tem_logging_load_primary proc~close_config close_config proc~load_env->proc~close_config proc~tem_horizontalspacer tem_horizontalSpacer proc~tem_create_subtree_of_st_funlist->proc~tem_horizontalspacer proc~tem_create_subtree_of tem_create_subTree_of proc~tem_create_subtree_of_st_funlist->proc~tem_create_subtree_of interface~init~12 init proc~tem_varsys_init->interface~init~12 proc~check_variableoperations_byelement->proc~checkresult proc~check_variableoperations_byelement->interface~positionofval~5 proc~check_variableoperations_byelement->proc~realtological proc~check_variableoperations_bypoint->proc~checkresult proc~check_variableoperations_bypoint->interface~positionofval~5 proc~check_variableoperations_bypoint->proc~realtological proc~tem_variable_load_single tem_variable_load_single interface~tem_variable_load->proc~tem_variable_load_single proc~tem_variable_load_vector tem_variable_load_vector interface~tem_variable_load->proc~tem_variable_load_vector proc~tem_elemsizelevel tem_ElemSizeLevel proc~tem_baryofid->proc~tem_elemsizelevel proc~tem_coordofid tem_CoordOfId proc~tem_baryofid->proc~tem_coordofid interface~tem_varsys_append_stfun tem_varSys_append_stfun proc~tem_varsys_append_luavar->interface~tem_varsys_append_stfun proc~tem_varsys_append_opervar tem_varSys_append_operVar proc~tem_varsys_append_luavar->proc~tem_varsys_append_opervar proc~tem_varsys_append_luavar->interface~positionofval~5

Called by

proc~~check_variableoperations~~CalledByGraph proc~check_variableoperations check_variableOperations program~tem_logical_opertor_test tem_logical_opertor_test program~tem_logical_opertor_test->proc~check_variableoperations

Contents

Source Code

check_variableOperations

Source Code

  subroutine check_variableOperations(res)
    logical, intent(inout) :: res

    type(treelmesh_type) :: tree
    type(tem_bc_prop_type) :: boundary
    type(tem_general_type) :: general
    type(tem_varSys_type) :: varSys
    type(tem_st_fun_linkedList_type) :: st_funList
    type(flu_state) :: conf
    type(tem_variable_type), allocatable :: newVar(:)
    real(kind=rk) :: point(1,3)
    integer, allocatable :: indices(:,:)
    integer, allocatable :: vError(:)
    integer :: iVar

    call load_env( tree     = tree,     &
      &            boundary = boundary, &
      &            general  = general   )

    call open_config_chunk(L=conf, chunk=trim(sysConf))

    call tem_variable_load( me   = newVar,     &
      &                     conf = conf,       &
      &                     key  = 'variable', &
      &                     vError  = vError   )

    call tem_varSys_init(me = varSys, systemName = 'utest')

    call tem_varSys_append_luaVar( luaVar     = newVar,    &
      &                            varSys     = varSys,    &
      &                            st_funList = st_funList )

    call tem_create_subTree_of_st_funList( &
      & me      = st_funList,              &
      & tree    = tree,                    &
      & bc_prop = boundary                 )

    point(1,:) = tem_BaryOfId( tree   = tree,          &
      &                        treeID = tree%treeID(1) )

    allocate(indices(varSys%method%nVals,1))
    do iVar = 1, varSys%method%nVals
      call varSys%method%val(iVar)%setup_indices( &
        & varSys = varSys,                        &
        & point  = point,                         &
        & iLevel = 1,                             &
        & tree   = tree,                          &
        & nPnts  = 1,                             &
        & idx    = indices(iVar,:)                  )
    end do

    call check_variableOperations_byPoint( res, general, tree, varSys, point )
    call check_variableOperations_byElement( res, general, tree, varSys )
    call check_variableOperations_byIndex( res, general, varSys, indices )

  end subroutine check_variableOperations