comin_callback_types.F90

Go to the documentation of this file.

 
!
!  @authors 08/2021 :: ICON Community Interface  <comin@icon-model.org>
!
!  SPDX-License-Identifier: BSD-3-Clause
!
!  See LICENSES for license information.
!  Where software is supplied by third parties, it is indicated in the
!  headers of the routines.
!
MODULE comin_callback_types
  USE comin_plugin_types, ONLY: t_comin_plugin_info
  IMPLICIT NONE
 
  PRIVATE
 
  PUBLIC :: comin_callback_routine
  PUBLIC :: t_comin_callback_element
  PUBLIC :: t_comin_callback_context
 
  abstract INTERFACE
    SUBROUTINE comin_callback_routine() BIND(C)
    END SUBROUTINE comin_callback_routine
  END INTERFACE
 
  TYPE :: t_comin_callback_element
    INTEGER :: entry_point_id
    TYPE(t_comin_plugin_info), POINTER :: plugin_info
    PROCEDURE(comin_callback_routine), POINTER, NOPASS:: comin_callback => null()
  END TYPE t_comin_callback_element
 
  !  each entry stores the lists of callbacks registered for the
  !  context (dimension of array)
  TYPE :: t_comin_callback_context
    TYPE(t_comin_callback_element), POINTER :: vl => null()
  END TYPE t_comin_callback_context
 
END MODULE comin_callback_types