gtool_file_h.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
module gtool_file_h
  !-----------------------------------------------------------------------------
  !
  !++ Used modules
  !
  !-----------------------------------------------------------------------------
  use dc_types, only: &
     dp
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedures
  !
  !-----------------------------------------------------------------------------
  !
  !++ included parameters
  !
  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  !--- character length
  integer, public, parameter :: file_hshort =   32
  integer, public, parameter :: file_hmid   =  128
  integer, public, parameter :: file_hlong  = 1024

  !--- data type
  integer, public, parameter :: file_real4    = 0
  integer, public, parameter :: file_real8    = 1
  integer, public, parameter :: file_integer2 = 2
  integer, public, parameter :: file_integer4 = 3
  integer, public, parameter :: file_integer8 = 4

  !--- action type
  integer, public, parameter :: file_fread   = 0
  integer, public, parameter :: file_fwrite  = 1
  integer, public, parameter :: file_fappend = 2

  !--- return codes
  integer, public, parameter :: error_code          = -1
  integer, public, parameter :: success_code        =  0
  integer, public, parameter :: already_closed_code =  1
  integer, public, parameter :: already_existed_code = 2

  integer, public, parameter :: max_rank = 10

  !--- struct for data infomation
  type, public :: datainfo
     character(len=File_HSHORT) :: varname
     character(len=File_HMID)   :: description
     character(len=File_HSHORT) :: units
     integer                    :: datatype
     integer                    :: rank
     character(len=File_HSHORT) :: dim_name(max_rank)
     integer                    :: dim_size(max_rank)
     integer                    :: step
     real(DP)                   :: time_start
     real(DP)                   :: time_end
     character(len=File_HMID)   :: time_units
     integer                    :: fid
  endtype datainfo

  integer, public, parameter :: file_preclist(0:3) = (/ 4, 8, 4, 8 /)

end module gtool_file_h
!-------------------------------------------------------------------------------