IOModule.f90

Go to the documentation of this file.

module iomodule
!
!       Constants and variables used in the IO routines.
!
    use constants, only: inttype, realtype, mpi_offset_kind
    implicit none
    save
!
!       Definition of the parameters.
!
    ! The maximum amount of data a processor can read in one call
    ! to su_file_read. This value is 2Gbyte.
 
    integer(kind=mpi_offset_kind), parameter :: &
        maxsizeio = 2147483648_mpi_offset_kind
 
    ! Definition of the possibilities for storing data.
 
    integer(kind=intType), parameter :: nodedata = 1
    integer(kind=intType), parameter :: celldatanohalo = 2
    integer(kind=intType), parameter :: celldataplushalo = 3
 
!
!       Definition of the derived datatype IOType, which is used to
!       to make the IO as general as needed.
!
    type iotype
 
        ! pointerOffset: offset due to the usage of a pointer to a
        !                subarray. The Fortran standard is such that
        !                the starting indices of the pointer array
        !                is 1, no matter what the original starting
        !                index is. This can lead to a shift in the
        !                indices.
        ! w:             The variable(s) to be read/written.
 
        integer(kind=intType) :: pointeroffset
 
        real(kind=realtype), dimension(:, :, :, :), pointer :: w
 
    end type iotype
 
!
!       Definition of the variables used for both CGNS
!
    ! IOVar(nDom,nIOFiles): Array of the derived datatype IOType to
    !                       facilitate a general IO implementation.
 
    type(iotype), dimension(:, :), allocatable :: iovar
 
end module iomodule