ice_ocean_brine_flux_components_impl Subroutine

private pure subroutine ice_ocean_brine_flux_components_impl(salt_flux, salt_flux_diag, nx, ny)

Components-on branch: full-array overwrite of the salt_flux COMPONENT (not Q_salt) — same sign convention, no _const term (the assembler adds it). Explicit-shape + decl-order.

Arguments

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

Called by

proc~~ice_ocean_brine_flux_components_impl~~CalledByGraph proc~ice_ocean_brine_flux_components_impl ice_ocean_brine_flux_components_impl proc~ice_ocean_brine_flux ice_ocean_brine_flux proc~ice_ocean_brine_flux->proc~ice_ocean_brine_flux_components_impl proc~engine_step_ice engine_step_ice proc~engine_step_ice->proc~ice_ocean_brine_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_brine_flux_components_impl(salt_flux, salt_flux_diag, nx, ny)
      !! Components-on branch: full-array overwrite of the `salt_flux`
      !! COMPONENT (not `Q_salt`) — same sign convention, no `_const`
      !! term (the assembler adds it).  Explicit-shape + decl-order.
      integer, intent(in) :: nx, ny
      real(wp), intent(inout) :: salt_flux(nx, ny)
      real(wp), intent(in) :: salt_flux_diag(nx, ny)
      integer :: i, j

      do concurrent(j=1:ny, i=1:nx)
         salt_flux(i, j) = salt_flux_diag(i, j)
      end do
   end subroutine ice_ocean_brine_flux_components_impl