fill_bbl_constants Subroutine

private pure subroutine fill_bbl_constants(kv_bbl, bbl_thick, kv_val, thick_val, nu, nv)

The historical constant-piston glue (bbl_per_face = .false.).

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(inout) :: kv_bbl(nu,nv)
real(kind=wp), intent(inout) :: bbl_thick(nu,nv)
real(kind=wp), intent(in) :: kv_val
real(kind=wp), intent(in) :: thick_val
integer, intent(in) :: nu
integer, intent(in) :: nv

Called by

proc~~fill_bbl_constants~~CalledByGraph proc~fill_bbl_constants fill_bbl_constants proc~vdiff_apply_momentum vdiff_apply_momentum proc~vdiff_apply_momentum->proc~fill_bbl_constants proc~visc_rem_precompute visc_rem_precompute proc~visc_rem_precompute->proc~vdiff_apply_momentum proc~vmix_apply_in_stage vmix_apply_in_stage proc~vmix_apply_in_stage->proc~vdiff_apply_momentum proc~vmix_apply_in_stage->proc~visc_rem_precompute proc~run_stage run_stage proc~run_stage->proc~vmix_apply_in_stage proc~run_stage_split run_stage_split proc~run_stage_split->proc~visc_rem_precompute proc~run_stage_split->proc~vmix_apply_in_stage proc~ocean_dyn_step ocean_dyn_step proc~ocean_dyn_step->proc~run_stage 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 proc~engine_step->proc~ocean_dyn_step_split

Variables

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

Source Code

   pure subroutine fill_bbl_constants(kv_bbl, bbl_thick, kv_val, thick_val, nu, nv)
      !! The historical constant-piston glue (`bbl_per_face = .false.`).
      integer, intent(in) :: nu, nv
      real(wp), intent(inout) :: kv_bbl(nu, nv)
      real(wp), intent(inout) :: bbl_thick(nu, nv)
      real(wp), intent(in) :: kv_val, thick_val
      integer :: i, j

      do concurrent(j=1:nv, i=1:nu)
         kv_bbl(i, j) = kv_val
         bbl_thick(i, j) = thick_val
      end do
   end subroutine fill_bbl_constants