gdncxtypename.f90 File Reference

Convert netCDF type ID to type name string . More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gdncxtypename (ixtype, xtype)

Detailed Description

Convert netCDF type ID to type name string

.

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 )

Get netCDF type name from type ID

Converts a netCDF type identifier to its string representation.

Parameters

[in]	ixtype	netCDF type identifier
[out]	xtype	Type name string

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