fill_getter_2d Subroutine

private subroutine fill_getter_2d(ptr, nx, ny, gen, arr, step)

2D counterpart of fill_getter_3d.

Arguments

Type IntentOptional Attributes Name
type(c_ptr), intent(out) :: ptr
integer(kind=c_int), intent(out) :: nx
integer(kind=c_int), intent(out) :: ny
integer(kind=c_int), intent(out) :: gen
real(kind=wp), intent(in), pointer :: arr(:,:)
integer, intent(in) :: step

Called by

proc~~fill_getter_2d~~CalledByGraph proc~fill_getter_2d fill_getter_2d proc~rdb_ocean_get_b_ptr rdb_ocean_get_b_ptr proc~rdb_ocean_get_b_ptr->proc~fill_getter_2d proc~rdb_ocean_get_bt_eta_ptr rdb_ocean_get_bt_eta_ptr proc~rdb_ocean_get_bt_eta_ptr->proc~fill_getter_2d proc~rdb_ocean_get_q_heat_ptr rdb_ocean_get_q_heat_ptr proc~rdb_ocean_get_q_heat_ptr->proc~fill_getter_2d proc~rdb_ocean_get_q_salt_ptr rdb_ocean_get_q_salt_ptr proc~rdb_ocean_get_q_salt_ptr->proc~fill_getter_2d proc~rdb_ocean_get_tau_x_ptr rdb_ocean_get_tau_x_ptr proc~rdb_ocean_get_tau_x_ptr->proc~fill_getter_2d proc~rdb_ocean_get_tau_y_ptr rdb_ocean_get_tau_y_ptr proc~rdb_ocean_get_tau_y_ptr->proc~fill_getter_2d proc~rdb_ocean_get_wet_t_ptr rdb_ocean_get_wet_t_ptr proc~rdb_ocean_get_wet_t_ptr->proc~fill_getter_2d

Source Code

   subroutine fill_getter_2d(ptr, nx, ny, gen, arr, step)
      !! 2D counterpart of `fill_getter_3d`.
      type(c_ptr), intent(out) :: ptr
      integer(c_int), intent(out) :: nx, ny, gen
      real(wp), pointer, intent(in) :: arr(:, :)
      integer, intent(in) :: step

      ptr = c_loc(arr(1, 1))
      nx = int(size(arr, 1), c_int)
      ny = int(size(arr, 2), c_int)
      gen = int(step, c_int)
   end subroutine fill_getter_2d