var_set_rho Function

public function var_set_rho() result(iw)

Set density variable

Arguments

None

Return Value integer


Called by

proc~~var_set_rho~~CalledByGraph proc~var_set_rho var_set_rho proc~phys_init phys_init proc~phys_init->proc~var_set_rho proc~phys_init~2 phys_init proc~phys_init~2->proc~var_set_rho proc~phys_init~3 phys_init proc~phys_init~3->proc~var_set_rho proc~phys_init~4 phys_init proc~phys_init~4->proc~var_set_rho 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~3 phys_activate proc~phys_activate~3->proc~phys_init~3 proc~phys_activate~4 phys_activate proc~phys_activate~4->proc~phys_init~4

Source Code

  function var_set_rho() result(iw)
    integer :: iw

    nwflux              = nwflux + 1
    nwfluxbc            = nwfluxbc + 1
    nw                  = nw + 1
    iw_rho              = nwflux
    iw                  = nwflux
    prim_wnames(nwflux) = 'rho'
    cons_wnames(nwflux) = 'rho'
    
  end function var_set_rho