lowmach_cell_rho_projection Function

private function lowmach_cell_rho_projection(fields, transport, c) result(value)

Arguments

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

Return Value real(kind=rk)


Source Code

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

      value = lowmach_cell_rho_current(transport, c)
      if (allocated(fields%projection_rho)) then
         if (size(fields%projection_rho) >= c) value = fields%projection_rho(c)
      end if
   end function lowmach_cell_rho_projection