ocean_hvisc_enter_data Subroutine

private subroutine ocean_hvisc_enter_data(this)

Type Bound

ocean_horizontal_viscosity_t

Arguments

Type IntentOptional Attributes Name
class(ocean_horizontal_viscosity_t), intent(inout) :: this

Calls

proc~~ocean_hvisc_enter_data~~CallsGraph proc~ocean_hvisc_enter_data ocean_horizontal_viscosity_t%ocean_hvisc_enter_data proc~ocean_hvisc_enter_data_impl ocean_hvisc_enter_data_impl proc~ocean_hvisc_enter_data->proc~ocean_hvisc_enter_data_impl proc~scratch_3d_buffer_enter_data_impl scratch_3d_buffer_enter_data_impl proc~ocean_hvisc_enter_data_impl->proc~scratch_3d_buffer_enter_data_impl

Source Code

   subroutine ocean_hvisc_enter_data(this)
      ! Bare `copyin(this)` removed (stack-descriptor map → AMD cross-slot
      ! overlap; see ocean_surfstress_enter_data).  Scratch buffers attach
      ! below; slot-descriptor presence comes from the root copyin(state)
      ! in ocean_state_enter_data.
      class(ocean_horizontal_viscosity_t), intent(inout) :: this
      select type (this)
      type is (ocean_horizontal_viscosity_t)
         call ocean_hvisc_enter_data_impl(this)
      end select
   end subroutine ocean_hvisc_enter_data