zw_of_dzw_real32 Function

private pure function zw_of_dzw_real32(dzw) result(zw)

Uses

  • proc~~zw_of_dzw_real32~~UsesGraph proc~zw_of_dzw_real32 zw_of_dzw_real32 iso_fortran_env iso_fortran_env proc~zw_of_dzw_real32->iso_fortran_env

Compute the coordinates at w-wind levels zw from the difference in between w-wind levels dzw, where is the vertical coordinate, and w-wind levels are synonymous with layer interfaces in MPAS. (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~~zw_of_dzw_real32~~CalledByGraph proc~zw_of_dzw_real32 zw_of_dzw_real32 interface~zw_of_dzw zw_of_dzw interface~zw_of_dzw->proc~zw_of_dzw_real32 proc~init_reference_pressure init_reference_pressure proc~init_reference_pressure->interface~zw_of_dzw interface~zu_of_dzw zu_of_dzw proc~init_reference_pressure->interface~zu_of_dzw proc~zu_of_dzw_real32 zu_of_dzw_real32 proc~zu_of_dzw_real32->interface~zw_of_dzw proc~zu_of_dzw_real64 zu_of_dzw_real64 proc~zu_of_dzw_real64->interface~zw_of_dzw interface~zu_of_dzw->proc~zu_of_dzw_real32 interface~zu_of_dzw->proc~zu_of_dzw_real64 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

Source Code

    pure function zw_of_dzw_real32(dzw) result(zw)
        use, intrinsic :: iso_fortran_env, only: real32

        real(real32), intent(in) :: dzw(:)
        real(real32) :: zw(size(dzw) + 1)

        integer :: k

        do k = 1, size(zw)
            zw(k) = sum(dzw(1:k - 1))
        end do
    end function zw_of_dzw_real32