Data manipulation (gtool)

gt4f90io sample code 

program sample
  use gt4_history                                ! module declaration

  [type declaration]
     ......

  call HistoryCreate(   &                       ! create output files
  file="sample.nc", title="gt4_history", &
  .....,  dims=(/'x', 't '/), dimsizes=(/30, 0/), &
  ..... )
  call HistoryAddVariable(  &                 ! defnition of variable
  varname='temp', dims=(/'x', 't '/), .....  )

  [time integration loop]
     ....
  call HistoryPut(  &
  varname='temp', value=temp)         ! output the value of variable

  [time integration loop end]

  call HistoryClose                                ! end of output 
  stop
end program sample