ocean_data_input_update_3d Subroutine

public subroutine ocean_data_input_update_3d(this, id, t, n1, n2, n3, dest)

3-D twin of update_2d.

Arguments

Type IntentOptional Attributes Name
class(ocean_data_input_t), intent(in) :: this
integer, intent(in) :: id
real(kind=wp), intent(in) :: t
integer, intent(in) :: n1
integer, intent(in) :: n2
integer, intent(in) :: n3
real(kind=wp), intent(inout) :: dest(n1,n2,n3)

Calls

proc~~ocean_data_input_update_3d~~CallsGraph proc~ocean_data_input_update_3d ocean_data_input_update_3d proc~check_fresh check_fresh proc~ocean_data_input_update_3d->proc~check_fresh proc~check_registered check_registered proc~ocean_data_input_update_3d->proc~check_registered proc~data_input_blend_3d_impl data_input_blend_3d_impl proc~ocean_data_input_update_3d->proc~data_input_blend_3d_impl error error proc~check_fresh->error to_string to_string proc~check_fresh->to_string proc~check_registered->error proc~check_registered->to_string

Source Code

   subroutine ocean_data_input_update_3d(this, id, t, n1, n2, n3, dest)
      !! 3-D twin of `update_2d`.
      class(ocean_data_input_t), intent(in) :: this
      integer, intent(in) :: id, n1, n2, n3
      real(wp), intent(in) :: t
      real(wp), intent(inout) :: dest(n1, n2, n3)

      call check_registered(this, id, is_3d=.true., n1=n1, n2=n2, n3=n3)
      call check_fresh(this, id, t)
      call data_input_blend_3d_impl(this%fields(id)%nx, this%fields(id)%ny, this%fields(id)%nz, &
                                    n1, n2, n3, &
                                    this%fields(id)%dest_i0, this%fields(id)%dest_j0, &
                                    this%fields(id)%f0, this%fields(id)%f1, &
                                    this%fields(id)%w, dest)
   end subroutine ocean_data_input_update_3d