TABLE OF CONTENTS


etsf_io_globals_get

[ Top ] [ Methods ]

NAME

etsf_io_globals_get

FUNCTION

Gets all ETSF global attributes.

INPUTS

argin(sizein)=description

OUTPUT

argout(sizeout)=description

NOTES

This file has been automatically generated by the autogen_subroutines.py script. Any change you would bring to it will systematically be overwritten.

SOURCE

subroutine etsf_io_globals_get(ncid, conventions, file_format, file_format_version, &
  & title, history)

  !Arguments ------------------------------------
  integer, intent(intent) :: ncid
  character(len=etsf_charlen), intent(out) :: conventions
  character(len=etsf_charlen), intent(out) :: file_format
  real, intent(out) :: file_format_version
  character(len=etsf_charlen), intent(out) :: title
  character(len=etsf_histlen), intent(out) :: history

  !Local variables-------------------------------
  character(len = *), parameter :: my_name = 'etsf_io_globals_get'
  integer, allocatable          :: start(:), count(:)
  integer, allocatable          :: varid(:)
  character(etsf_charlen)       :: flag
  integer                       :: len


  ! *************************************************************************

!DEBUG
!write (*,*) 'etsf_io_globals_get : enter'
!ENDDEBUG

  call etsf_io_low_read_att(ncid, etsf_io_low_global_att, "file_format", &
                           & etsf_charlen, file_format, &
                           & lstat, error_data = error_data)
  if (.not. lstat) return
  
  call etsf_io_low_read_att(ncid, etsf_io_low_global_att, "Conventions", &
                           & etsf_charlen, conventions, &
                           & lstat, error_data = error_data)
  if (.not. lstat) return
  
  call etsf_io_low_read_att(ncid, etsf_io_low_global_att, "title", &
                           & etsf_charlen, title, &
                           & lstat, error_data = error_data)
  if (.not. lstat) return
  
  call etsf_io_low_read_att(ncid, etsf_io_low_global_att, "file_format_version", &
                           & file_format_version, &
                           & lstat, error_data = error_data)
  if (.not. lstat) return
  
  call etsf_io_low_read_att(ncid, etsf_io_low_global_att, "history", &
                           & etsf_histlen, history, &
                           & lstat, error_data = error_data)
  if (.not. lstat) return


!DEBUG
!write (*,*) 'etsf_io_globals_get : exit'
!ENDDEBUG

end subroutine etsf_io_globals_get