fill_transport_x Subroutine

public subroutine fill_transport_x(state_handle, buf)

Depth-integrated zonal transport (m²/s): T_x(i, j) = Σ_k h_c · u_c (cell-centre form)

Arguments

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

Calls

proc~~fill_transport_x~~CallsGraph proc~fill_transport_x fill_transport_x proc~fill_transport_x_impl fill_transport_x_impl proc~fill_transport_x->proc~fill_transport_x_impl local local proc~fill_transport_x_impl->local

Source Code

   subroutine fill_transport_x(state_handle, buf)
      !! Depth-integrated zonal transport (m²/s):
      !!   T_x(i, j) = Σ_k h_c · u_c   (cell-centre form)
      class(*), intent(in) :: state_handle
      real(wp), intent(inout) :: buf(:, :, :)
      select type (state => state_handle)
      class is (ocean_state_t)
         call fill_transport_x_impl(state%multilayer%h_layer, &
                                    state%multilayer%u_face_x_layer, buf)
      end select
   end subroutine fill_transport_x