comin_setup_utils.F90

Go to the documentation of this file.

 
!
!  @authors 01/2023 :: 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_setup_utils
 
  USE iso_c_binding,      ONLY: c_int
  IMPLICIT NONE
 
  PRIVATE
  PUBLIC :: t_comin_setup_version_info, comin_setup_get_version
  PUBLIC :: comin_setup_version_compatible
 
#include "comin_global.inc"
#include "comin_version.inc"
 
  TYPE, BIND(C) :: t_comin_setup_version_info
    INTEGER(kind=c_int) :: version_no_major, version_no_minor, &
         & version_no_patch
  end TYPE t_comin_setup_version_info
 
CONTAINS
 
  !  Convention: The major version has to agree between ComIn and
  !              ICON/3rd party plugins and minor version should be
  !              backward compatible.
  FUNCTION comin_setup_version_compatible(setupA, setupB)  RESULT(lret)
    LOGICAL :: lret
    TYPE(t_comin_setup_version_info), INTENT(IN) :: setupa, setupb
 
    lret = ( setupa%version_no_major == setupb%version_no_major )
  END FUNCTION comin_setup_version_compatible
 
  FUNCTION comin_setup_get_version()
    TYPE(t_comin_setup_version_info) :: comin_setup_get_version
    comin_setup_get_version%version_no_major = comin_version_major
    comin_setup_get_version%version_no_minor = comin_version_minor
    comin_setup_get_version%version_no_patch = comin_version_patch
  END FUNCTION comin_setup_get_version
 
END MODULE comin_setup_utils