seed_land_face_vel_2d_impl Subroutine

private pure subroutine seed_land_face_vel_2d_impl(fld, wet_face)

2D (barotropic) variant of seed_land_face_vel_impl.

Arguments

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

Called by

proc~~seed_land_face_vel_2d_impl~~CalledByGraph proc~seed_land_face_vel_2d_impl seed_land_face_vel_2d_impl proc~ocean_state_seed_land_cells ocean_state_seed_land_cells proc~ocean_state_seed_land_cells->proc~seed_land_face_vel_2d_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 :: nf1
integer, private :: nf2

Source Code

   pure subroutine seed_land_face_vel_2d_impl(fld, wet_face)
      !! 2D (barotropic) variant of `seed_land_face_vel_impl`.
      real(wp), intent(inout) :: fld(:, :)
      real(wp), intent(in) :: wet_face(:, :)
      integer :: i, j, nf1, nf2
      nf1 = size(fld, 1)
      nf2 = size(fld, 2)
      do j = 1, nf2
         do i = 1, nf1
            fld(i, j) = fld(i, j)*wet_face(i, j)
         end do
      end do
   end subroutine seed_land_face_vel_2d_impl