gtvarsliceauto.f90

Path: src/gtvarsliceauto.f90
Last Update: Wed Jul 20 18:22:24 JST 2005

Copyright (C) GFD Dennou Club, 2000. All rights reserved.

Methods

GTVarSliceAuto  

Included Modules

gtdata_types gtdata_generic

Public Instance methods

GTVarSliceAuto(var, compatible)
var :type(GT_VARIABLE), intent(inout)
compatible :type(GT_VARIABLE), intent(in), optional

入出力範囲をおまかせ指示

[Source]

subroutine GTVarSliceAuto(var, compatible)

    type(GT_VARIABLE), intent(inout):: var
    type(GT_VARIABLE), intent(in), optional:: compatible
    integer:: nd, i
    integer, allocatable:: start(:), count(:), stride(:)
    call Inquire(var, alldims=nd)
    if (nd <= 0) return
    allocate(start(nd), count(nd), stride(nd))
    if (present(compatible)) then
        call Get_Slice(compatible, start, count, stride)
        do, i = 1, nd
            call GTVarSlice(var, i, start(i), count(i), stride(i))
        enddo
    else
        call Get_Slice(var, start, count, stride)
        do, i = 1, nd
            if (count(i) < 1) count(i) = 1
            call GTVarSlice(var, i, start(i), count(i), stride(i))
        enddo
    endif
    deallocate(start, count, stride)
end subroutine

[Validate]