scale_file_h.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
#include "scalelib.h"
module scale_file_h
  use scale_precision, only: &
     dp
  implicit none
 
#include "scale_file_const.h"
 
  !--- character length
  integer, public, parameter :: file_hshort = file_hshort
  integer, public, parameter :: file_hmid   = file_hmid 
  integer, public, parameter :: file_hlong  = file_hlong
 
  !--- data type
  integer, public, parameter :: file_real4    = file_real4
  integer, public, parameter :: file_real8    = file_real8
  integer, public, parameter :: file_integer2 = file_integer2
  integer, public, parameter :: file_integer4 = file_integer4
  integer, public, parameter :: file_integer8 = file_integer8
  integer, public, parameter :: file_text     = file_text
 
  !--- action type
  integer, public, parameter :: file_fread   = file_fread
  integer, public, parameter :: file_fwrite  = file_fwrite
  integer, public, parameter :: file_fappend = file_fappend
 
  !--- return codes
  integer, public, parameter :: file_error_code           = error_code
  integer, public, parameter :: file_success_code         = success_code
  integer, public, parameter :: file_already_closed_code  = already_closed_code
  integer, public, parameter :: file_already_existed_code = already_existed_code
 
  !--- max
  integer, public, parameter :: file_file_max = file_max
  integer, public, parameter :: file_var_max  = var_max
  integer, public, parameter :: file_rank_max = rank_max
 
  !--- missing value
#define DBL(v) v
  real(dp), public, parameter :: file_rmiss = dbl(rmiss)_dp
 
  !--- struct for data infomation
  type, public :: datainfo
     character(len=FILE_HSHORT) :: varname
     character(len=FILE_HMID)   :: description
     character(len=FILE_HSHORT) :: units
     character(len=FILE_HMID)   :: standard_name
     integer                    :: datatype
     integer                    :: rank
     character(len=FILE_HSHORT) :: dim_name(rank_max)
     integer                    :: dim_size(rank_max)
     integer                    :: step
     real(dp)                   :: time_start
     real(dp)                   :: time_end
     character(len=FILE_HMID)   :: time_units
     character(len=FILE_HSHORT) :: calendar
     integer                    :: natts
     character(len=FILE_HSHORT) :: att_name(att_max)
     integer                    :: att_type(att_max)
     integer                    :: att_len (att_max)
     integer                    :: fid
  endtype datainfo
 
  integer, public, parameter :: file_preclist(0:3) = (/ 4, 8, 4, 8 /)
 
  character(len=FILE_HSHORT), public :: file_dtypelist(0:4)
 
  data file_dtypelist / "REAL4", "REAL8", "INTEGER2", "INTEGER4", "INTEGER8" /
 
end module scale_file_h