fill_u_centre Subroutine

public subroutine fill_u_centre(state_handle, buf)

C-grid u-face → cell centre by simple 2-point average.

Arguments

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

Calls

proc~~fill_u_centre~~CallsGraph proc~fill_u_centre fill_u_centre proc~fill_u_centre_impl fill_u_centre_impl proc~fill_u_centre->proc~fill_u_centre_impl

Source Code

   subroutine fill_u_centre(state_handle, buf)
      !! C-grid u-face → cell centre by simple 2-point average.
      class(*), intent(in) :: state_handle
      real(wp), intent(inout) :: buf(:, :, :)
      select type (state => state_handle)
      class is (ocean_state_t)
         call fill_u_centre_impl(state%multilayer%u_face_x_layer, buf)
      end select
   end subroutine fill_u_centre