fill_ke_total Subroutine

public subroutine fill_ke_total(state_handle, buf)

Depth-integrated kinetic energy at each cell: KE_total(i, j) = Σ_k 0.5 · h_layer(k) · (u_c² + v_c²)

Arguments

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

Calls

proc~~fill_ke_total~~CallsGraph proc~fill_ke_total fill_ke_total proc~fill_ke_total_impl fill_ke_total_impl proc~fill_ke_total->proc~fill_ke_total_impl local local proc~fill_ke_total_impl->local

Source Code

   subroutine fill_ke_total(state_handle, buf)
      !! Depth-integrated kinetic energy at each cell:
      !!   KE_total(i, j) = Σ_k 0.5 · h_layer(k) · (u_c² + v_c²)
      class(*), intent(in) :: state_handle
      real(wp), intent(inout) :: buf(:, :, :)
      select type (state => state_handle)
      class is (ocean_state_t)
         call fill_ke_total_impl(state%multilayer%h_layer, &
                                 state%multilayer%u_face_x_layer, &
                                 state%multilayer%v_face_y_layer, buf)
      end select
   end subroutine fill_ke_total