apply_clamped_zonal_west Subroutine

private pure subroutine apply_clamped_zonal_west(u_layer, nx_total, ny_total, nz, i_w, j0, j1, clamp_u)

Arguments

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

Called by

proc~~apply_clamped_zonal_west~~CalledByGraph proc~apply_clamped_zonal_west apply_clamped_zonal_west proc~ocean_obc_apply_baroclinic ocean_obc_apply_baroclinic proc~ocean_obc_apply_baroclinic->proc~apply_clamped_zonal_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 apply_clamped_zonal_west(u_layer, nx_total, ny_total, nz, &
                                            i_w, j0, j1, clamp_u)
      integer, intent(in) :: nx_total, ny_total, nz, i_w, j0, j1
      real(wp), intent(inout) :: u_layer(nx_total + 1, ny_total, nz)
      real(wp), intent(in) :: clamp_u
      integer :: j, k
      do concurrent(k=1:nz, j=j0:j1)
         u_layer(i_w, j, k) = clamp_u
      end do
   end subroutine apply_clamped_zonal_west