ocean_data_input_exit_data Subroutine

private subroutine ocean_data_input_exit_data(this)

Type Bound

ocean_data_input_t

Arguments

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

Calls

proc~~ocean_data_input_exit_data~~CallsGraph proc~ocean_data_input_exit_data ocean_data_input_t%ocean_data_input_exit_data proc~ocean_data_input_exit_data_impl ocean_data_input_exit_data_impl proc~ocean_data_input_exit_data->proc~ocean_data_input_exit_data_impl

Called by

proc~~ocean_data_input_exit_data~~CalledByGraph proc~ocean_data_input_exit_data ocean_data_input_t%ocean_data_input_exit_data proc~ocean_state_exit_data ocean_state_exit_data proc~ocean_state_exit_data->proc~ocean_data_input_exit_data proc~engine_exit_data engine_exit_data proc~engine_exit_data->proc~ocean_state_exit_data proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_exit_data proc~rdb_ocean_destroy rdb_ocean_destroy proc~rdb_ocean_destroy->proc~engine_exit_data proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean

Source Code

   subroutine ocean_data_input_exit_data(this)
      class(ocean_data_input_t), intent(inout) :: this
      select type (this)
      type is (ocean_data_input_t)
         call ocean_data_input_exit_data_impl(this)
      end select
   end subroutine ocean_data_input_exit_data