gtvarsync.f90

Go to the documentation of this file.

!> @file gtvarsync.f90
!>
!> @author Eizi TOYODA, Yasuhiro MORIKAWA
!> @copyright Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. See [COPYRIGHT](@ref COPYRIGHT) in detail
!>
!> @en
!> @brief File I/O synchronization
!>
!> This subroutine is provided as gtdata_generic#GTVarSync
!> through gtdata_generic.
!> @enden
!>
!> @ja
!> @brief ファイル入出力の同期
!>
!> このサブルーチンは gtdata_generic から gtdata_generic#GTVarSync
!> として提供されます。
!> @endja
!>
 
!>
!> @en
!> @brief 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.
!> @param[inout] var  Variable handle (optional)
!> @param[out]   stat Status code (optional)
!> @enden
!>
!> @ja
!> @brief ファイル入出力を同期
!>
!> 変数 var に関するメモリ内のバッファと netCDF ファイルのディスク上の
!> コピーとを同期します。var が与えられない場合、プログラム内で
!> これまでに入出力した全てのファイルに関して同期がおこなわれます。
!> @param[inout] var  変数ハンドル (省略可能)
!> @param[out]   stat ステータスコード (省略可能)
!> @endja
!>
subroutine gtvarsync(var, stat)
  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
end subroutine gtvarsync