Functions/Subroutines
subroutine	gtvaropen (var, url, writable, err)

Function/Subroutine Documentation

◆ gtvaropen()

subroutine gtvaropen	(	type(gt_variable), intent(out)	var,
		character(*), intent(in)	url,
		logical, intent(in), optional	writable,
		logical, intent(out), optional	err
	)

Definition at line 13 of file gtvaropen.f90.

References dc_trace::beginsub(), dc_error::dc_noerr, dc_trace::endsub(), dc_error::gt_efake, dc_error::gt_enotvar, gtdata_internal_map::gtvar_dump(), gtdata_internal_map::map_create(), dc_present::present_and_true(), dc_error::storeerror(), dc_types::string, and dc_url::url_chop_iorange().

   !
   !== gtool4 データのオープン
   !
   ! *url* で識別される gtool 変数を開き、*var* に格納します。
   ! *writable* を <tt>.true.</tt> に指定すると書き込み可で開こうとします。
   ! デフォルトは書き込み不可で開きます。
   ! (まだ *writable* の動作は保障されていません)。
   !
   ! Open された変数は必ず Close されなければなりません。
   !
   ! エラーが発生した場合、引数 *err* が与えられる場合は *err* が
   ! <tt>.true.</tt> となって返ります。
   ! 引数 *err* を与えなければプログラムは停止します。
   !
   ! *Open* は 2 つのサブルーチンの総称名であり、
   ! ある変数の次元を指定することで開くことも可能です。
   ! 上記のサブルーチンを参照ください。
   !
   !=== 補足
   ! 
   ! 上記の Open を参照してください。
   !
   use dc_string, only: strhead
   use dc_types, only: string
   use gtdata_types, only: gt_variable
   use gtdata_generic, only: limit
   use gtdata_internal_map, only: map_create, vtb_class_netcdf, vtb_class_memory, gtvar_dump
   use gtdata_netcdf_generic, only: open, inquire
   use gtdata_netcdf_types, only: gd_nc_variable
   use dc_url, only: url_chop_iorange
   use dc_error, only: storeerror, gt_efake, dc_noerr, gt_enotvar
   use dc_trace, only: beginsub, endsub
   use dc_present, only: present_and_true
   implicit none
   type(gt_variable), intent(out):: var
   character(*), intent(in):: url
   logical, intent(in), optional:: writable
   logical, intent(out), optional:: err
   integer:: ndims, stat, cause_i
   character(STRING):: cause_c
   integer, allocatable:: dimlen(:)
   type(gd_nc_variable):: gdnc
   character(STRING):: filevar, iorange
   character(*),      parameter:: subname = "GTVarOpen"
   character(*),      parameter:: version = &
     & '$Name:  $' // &
     & '$Id: gtvaropen.f90,v 1.4 2009-05-25 09:55:57 morikawa Exp $'
 continue
   call beginsub(subname, fmt='<%c>', c1=trim(url), version=version)
   stat = dc_noerr
   cause_i = 0
   cause_c = ''
   var = gt_variable(-1)
   call url_chop_iorange(url, iorange=iorange, remainder=filevar)
   if (strhead(filevar, "memory:")) then
     stat = gt_efake
     cause_c = 'GTVarOpen(memory:)'
     goto 999
   else
     call open(gdnc, filevar, writable, err)
     if ( present_and_true(err) ) then
       stat = gt_enotvar
       goto 999
     end if
     call inquire(gdnc, ndims=ndims)
     allocate(dimlen(max(1, ndims)))
     call inquire(gdnc, dimlen=dimlen)
     call map_create(var, vtb_class_netcdf, gdnc%id, ndims, dimlen, stat)
     if (stat /= dc_noerr) then
       cause_i = ndims
       goto 999
     end if
     deallocate(dimlen)
   endif
   call limit(var, trim(iorange))
   call gtvar_dump(var)
 999 continue
   call storeerror(stat, subname, err, cause_c = cause_c, cause_i = cause_i)
   call endsub(subname, 'mapid=%d', i=(/var%mapid/))

Here is the call graph for this function:

Functions/Subroutines

Function/Subroutine Documentation

◆ gtvaropen()