meke_stage_rd Subroutine

private pure subroutine meke_stage_rd(nx, ny, rd_in, rd_ws)

Copy rd_over_dx onto the device workspace. Thermo-cadence; explicit-shape; on-device (source slot is device-resident).

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nx
integer, intent(in) :: ny
real(kind=wp), intent(in) :: rd_in(nx,ny)
real(kind=wp), intent(out) :: rd_ws(nx,ny)

Called by

proc~~meke_stage_rd~~CalledByGraph proc~meke_stage_rd meke_stage_rd proc~meke_step meke_step proc~meke_step->proc~meke_stage_rd proc~run_meke_step run_meke_step proc~run_meke_step->proc~meke_step proc~ocean_dyn_step_split ocean_dyn_step_split proc~ocean_dyn_step_split->proc~run_meke_step 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

Variables

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

Source Code

   pure subroutine meke_stage_rd(nx, ny, rd_in, rd_ws)
      !! Copy rd_over_dx onto the device workspace.  Thermo-cadence;
      !! explicit-shape; on-device (source slot is device-resident).
      integer, intent(in) :: nx, ny
      real(wp), intent(in) :: rd_in(nx, ny)
      real(wp), intent(out) :: rd_ws(nx, ny)
      integer :: i, j
      do concurrent(j=1:ny, i=1:nx)
         rd_ws(i, j) = rd_in(i, j)
      end do
   end subroutine meke_stage_rd