TABLE OF CONTENTS


etsf_io_globals_put

[ Top ] [ Methods ]

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