seed_land_h_floor_impl Subroutine

private pure subroutine seed_land_h_floor_impl(h_layer, wet_mask, nz)

Floor land-cell layer thickness to H_VANISHED (never 0 ⇒ no 1/0 in any per-layer divide). Wet cells untouched.

Arguments

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

Called by

proc~~seed_land_h_floor_impl~~CalledByGraph proc~seed_land_h_floor_impl seed_land_h_floor_impl proc~ocean_state_seed_land_cells ocean_state_seed_land_cells proc~ocean_state_seed_land_cells->proc~seed_land_h_floor_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 :: nx
integer, private :: ny

Source Code

   pure subroutine seed_land_h_floor_impl(h_layer, wet_mask, nz)
      !! Floor land-cell layer thickness to `H_VANISHED` (never 0 ⇒ no
      !! 1/0 in any per-layer divide).  Wet cells untouched.
      integer, intent(in) :: nz
      real(wp), intent(inout) :: h_layer(:, :, :)
      real(wp), intent(in) :: wet_mask(:, :)
      integer :: i, j, k, nx, ny
      nx = size(h_layer, 1)
      ny = size(h_layer, 2)
      do k = 1, nz
         do j = 1, ny
            do i = 1, nx
               if (wet_mask(i, j) == 0.0_wp) h_layer(i, j, k) = H_VANISHED
            end do
         end do
      end do
   end subroutine seed_land_h_floor_impl