dzu_of_dzw_real64 Function

private pure function dzu_of_dzw_real64(dzw) result(dzu)

Uses

  • proc~~dzu_of_dzw_real64~~UsesGraph proc~dzu_of_dzw_real64 dzu_of_dzw_real64 iso_fortran_env iso_fortran_env proc~dzu_of_dzw_real64->iso_fortran_env

Compute the difference in between u-wind levels dzu from the difference in between w-wind levels dzw, where is the vertical coordinate, u-wind and w-wind levels are synonymous with layer midpoints and interfaces in MPAS, respectively. (KCW, 2025-10-20)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: dzw(:)

Return Value real(kind=real64), (size(dzw)-1)


Called by

proc~~dzu_of_dzw_real64~~CalledByGraph proc~dzu_of_dzw_real64 dzu_of_dzw_real64 interface~dzu_of_dzw dzu_of_dzw interface~dzu_of_dzw->proc~dzu_of_dzw_real64

Variables

Type Visibility Attributes Name Initial
integer, private :: k

Source Code

    pure function dzu_of_dzw_real64(dzw) result(dzu)
        use, intrinsic :: iso_fortran_env, only: real64

        real(real64), intent(in) :: dzw(:)
        real(real64) :: dzu(size(dzw) - 1)

        integer :: k

        do k = 1, size(dzu)
            dzu(k) = 0.5_real64 * (dzw(k) + dzw(k + 1))
        end do
    end function dzu_of_dzw_real64