lowmach_cell_rho_current Function

private function lowmach_cell_rho_current(transport, c) result(value)

Arguments

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

Return Value real(kind=rk)


Source Code

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

      value = 0.0_rk
      if (allocated(transport%rho)) then
         if (size(transport%rho) >= c) value = transport%rho(c)
      end if
   end function lowmach_cell_rho_current