snapshot_u_prev_west Subroutine

private pure subroutine snapshot_u_prev_west(u_layer, u_prev, nx_total, ny_total, nz, i_w, j0, j1)

Snapshot u at the first interior face (i_w+1) into u_prev_west.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: u_layer(nx_total+1,ny_total,nz)
real(kind=wp), intent(inout) :: u_prev(ny_total,nz)
integer, intent(in) :: nx_total
integer, intent(in) :: ny_total
integer, intent(in) :: nz
integer, intent(in) :: i_w
integer, intent(in) :: j0
integer, intent(in) :: j1

Called by

proc~~snapshot_u_prev_west~~CalledByGraph proc~snapshot_u_prev_west snapshot_u_prev_west proc~ocean_obc_apply_baroclinic ocean_obc_apply_baroclinic proc~ocean_obc_apply_baroclinic->proc~snapshot_u_prev_west proc~run_stage_split run_stage_split proc~run_stage_split->proc~ocean_obc_apply_baroclinic 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

Variables

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

Source Code

   pure subroutine snapshot_u_prev_west(u_layer, u_prev, nx_total, ny_total, nz, &
                                        i_w, j0, j1)
      !! Snapshot u at the first interior face (i_w+1) into u_prev_west.
      integer, intent(in) :: nx_total, ny_total, nz, i_w, j0, j1
      real(wp), intent(in)    :: u_layer(nx_total + 1, ny_total, nz)
      real(wp), intent(inout) :: u_prev(ny_total, nz)
      integer :: j, k
      do concurrent(k=1:nz, j=j0:j1)
         u_prev(j, k) = u_layer(i_w + 1, j, k)
      end do
   end subroutine snapshot_u_prev_west