gtvardeldim.f90

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

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

Methods

gtvardeldim  

Included Modules

gtdata_types gt_map dc_trace

Public Instance methods

gtvardeldim(var, dimord, err)
var :type(gt_variable), intent(in)
dimord :integer, intent(in)
err :logical, intent(out)

[Source]

subroutine gtvardeldim(var, dimord, err)

    implicit none
    type(gt_variable), intent(in):: var
    integer, intent(in):: dimord
    logical, intent(out):: err
    type(gt_dimmap), allocatable:: map(:)
    type(gt_dimmap):: tmpmap
    integer:: ndimsp, stat
    character(*), parameter:: subname = 'gtvardeldim'
continue
    err = .true.
    call beginsub(subname)
    if (dimord < 1) then
        call endsub(subname, "negative dimord=%d invalid", i=(/dimord/))
        return
    endif
    call map_lookup(var, ndims=ndimsp)
    if (ndimsp <= 0) then
        call endsub(subname, "variable invalid")
        return
    else if (dimord > ndimsp) then
        call endsub(subname, "dimord=%d not exist", i=(/dimord/))
        return
    endif

    allocate(map(ndimsp))
    call map_lookup(var, map=map)
    tmpmap = map(dimord)
    map(dimord: ndimsp-1) = map(dimord+1: ndimsp)
    map(ndimsp) = tmpmap
    call map_set(var, map, stat)
    deallocate(map)

    call map_set_ndims(var, ndims = ndimsp - 1, stat=stat)
    err = stat /= 0
    call endsub(subname)
end subroutine

[Validate]