data_input_blend_2d_impl Subroutine

private pure subroutine data_input_blend_2d_impl(nxs, nys, dn1, dn2, i0, j0, f0, f1, w, dest)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nxs
integer, intent(in) :: nys
integer, intent(in) :: dn1
integer, intent(in) :: dn2
integer, intent(in) :: i0
integer, intent(in) :: j0
real(kind=wp), intent(in) :: f0(nxs,nys)
real(kind=wp), intent(in) :: f1(nxs,nys)
real(kind=wp), intent(in) :: w
real(kind=wp), intent(inout) :: dest(dn1,dn2)

Called by

proc~~data_input_blend_2d_impl~~CalledByGraph proc~data_input_blend_2d_impl data_input_blend_2d_impl proc~ocean_data_input_update_2d ocean_data_input_update_2d proc~ocean_data_input_update_2d->proc~data_input_blend_2d_impl proc~ocean_data_forcing_apply ocean_data_forcing_apply proc~ocean_data_forcing_apply->proc~ocean_data_input_update_2d proc~engine_step engine_step proc~engine_step->proc~ocean_data_forcing_apply 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 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 data_input_blend_2d_impl(nxs, nys, dn1, dn2, i0, j0, f0, f1, w, dest)
      integer, intent(in) :: nxs, nys, dn1, dn2, i0, j0
      real(wp), intent(in) :: f0(nxs, nys), f1(nxs, nys)
      real(wp), intent(in) :: w
      real(wp), intent(inout) :: dest(dn1, dn2)
      integer :: i, j
      do concurrent(j=1:nys, i=1:nxs)
         dest(i0 + i - 1, j0 + j - 1) = (1.0_wp - w)*f0(i, j) + w*f1(i, j)
      end do
   end subroutine data_input_blend_2d_impl