$:GPU_PARALLEL_LOOP(collapse=4)
    do j = 1, v_size
        do q = is3_weno%beg, is3_weno%end
            do l = is2_weno%beg, is2_weno%end
                do k = is1_weno%beg - weno_polyn, is1_weno%end + weno_polyn
                    v_rs_ws_y(k, l, q, j) = v_vf(j)%sf(l, k, q)
                end do
            end do
        end do
    end do
end if

! Reshaping/Projecting onto Characteristic Fields in z-direction
if (p == 0) return

if (weno_dir == 3) then
    $:GPU_PARALLEL_LOOP(collapse=4)
    do j = 1, v_size
        do q = is3_weno%beg, is3_weno%end
            do l = is2_weno%beg, is2_weno%end
                do k = is1_weno%beg - weno_polyn, is1_weno%end + weno_polyn
                    v_rs_ws_z(k, l, q, j) = v_vf(j)%sf(q, l, k)
                end do
            end do
        end do
    end do
end if

    impure subroutine s_check_inputs_compilers
#if !defined(MFC_OpenACC) && !(defined(__PGI) || defined(_CRAYFTN))
        @:PROHIBIT(rdma_mpi, "Unsupported value of rdma_mpi for the current compiler")
#endif
    end subroutine s_check_inputs_compilers