snapshot_v_prev_south Subroutine

private pure subroutine snapshot_v_prev_south(v_layer, v_prev, nx_total, ny_total, nz, j_s, i0, i1)

Snapshot v at the first interior face (j_s+1) into u_prev_south.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: v_layer(nx_total,ny_total+1,nz)
real(kind=wp), intent(inout) :: v_prev(nx_total,nz)
integer, intent(in) :: nx_total
integer, intent(in) :: ny_total
integer, intent(in) :: nz
integer, intent(in) :: j_s
integer, intent(in) :: i0
integer, intent(in) :: i1

Called by

proc~~snapshot_v_prev_south~~CalledByGraph proc~snapshot_v_prev_south snapshot_v_prev_south proc~ocean_obc_apply_baroclinic ocean_obc_apply_baroclinic proc~ocean_obc_apply_baroclinic->proc~snapshot_v_prev_south 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 :: i
integer, private :: k

Source Code

   pure subroutine snapshot_v_prev_south(v_layer, v_prev, nx_total, ny_total, nz, &
                                         j_s, i0, i1)
      !! Snapshot v at the first interior face (j_s+1) into u_prev_south.
      integer, intent(in) :: nx_total, ny_total, nz, j_s, i0, i1
      real(wp), intent(in)    :: v_layer(nx_total, ny_total + 1, nz)
      real(wp), intent(inout) :: v_prev(nx_total, nz)
      integer :: i, k
      do concurrent(k=1:nz, i=i0:i1)
         v_prev(i, k) = v_layer(i, j_s + 1, k)
      end do
   end subroutine snapshot_v_prev_south