gdncxtypename.f90 File Reference

netCDF 型 ID を型名文字列に変換 More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gdncxtypename (ixtype, xtype)

Detailed Description

netCDF 型 ID を型名文字列に変換

Author

GFD Dennou Club

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. See COPYRIGHT in detail

Definition in file gdncxtypename.f90.

Function/Subroutine Documentation

gdncxtypename()

subroutine gdncxtypename	(	integer, intent(in)	ixtype,
		character(*), intent(out)	xtype )

型 ID から netCDF 型名を取得

netCDF 型識別子を文字列表現に変換します。

Parameters

[in]	ixtype	netCDF 型識別子
[out]	xtype	型名文字列

Definition at line 32 of file gdncxtypename.f90.

  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