mean_molecular_weight_upper Function

  1. COESA.f90
  2. COESA_module
  3. mean_molecular_weight_upper

private pure function mean_molecular_weight_upper(Z)

Arguments

TypeIntentOptionalAttributesName
real(kind=wp), intent(in) :: Z

Return Value real(kind=wp)


Calls

proc~~mean_molecular_weight_upper~~CallsGraph proc~mean_molecular_weight_upper mean_molecular_weight_upper proc~interpolation_scale_factors interpolation_scale_factors proc~mean_molecular_weight_upper->proc~interpolation_scale_factors proc~interpolation_index interpolation_index proc~mean_molecular_weight_upper->proc~interpolation_index proc~find find proc~interpolation_index->proc~find

Called by

proc~~mean_molecular_weight_upper~~CalledByGraph proc~mean_molecular_weight_upper mean_molecular_weight_upper proc~coesa_atmosphere COESA_atmosphere proc~coesa_atmosphere->proc~mean_molecular_weight_upper proc~coesa_density COESA_density proc~coesa_density->proc~mean_molecular_weight_upper

Contents

Source Code

mean_molecular_weight_upper

Source Code

pure real(wp) function mean_molecular_weight_upper(Z)
    real(wp),intent(in) :: Z
    integer :: i
    real(wp) :: M0,M1,M2,scale0,scale1,scale2
    i = interpolation_index(Z)
    call interpolation_scale_factors(i, Z, scale0, scale1, scale2)
    M0 = Mtableupper(i - 1)
    M1 = Mtableupper(i)
    M2 = Mtableupper(i + 1)
    mean_molecular_weight_upper = M0 * scale0 + M1 * scale1 + M2 * scale2
end function mean_molecular_weight_upper