density Function

private pure function density(s)

Type Bound

Arguments

Type	Intent	Optional	Attributes		Name
class(State),	intent(in)			::	s

Return Value real(kind=wp)

Source Code

pure real(wp) function density(s)
    class(State),intent(in) :: s
    density = s%pressure * s%mean_molecular_weight / (Rstar * s%temperature)
end function density