var_set_fluxvar Function

public function var_set_fluxvar(name_cons, name_prim, ix, need_bc) result(iw)

Set generic flux variable

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name_cons

Conservative name
character(len=*), intent(in) :: name_prim

Primitive name
integer, intent(in), optional :: ix

Optional index (to make var1, var2, ...)
logical, intent(in), optional :: need_bc

Require boundary condition (default: true)

Return Value integer


Called by

proc~~var_set_fluxvar~~CalledByGraph proc~var_set_fluxvar var_set_fluxvar proc~phys_init phys_init proc~phys_init->proc~var_set_fluxvar proc~phys_init~2 phys_init proc~phys_init~2->proc~var_set_fluxvar proc~phys_init~4 phys_init proc~phys_init~4->proc~var_set_fluxvar proc~phys_activate phys_activate proc~phys_activate->proc~phys_init proc~phys_activate~2 phys_activate proc~phys_activate~2->proc~phys_init~2 proc~phys_activate~4 phys_activate proc~phys_activate~4->proc~phys_init~4

Source Code

  function var_set_fluxvar(name_cons, name_prim, ix, need_bc) result(iw)
    character(len=*), intent(in)  :: name_cons
    !< Conservative name
    character(len=*), intent(in)  :: name_prim
    !< Primitive name
    integer, intent(in), optional :: ix
    !< Optional index (to make var1, var2, ...)
    logical, intent(in), optional :: need_bc
    !< Require boundary condition (default: true)
    integer                       :: iw
    logical                       :: add_bc

    nwflux = nwflux + 1
    nw     = nw + 1
    iw     = nwflux

    add_bc = .true.
    if (present(need_bc)) add_bc = need_bc
    if (add_bc) nwfluxbc = nwfluxbc + 1

    if (.not. present(ix)) then
      prim_wnames(nwflux) = name_cons
      cons_wnames(nwflux) = name_prim
    else
      write(cons_wnames(nwflux),"(A,I0)") name_cons, ix
      write(prim_wnames(nwflux),"(A,I0)") name_prim, ix
   end if

   
  end function var_set_fluxvar