var_set_radiation_energy Function

public function var_set_radiation_energy() result(iw)

Arguments

None

Return Value integer


Source Code

  function var_set_radiation_energy() result(iw)
    integer :: iw

    nwflux              = nwflux + 1
    nwfluxbc            = nwfluxbc + 1
    nw                  = nw + 1
    iw_r_e              = nwflux
    iw                  = nwflux
    cons_wnames(nwflux) = 'r_e'
    prim_wnames(nwflux) = 'r_e'
    
  end function var_set_radiation_energy