var_set_q Function

public function var_set_q(need_bc) result(iw)

Set heat flux variable (hyperbolic TC treatment)

Arguments

Type IntentOptional Attributes Name
logical, intent(in), optional :: need_bc

Return Value integer


Called by

proc~~var_set_q~~CalledByGraph proc~var_set_q var_set_q proc~phys_init~3 phys_init proc~phys_init~3->proc~var_set_q proc~phys_activate~3 phys_activate proc~phys_activate~3->proc~phys_init~3

Source Code

  function var_set_q(need_bc) result(iw)
    logical, intent(in), optional :: need_bc
    integer :: iw
    logical :: add_bc

    add_bc = .true.
    if (present(need_bc)) add_bc = need_bc

    nwflux              = nwflux + 1
    nw                  = nw + 1
    if (add_bc) nwfluxbc = nwfluxbc + 1
    iw_q                = nwflux
    iw                  = nwflux
    cons_wnames(nwflux) = 'q'
    prim_wnames(nwflux) = 'q'
    
  end function var_set_q