zu_of_dzw_real32 Function

private pure function zu_of_dzw_real32(dzw) result(zu)

Uses

  • proc~~zu_of_dzw_real32~~UsesGraph proc~zu_of_dzw_real32 zu_of_dzw_real32 iso_fortran_env iso_fortran_env proc~zu_of_dzw_real32->iso_fortran_env

Compute the coordinates at u-wind levels zu 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))


Calls

proc~~zu_of_dzw_real32~~CallsGraph proc~zu_of_dzw_real32 zu_of_dzw_real32 interface~zw_of_dzw zw_of_dzw proc~zu_of_dzw_real32->interface~zw_of_dzw proc~zw_of_dzw_real32 zw_of_dzw_real32 interface~zw_of_dzw->proc~zw_of_dzw_real32 proc~zw_of_dzw_real64 zw_of_dzw_real64 interface~zw_of_dzw->proc~zw_of_dzw_real64

Called by

proc~~zu_of_dzw_real32~~CalledByGraph proc~zu_of_dzw_real32 zu_of_dzw_real32 interface~zu_of_dzw zu_of_dzw interface~zu_of_dzw->proc~zu_of_dzw_real32 proc~init_reference_pressure init_reference_pressure proc~init_reference_pressure->interface~zu_of_dzw proc~model_grid_init model_grid_init proc~model_grid_init->proc~init_reference_pressure interface~model_grid_init model_grid_init interface~model_grid_init->proc~model_grid_init

Variables

Type Visibility Attributes Name Initial
integer, private :: k
real(kind=real32), private :: zw(size(dzw)+1)

Source Code

    pure function zu_of_dzw_real32(dzw) result(zu)
        use, intrinsic :: iso_fortran_env, only: real32

        real(real32), intent(in) :: dzw(:)
        real(real32) :: zu(size(dzw))

        integer :: k
        real(real32) :: zw(size(dzw) + 1)

        zw(:) = zw_of_dzw(dzw)

        do k = 1, size(zu)
            zu(k) = 0.5_real32 * (zw(k) + zw(k + 1))
        end do
    end function zu_of_dzw_real32