gdncxtypename.f90

Go to the documentation of this file.

!> @file gdncxtypename.f90
!>
!> @author GFD Dennou Club
!> @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 Convert netCDF type ID to type name string
!> @enden
!>
!> @ja
!> @brief netCDF 型 ID を型名文字列に変換
!> @endja
!>
 
!>
!> @en
!> @brief Get netCDF type name from type ID
!>
!> Converts a netCDF type identifier to its string representation.
!> @enden
!>
!> @ja
!> @brief 型 ID から netCDF 型名を取得
!>
!> netCDF 型識別子を文字列表現に変換します。
!> @endja
!>
!> @param[in]  ixtype @en netCDF type identifier @enden @ja netCDF 型識別子 @endja
!> @param[out] xtype  @en Type name string @enden @ja 型名文字列 @endja
!>
subroutine gdncxtypename(ixtype, xtype)
  use netcdf, only: &
    & nf90_byte,  &
    & nf90_char,  &
    & nf90_short, &
    & nf90_int,   &
    & nf90_float, &
    & nf90_double
  implicit none
  integer, intent(in):: ixtype
  character(*), intent(out):: xtype
  select case(ixtype)
  case(0)
    xtype = "error"
  case(nf90_char)
    xtype = "char"
  case(nf90_byte)
    xtype = "byte"
  case(nf90_short)
    xtype = "short"
  case(nf90_int)
    xtype = "int"
  case(nf90_float)
    xtype = "float"
  case(nf90_double)
    xtype = "double"
  case default
    xtype = ""
  end select
end subroutine gdncxtypename