gtvarsync.f90 File Reference

File I/O synchronization. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvarsync (var, stat)

Detailed Description

File I/O synchronization.

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

This subroutine is provided as gtdata_generic#GTVarSync through gtdata_generic.

Definition in file gtvarsync.f90.

Function/Subroutine Documentation

gtvarsync()

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

Synchronize file I/O

Synchronizes the in-memory buffer for variable var with the disk copy of the netCDF file. If var is not provided, synchronization is performed for all files that have been accessed so far in the program.

Parameters

[in,out]	var	Variable handle (optional)
[out]	stat	Status code (optional)

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: