lowmach_cell_source_current Function

private function lowmach_cell_source_current(fields, c) result(value)

Arguments

Type IntentOptional Attributes Name
type(flow_fields_t), intent(in) :: fields
integer, intent(in) :: c

Return Value real(kind=rk)


Source Code

   real(rk) function lowmach_cell_source_current(fields, c) result(value)
      type(flow_fields_t), intent(in) :: fields
      integer, intent(in) :: c

      value = 0.0_rk
      if (allocated(fields%divergence_source)) then
         if (size(fields%divergence_source) >= c) value = fields%divergence_source(c)
      end if
   end function lowmach_cell_source_current