lowmach_cell_source_projection Function

private function lowmach_cell_source_projection(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_projection(fields, c) result(value)
      type(flow_fields_t), intent(in) :: fields
      integer, intent(in) :: c

      value = lowmach_cell_source_current(fields, c)
      if (allocated(fields%projection_divergence_source)) then
         if (size(fields%projection_divergence_source) >= c) value = fields%projection_divergence_source(c)
      end if
   end function lowmach_cell_source_projection