ice_ocean_heat_flux_components_impl Subroutine

private pure subroutine ice_ocean_heat_flux_components_impl(heat_added, heat_flux_diag, nx, ny)

Components-on branch: full-array overwrite of the heat_added COMPONENT (not Q_heat) — no _const term (the assembler adds it). Explicit-shape + decl-order.

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(inout) :: heat_added(nx,ny)
real(kind=wp), intent(in) :: heat_flux_diag(nx,ny)
integer, intent(in) :: nx
integer, intent(in) :: ny

Called by

proc~~ice_ocean_heat_flux_components_impl~~CalledByGraph proc~ice_ocean_heat_flux_components_impl ice_ocean_heat_flux_components_impl proc~ice_ocean_heat_flux ice_ocean_heat_flux proc~ice_ocean_heat_flux->proc~ice_ocean_heat_flux_components_impl proc~engine_step_ice engine_step_ice proc~engine_step_ice->proc~ice_ocean_heat_flux proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_step_ice proc~rdb_ocean_step rdb_ocean_step proc~rdb_ocean_step->proc~engine_step_ice proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean

Variables

Type Visibility Attributes Name Initial
integer, private :: i
integer, private :: j

Source Code

   pure subroutine ice_ocean_heat_flux_components_impl(heat_added, heat_flux_diag, nx, ny)
      !! Components-on branch: full-array overwrite of the `heat_added`
      !! COMPONENT (not `Q_heat`) — no `_const` term (the assembler adds
      !! it).  Explicit-shape + decl-order.
      integer, intent(in) :: nx, ny
      real(wp), intent(inout) :: heat_added(nx, ny)
      real(wp), intent(in) :: heat_flux_diag(nx, ny)
      integer :: i, j

      do concurrent(j=1:ny, i=1:nx)
         heat_added(i, j) = heat_flux_diag(i, j)
      end do
   end subroutine ice_ocean_heat_flux_components_impl