pressure_upper Function

  1. COESA.f90
  2. COESA_module
  3. pressure_upper

private pure function pressure_upper(Z)

Arguments

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

Return Value real(kind=wp)


Calls

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

Called by

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

Contents

Source Code

pressure_upper

Source Code

pure real(wp) function pressure_upper(Z)
    real(wp),intent(in) :: Z
    integer :: i
    real(wp) :: logP0,logP1,logP2,logP,scale0,scale1,scale2
    i = interpolation_index(Z)
    call interpolation_scale_factors(i, Z, scale0, scale1, scale2)
    logP0 = logPtableupper(i - 1)
    logP1 = logPtableupper(i)
    logP2 = logPtableupper(i + 1)
    logP = logP0 * scale0 + logP1 * scale1 + logP2 * scale2
    pressure_upper = exp(logP)
end function pressure_upper