! gr_types.f90 - derived type interface for grads variable interface
! Copyright (C) GFD Dennou Club, 2000.  All rights reserved
! vi: set ts=8 sw=4:

module gr_types

    implicit none
    integer, parameter:: GR_VARNAME_MAX = 8
    integer, parameter:: GR_NDIMS_ALL = 4

    type GR_VARIABLE
        !
        ! ID 情報
        !        変数 (gr_variable 実体) は (/fileid, varname/) で
        !        同定される。正当な変数の fileid は必ず正である。
        !  
        integer:: fileid
        character(len = GR_VARNAME_MAX):: varname
        !
        ! 入出力範囲限定
        !       変数は必ず 4 次元であるためこれらの配列は固定長で確保される。
        !  
        integer:: start(GR_NDIMS_ALL)
        integer:: count(GR_NDIMS_ALL)
        integer:: stride(GR_NDIMS_ALL)
        integer:: allcount(GR_NDIMS_ALL)
    end type

end module
