gtvarequivalent.f90

Go to the documentation of this file.

!> @file gtvarequivalent.f90
!>
!> @author Eizi TOYODA, Yasuhiro MORIKAWA
!> @copyright Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. See [COPYRIGHT](@ref COPYRIGHT) in detail
!>
!> @en
!> @brief Equivalence check for GT_VARIABLE type variables
!>
!> This function is provided as gtdata_generic#operator(.equivalent.)
!> through gtdata_generic.
!> @enden
!>
!> @ja
!> @brief GT_VARIABLE 型変数の同値判定
!>
!> この関数は gtdata_generic から
!> gtdata_generic#operator(.equivalent.) として提供されます。
!> @endja
!>
 
!>
!> @en
!> @brief Check equivalence of two GT_VARIABLE type variables
!>
!> Compares variables var1 and var2, returns .true. if equivalent,
!> .false. otherwise.
!> @param[in] var1 First variable handle
!> @param[in] var2 Second variable handle
!> @return .true. if equivalent, .false. otherwise
!> @enden
!>
!> @ja
!> @brief 2つの GT_VARIABLE 型変数の同値判定
!>
!> 変数 var1, var2 を比較し、同値である場合は .true. を、
!> そうで無い場合は .false. を返します。
!> @param[in] var1 1番目の変数ハンドル
!> @param[in] var2 2番目の変数ハンドル
!> @return 同値の場合 .true.、それ以外は .false.
!> @endja
!>
logical function gtvarequivalent(var1, var2) result(result)
  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: var_class
  type(gt_variable), intent(in):: var1, var2
  integer:: class1, class2, cid1, cid2
continue
  call var_class(var1, class1, cid1)
  call var_class(var2, class2, cid2)
  result = (class1 == class2) .and. (cid1 == cid2)
end function gtvarequivalent