dzu_of_dzw_real32 Function

private pure function dzu_of_dzw_real32(dzw) result(dzu)

Uses

  • proc~~dzu_of_dzw_real32~~UsesGraph proc~dzu_of_dzw_real32 dzu_of_dzw_real32 iso_fortran_env iso_fortran_env proc~dzu_of_dzw_real32->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=real32), intent(in) :: dzw(:)

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


Called by

proc~~dzu_of_dzw_real32~~CalledByGraph proc~dzu_of_dzw_real32 dzu_of_dzw_real32 interface~dzu_of_dzw dzu_of_dzw interface~dzu_of_dzw->proc~dzu_of_dzw_real32

Variables

Type Visibility Attributes Name Initial
integer, private :: k

Source Code

    pure function dzu_of_dzw_real32(dzw) result(dzu)
        use, intrinsic :: iso_fortran_env, only: real32

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

        integer :: k

        do k = 1, size(dzu)
            dzu(k) = 0.5_real32 * (dzw(k) + dzw(k + 1))
        end do
    end function dzu_of_dzw_real32