evp_workspace_enter_data Subroutine

private subroutine evp_workspace_enter_data(this)

Type Bound

evp_workspace_t

Arguments

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

Calls

proc~~evp_workspace_enter_data~~CallsGraph proc~evp_workspace_enter_data evp_workspace_t%evp_workspace_enter_data proc~evp_workspace_enter_data_impl evp_workspace_enter_data_impl proc~evp_workspace_enter_data->proc~evp_workspace_enter_data_impl

Called by

proc~~evp_workspace_enter_data~~CalledByGraph proc~evp_workspace_enter_data evp_workspace_t%evp_workspace_enter_data proc~ocean_sea_ice_enter_data_impl ocean_sea_ice_enter_data_impl proc~ocean_sea_ice_enter_data_impl->proc~evp_workspace_enter_data proc~ocean_sea_ice_enter_data ocean_sea_ice_t%ocean_sea_ice_enter_data proc~ocean_sea_ice_enter_data->proc~ocean_sea_ice_enter_data_impl

Source Code

   subroutine evp_workspace_enter_data(this)
      ! Poly TBP delegating to a `type(...)`-arg `_impl` (AMD-crash rule,
      ! mirrors `ocean_sea_ice_enter_data`).
      class(evp_workspace_t), intent(inout) :: this
      select type (this)
      type is (evp_workspace_t)
         call evp_workspace_enter_data_impl(this)
      end select
   end subroutine evp_workspace_enter_data