gtvarsync.f90 File Reference

ファイル入出力の同期 More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvarsync (var, stat)

Detailed Description

ファイル入出力の同期

Author

Eizi TOYODA, Yasuhiro MORIKAWA

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. See COPYRIGHT in detail

このサブルーチンは gtdata_generic から gtdata_generic#GTVarSync として提供されます。

Definition in file gtvarsync.f90.

Function/Subroutine Documentation

gtvarsync()

subroutine gtvarsync	(	type(gt_variable), intent(inout), optional	var,
		integer, intent(out), optional	stat )

ファイル入出力を同期

変数 var に関するメモリ内のバッファと netCDF ファイルのディスク上の コピーとを同期します。var が与えられない場合、プログラム内で これまでに入出力した全てのファイルに関して同期がおこなわれます。

Parameters

[in,out]	var	変数ハンドル (省略可能)
[out]	stat	ステータスコード (省略可能)

Definition at line 43 of file gtvarsync.f90.

  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: var_class, vtb_class_netcdf
  use gtdata_netcdf_generic, only: gdncvarsync
  use gtdata_netcdf_types, only: gd_nc_variable
  type(GT_VARIABLE), intent(inout), optional:: var
  integer, intent(out), optional:: stat
  integer:: class, cid
  if (.not. present(var)) then
    call gdncvarsync(stat=stat)
  else
    call var_class(var, class, cid)
    select case (class)
    case(vtb_class_netcdf)
      call gdncvarsync(gd_nc_variable(cid), stat=stat)
    end select
  endif

References gtdata_internal_map::var_class().

Here is the call graph for this function: