redi_face_copy Subroutine

private pure subroutine redi_face_copy(n1, n2, src, dst)

Copy a face KhTr field src -> dst (both (n1, n2)), device-side.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n1
integer, intent(in) :: n2
real(kind=wp), intent(in) :: src(n1,n2)
real(kind=wp), intent(inout) :: dst(n1,n2)

Called by

proc~~redi_face_copy~~CalledByGraph proc~redi_face_copy redi_face_copy proc~redi_apply_flux redi_apply_flux proc~redi_apply_flux->proc~redi_face_copy proc~run_continuity_chain run_continuity_chain proc~run_continuity_chain->proc~redi_apply_flux proc~run_stage_split run_stage_split proc~run_stage_split->proc~run_continuity_chain proc~ocean_dyn_step_split ocean_dyn_step_split proc~ocean_dyn_step_split->proc~run_stage_split proc~engine_step engine_step proc~engine_step->proc~ocean_dyn_step_split

Variables

Type Visibility Attributes Name Initial
integer, private :: i
integer, private :: j

Source Code

   pure subroutine redi_face_copy(n1, n2, src, dst)
      !! Copy a face KhTr field `src -> dst` (both `(n1, n2)`), device-side.
      integer, intent(in) :: n1, n2
      real(wp), intent(in) :: src(n1, n2)
      real(wp), intent(inout) :: dst(n1, n2)
      integer :: i, j
      do concurrent(j=1:n2, i=1:n1)
         dst(i, j) = src(i, j)
      end do
   end subroutine redi_face_copy