fill_ice_v Subroutine

public subroutine fill_ice_v(state_handle, buf)

Northward sea-ice velocity at T-centres (m/s) — v-face pair averaged to centre, 2-D twin of fill_v_centre. Ice off / not init ⇒ zeros.

Arguments

Type IntentOptional Attributes Name
class(*), intent(in) :: state_handle
real(kind=wp), intent(inout) :: buf(:,:,:)

Calls

proc~~fill_ice_v~~CallsGraph proc~fill_ice_v fill_ice_v proc~fill_ice_v_impl fill_ice_v_impl proc~fill_ice_v->proc~fill_ice_v_impl proc~zero3_impl zero3_impl proc~fill_ice_v->proc~zero3_impl

Source Code

   subroutine fill_ice_v(state_handle, buf)
      !! Northward sea-ice velocity at T-centres (m/s) — v-face pair
      !! averaged to centre, 2-D twin of `fill_v_centre`.  Ice off / not
      !! init ⇒ zeros.
      class(*), intent(in) :: state_handle
      real(wp), intent(inout) :: buf(:, :, :)
      select type (state => state_handle)
      class is (ocean_state_t)
         if (.not. state%ice%is_init) then
            call zero3_impl(buf)
            return
         end if
         call fill_ice_v_impl(state%ice%v_ice, buf)
      end select
   end subroutine fill_ice_v