gtdim_name2ord.f90

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

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

Methods

gtdim_name2ord  

Included Modules

gtdata_types dc_string an_generic gt_map

Public Instance methods

gtdim_name2ord(var, name) result(result)
result :integer
: 個別層に問い合わせて次元番号を得ようと試みる。 map 表から次元名を使って次元番号を得ようと試みる。
var :type(gt_variable), intent(in)
name :character(len = *), intent(in)

[Source]


integer function gtdim_name2ord(var, name) result(result)

    implicit none
    type(gt_variable), intent(in):: var
    character(len = *), intent(in):: name
    integer:: class, cid
    result = -1
    if (name == ' ') return
    result = stoi(name)
    if (result /= 0) return
    ! 個別層に問い合わせて次元番号を得ようと試みる。
    call var_class(var, class, cid)
    if (class == vtb_class_netcdf) then
        result = search_dim(an_variable(cid), name)
    endif
    ! map 表から次元名を使って次元番号を得ようと試みる。
end function

[Validate]