fill_mld_epbl Subroutine

public subroutine fill_mld_epbl(state_handle, buf)

EPBL active-mixing-layer depth (m) into the k=1 plane.

Arguments

Type IntentOptional Attributes Name
class(*), intent(in) :: state_handle
real(kind=wp), intent(inout) :: buf(:,:,:)

Calls

proc~~fill_mld_epbl~~CallsGraph proc~fill_mld_epbl fill_mld_epbl proc~fill_2d_impl fill_2d_impl proc~fill_mld_epbl->proc~fill_2d_impl

Source Code

   subroutine fill_mld_epbl(state_handle, buf)
      !! EPBL active-mixing-layer depth (m) into the k=1 plane.
      class(*), intent(in) :: state_handle
      real(wp), intent(inout) :: buf(:, :, :)
      select type (state => state_handle)
      class is (ocean_state_t)
         call fill_2d_impl(state%epbl%mld, buf)
      end select
   end subroutine fill_mld_epbl