accel_visc_rem_snapshot Subroutine

public subroutine accel_visc_rem_snapshot(n1, n2, n3, vel, snap)

accel_visc_rem stage-entry snapshot: snap = vel, device-side. Public only for the unit-test suite. Under mem:separate this do concurrent runs on the device-resident arrays in production (both are mapped on the ocean state); unit tests must map their own arrays explicitly (!$acc enter data copyin / update self).

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n1
integer, intent(in) :: n2
integer, intent(in) :: n3
real(kind=wp), intent(in) :: vel(n1,n2,n3)
real(kind=wp), intent(out) :: snap(n1,n2,n3)

Called by

proc~~accel_visc_rem_snapshot~~CalledByGraph proc~accel_visc_rem_snapshot accel_visc_rem_snapshot proc~run_stage_split run_stage_split proc~run_stage_split->proc~accel_visc_rem_snapshot 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 proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_step proc~rdb_ocean_step rdb_ocean_step proc~rdb_ocean_step->proc~engine_step proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean

Variables

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

Source Code

   subroutine accel_visc_rem_snapshot(n1, n2, n3, vel, snap)
      !! accel_visc_rem stage-entry snapshot: `snap = vel`, device-side.
      !! Public only for the unit-test suite.  Under `mem:separate` this
      !! `do concurrent` runs on the device-resident arrays in production
      !! (both are mapped on the ocean state); unit tests must map their
      !! own arrays explicitly (`!$acc enter data copyin` / `update self`).
      integer, intent(in) :: n1, n2, n3
      real(wp), intent(in) :: vel(n1, n2, n3)
      real(wp), intent(out) :: snap(n1, n2, n3)
      integer :: i, j, k

      do concurrent(k=1:n3, j=1:n2, i=1:n1)
         snap(i, j, k) = vel(i, j, k)
      end do
   end subroutine accel_visc_rem_snapshot