TABLE OF CONTENTS
etsf_io_globals_get
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