apply_clamped_meridional_south Subroutine

private pure subroutine apply_clamped_meridional_south(v_layer, nx_total, ny_total, nz, j_s, i0, i1, clamp_v)

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(inout) :: v_layer(nx_total,ny_total+1,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
real(kind=wp), intent(in) :: clamp_v

Called by

proc~~apply_clamped_meridional_south~~CalledByGraph proc~apply_clamped_meridional_south apply_clamped_meridional_south proc~ocean_obc_apply_baroclinic ocean_obc_apply_baroclinic proc~ocean_obc_apply_baroclinic->proc~apply_clamped_meridional_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 apply_clamped_meridional_south(v_layer, nx_total, ny_total, nz, &
                                                  j_s, i0, i1, clamp_v)
      integer, intent(in) :: nx_total, ny_total, nz, j_s, i0, i1
      real(wp), intent(inout) :: v_layer(nx_total, ny_total + 1, nz)
      real(wp), intent(in) :: clamp_v
      integer :: i, k
      do concurrent(k=1:nz, i=i0:i1)
         v_layer(i, j_s, k) = clamp_v
      end do
   end subroutine apply_clamped_meridional_south