tem_load_cond_single Subroutine

private subroutine tem_load_cond_single(cond, conf, thandle)

Load the conditions for geomIncr and convergence check within convergence conditions mean the operator and threshold against which the macroscopic variable has to be compared

Arguments

Type IntentOptional Attributes Name
type(tem_condition_type), intent(inout) :: cond
type(flu_State), intent(in) :: conf
integer, intent(in) :: thandle

Calls

proc~~tem_load_cond_single~~CallsGraph proc~tem_load_cond_single tem_load_cond_single aot_get_val aot_get_val proc~tem_load_cond_single->aot_get_val proc~tem_abort tem_abort proc~tem_load_cond_single->proc~tem_abort mpi_abort mpi_abort proc~tem_abort->mpi_abort

Called by

proc~~tem_load_cond_single~~CalledByGraph proc~tem_load_cond_single tem_load_cond_single proc~tem_load_condition tem_load_condition proc~tem_load_condition->proc~tem_load_cond_single proc~tem_load_convergenceheader tem_load_convergenceHeader proc~tem_load_convergenceheader->proc~tem_load_condition proc~tem_load_depend_single tem_load_depend_single proc~tem_load_depend_single->proc~tem_load_condition interface~tem_load_depend tem_load_depend interface~tem_load_depend->proc~tem_load_depend_single proc~tem_load_depend_vector tem_load_depend_vector interface~tem_load_depend->proc~tem_load_depend_vector proc~tem_convergence_load tem_convergence_load proc~tem_convergence_load->proc~tem_load_convergenceheader proc~tem_load_depend_vector->proc~tem_load_depend_single proc~tem_abortcriteria_load tem_abortCriteria_load proc~tem_abortcriteria_load->proc~tem_convergence_load

Source Code

  subroutine tem_load_cond_single( cond, conf, thandle )
    ! -------------------------------------------------------------------- !
    !>
    type(tem_condition_type), intent(inout) :: cond
    !>
    type(flu_state), intent(in)             :: conf
    !>
    integer, intent(in)                     :: thandle
    ! -------------------------------------------------------------------- !
    integer :: iError
    ! -------------------------------------------------------------------- !
    call aot_get_val( L       = conf,           &
      &               thandle = thandle,        &
      &               val     = cond%threshold, &
      &               ErrCode = iError,         &
      &               key     = 'threshold'     )
    if ( btest(iError, aoterr_Fatal) ) then
      write(logUnit(0),*) "Fatal Error: In reading 'threshold' in condition"
      if ( btest(iError, aoterr_NonExistent) ) &
        & write(logUnit(0),*) 'NonExistent.'
      if ( btest(iError, aoterr_WrongType) ) write(logUnit(0),*) 'WrongType.'
      call tem_abort()
    end if

    call aot_get_val( L       = conf,           &
      &               thandle = thandle,        &
      &               val     = cond%operation, &
      &               ErrCode = iError,         &
      &               key     = 'operator'      )
    if ( btest(iError, aoterr_Fatal) ) then
      write(logUnit(0),*) "Fatal Error: In reading 'operator' for condition"
      if ( btest(iError, aoterr_NonExistent) ) &
        & write(logUnit(0),*) 'NonExistent.'
      if( btest(iError, aoterr_WrongType) ) write(logUnit(0),*) 'WrongType.'
      call tem_abort()
    end if

  end subroutine tem_load_cond_single