seed_land_face_vel_impl Subroutine

private pure subroutine seed_land_face_vel_impl(fld, wet_face, nz)

Zero a per-layer face field ((nf1,nf2,nz)) at land faces (wet_face==0). wet_face is the matching wet_u/wet_v.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(inout) :: fld(:,:,:)
real(kind=wp), intent(in) :: wet_face(:,:)
integer, intent(in) :: nz

Called by

proc~~seed_land_face_vel_impl~~CalledByGraph proc~seed_land_face_vel_impl seed_land_face_vel_impl proc~ocean_state_seed_land_cells ocean_state_seed_land_cells proc~ocean_state_seed_land_cells->proc~seed_land_face_vel_impl proc~configure_ocean_land_mask configure_ocean_land_mask proc~configure_ocean_land_mask->proc~ocean_state_seed_land_cells proc~engine_setup engine_setup proc~engine_setup->proc~configure_ocean_land_mask proc~complete_ocean_create complete_ocean_create proc~complete_ocean_create->proc~engine_setup proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_setup proc~driver_validate driver_validate proc~driver_validate->proc~engine_setup proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean proc~rdb_ocean_create_finalize rdb_ocean_create_finalize proc~rdb_ocean_create_finalize->proc~complete_ocean_create proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~complete_ocean_create

Variables

Type Visibility Attributes Name Initial
integer, private :: i
integer, private :: j
integer, private :: k
integer, private :: nf1
integer, private :: nf2

Source Code

   pure subroutine seed_land_face_vel_impl(fld, wet_face, nz)
      !! Zero a per-layer face field (`(nf1,nf2,nz)`) at land faces
      !! (`wet_face==0`).  `wet_face` is the matching `wet_u`/`wet_v`.
      integer, intent(in) :: nz
      real(wp), intent(inout) :: fld(:, :, :)
      real(wp), intent(in) :: wet_face(:, :)
      integer :: i, j, k, nf1, nf2
      nf1 = size(fld, 1)
      nf2 = size(fld, 2)
      do k = 1, nz
         do j = 1, nf2
            do i = 1, nf1
               fld(i, j, k) = fld(i, j, k)*wet_face(i, j)
            end do
         end do
      end do
   end subroutine seed_land_face_vel_impl