anvaropen.f90

Path: anvaropen.f90
Last Update: Sat Dec 30 17:21:22 JST 2006

netCDF 変数のオープン

Authors:Yasuhiro MORIKAWA, Eizi TOYODA
Version:$Id: anvaropen.f90,v 1.2 2006/12/30 08:21:22 morikawa Exp $
Tag Name:$Name: gt4f90io-20070616 $
Copyright:Copyright (C) GFD Dennou Club, 2000-2006. All rights reserved.
License:See COPYRIGHT

以下のサブルーチン, 関数は an_generic から提供されます。

Methods

ANVarOpen  

Included Modules

dc_types an_types an_vartable an_file dc_url dc_error dc_trace netcdf_f77

Public Instance methods

Subroutine :recursive
var :type(AN_VARIABLE), intent(out)
url :character(len = *), intent(in)
writable :logical, intent(in), optional
err :logical, intent(out), optional

[Source]

recursive subroutine ANVarOpen(var, url, writable, err)
  use dc_types, only: STRING
  use an_types, only: AN_VARIABLE, AN_VARIABLE_SEARCH
  use an_vartable, only: vtable_add
  use an_file, only: ANFileOpen
  use dc_url, only: UrlSplit
  use dc_error, only: StoreError
  use dc_trace, only: BeginSub, EndSub
  use netcdf_f77, only: NF_NOERR, NF_MAX_NAME, NF_ENOTVAR, NF_EBADDIM, nf_inq_varid, nf_inq_nvars, nf_inq_varname, nf_inq_dimid
  implicit none
  type(AN_VARIABLE), intent(out):: var
  character(len = *), intent(in):: url
  logical, intent(in), optional:: writable
  logical, intent(out), optional:: err
  character(len = STRING):: filename, varname
  character(len = NF_MAX_NAME):: dimname
  integer:: stat, nvars, i
  type(AN_VARIABLE_SEARCH):: e
  character(len = *), parameter:: subname = 'ANVarOpen'
continue
  call BeginSub(subname)
  call UrlSplit(url, file=filename, var=varname)
  if (filename == "") filename = "gtool.nc"
  call ANFileOpen(e%fileid, trim(filename), stat=stat, writable=writable)
  if (stat /= 0) goto 999
  !
  ! 名前から変数を探し出す
  !
  if (varname /= '') then
    e%varid = 0
    stat = nf_inq_varid(e%fileid, trim(varname), e%varid)
    if (stat == NF_ENOTVAR) then
      e%varid = 0
      stat = NF_NOERR
    endif
  else
    ! 名前が空ならできれば次元変数でない最初の変数をとりだす
    stat = nf_inq_nvars(e%fileid, nvars)
    if (stat /= 0) goto 999
    e%varid = 1
    do, i = 1, nvars
      stat = nf_inq_varname(e%fileid, i, dimname)
      if (stat /= NF_NOERR) goto 999
      stat = nf_inq_dimid(e%fileid, dimname, e%dimid)
      if (stat == NF_NOERR) cycle
      if (stat /= NF_EBADDIM) goto 999
      e%varid = i
      stat = NF_NOERR
      exit
    enddo
  endif
  if (stat /= NF_NOERR) goto 999
  !
  ! 次元id を調べる
  !
  stat = nf_inq_dimid(e%fileid, trim(varname), e%dimid)
  if (stat /= NF_NOERR) then
    if (e%varid <= 0) goto 999
    e%dimid = 0
  endif
  !
  stat = vtable_add(var, e)
  if (stat /= NF_NOERR) goto 999
  call EndSub(subname, 'an=%d file=%d var=%d', i=(/var%id, e%fileid, e%varid/))
  call StoreError(stat, subname, err)
  return
  !
  ! エラー処理 (正常完了時も呼ぶ)
  !
999 continue
  var = an_variable(-1)
  call EndSub(subname, 'an=%d err', i=(/var%id/))
  call StoreError(stat, subname, err, cause_c=url)
end subroutine ANVarOpen

[Validate]