fill_kd_epbl_impl Subroutine

private pure subroutine fill_kd_epbl_impl(kd_int, buf)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: kd_int(:,:,:)
real(kind=wp), intent(inout) :: buf(:,:,:)

Called by

proc~~fill_kd_epbl_impl~~CalledByGraph proc~fill_kd_epbl_impl fill_kd_epbl_impl proc~fill_kd_epbl fill_kd_epbl proc~fill_kd_epbl->proc~fill_kd_epbl_impl proc~fill_kd_kshear fill_kd_kshear proc~fill_kd_kshear->proc~fill_kd_epbl_impl

Variables

Type Visibility Attributes Name Initial
integer, private :: i
integer, private :: j
integer, private :: k
integer, private :: nx
integer, private :: ny
integer, private :: nz

Source Code

   pure subroutine fill_kd_epbl_impl(kd_int, buf)
      ! assumed-shape-ok: diag fill — fires once per output frame (cadence-bounded).
      real(wp), intent(in)    :: kd_int(:, :, :)
      real(wp), intent(inout) :: buf(:, :, :)  ! assumed-shape-ok: diag fill — cadence-bounded
      integer :: i, j, k, nx, ny, nz
      nx = size(buf, 1)
      ny = size(buf, 2)
      nz = size(buf, 3)
      do concurrent(k=1:nz, j=1:ny, i=1:nx)
         buf(i, j, k) = kd_int(i, j, k)
      end do
   end subroutine fill_kd_epbl_impl