TABLE OF CONTENTS
etsf_io_globals_put
NAME
etsf_io_globals_put
FUNCTION
Puts 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_put(ncid, title, history) !Arguments ------------------------------------ integer, intent(intent) :: ncid character(len=etsf_charlen), intent(intent) :: title character(len=etsf_histlen), intent(intent) :: history !Local variables------------------------------- character(len = *), parameter :: my_name = 'etsf_io_globals_put' integer, allocatable :: start(:), count(:) integer, allocatable :: varid(:) character(etsf_charlen) :: flag integer :: len ! ************************************************************************* !DEBUG !write (*,*) 'etsf_io_globals_put : enter' !ENDDEBUG call etsf_io_low_write_att(ncid, etsf_io_low_global_att, "file_format", & & etsf_file_format, & & lstat, error_data = error_data) if (.not. lstat) return call etsf_io_low_write_att(ncid, etsf_io_low_global_att, "Conventions", & & etsf_conventions, & & lstat, error_data = error_data) if (.not. lstat) return call etsf_io_low_write_att(ncid, etsf_io_low_global_att, "title", & & title, & & lstat, error_data = error_data) if (.not. lstat) return call etsf_io_low_write_att(ncid, etsf_io_low_global_att, "file_format_version", & & etsf_file_format_version, & & lstat, error_data = error_data) if (.not. lstat) return call etsf_io_low_write_att(ncid, etsf_io_low_global_att, "history", & & history, & & lstat, error_data = error_data) if (.not. lstat) return !DEBUG !write (*,*) 'etsf_io_globals_put : exit' !ENDDEBUG end subroutine etsf_io_globals_put