meke_zero_2d Subroutine

private pure subroutine meke_zero_2d(n1, n2, a)

Zero a device-resident 2D workspace (absent-source fallback).

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n1
integer, intent(in) :: n2
real(kind=wp), intent(out) :: a(n1,n2)

Called by

proc~~meke_zero_2d~~CalledByGraph proc~meke_zero_2d meke_zero_2d proc~meke_step meke_step proc~meke_step->proc~meke_zero_2d proc~run_meke_step run_meke_step proc~run_meke_step->proc~meke_step proc~ocean_dyn_step_split ocean_dyn_step_split proc~ocean_dyn_step_split->proc~run_meke_step proc~engine_step engine_step proc~engine_step->proc~ocean_dyn_step_split proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_step proc~rdb_ocean_step rdb_ocean_step proc~rdb_ocean_step->proc~engine_step

Variables

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

Source Code

   pure subroutine meke_zero_2d(n1, n2, a)
      !! Zero a device-resident 2D workspace (absent-source fallback).
      integer, intent(in) :: n1, n2
      real(wp), intent(out) :: a(n1, n2)
      integer :: i, j
      do concurrent(j=1:n2, i=1:n1)
         a(i, j) = 0.0_wp
      end do
   end subroutine meke_zero_2d