var_set_auxvar Function

public function var_set_auxvar(name_cons, name_prim, ix) result(iw)

Set auxiliary variable, which is not advected but has boundary conditions. This has to be done after defining flux variables.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name_cons
character(len=*), intent(in) :: name_prim
integer, intent(in), optional :: ix

Return Value integer


Called by

proc~~var_set_auxvar~~CalledByGraph proc~var_set_auxvar var_set_auxvar proc~phys_init phys_init proc~phys_init->proc~var_set_auxvar proc~phys_activate phys_activate proc~phys_activate->proc~phys_init

Source Code

  function var_set_auxvar(name_cons, name_prim, ix) result(iw)
    character(len=*), intent(in)  :: name_cons, name_prim
    integer, intent(in), optional :: ix
    integer                       :: iw

    nwaux   = nwaux + 1
    nw      = nw + 1
    iw      = nw

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