gdncvarsync.f90

Go to the documentation of this file.

!> @file gdncvarsync.f90
!>
!> @author GFD Dennou Club
!> @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 Synchronize netCDF variable to disk
!> @enden
!>
!> @ja
!> @brief netCDF 変数をディスクに同期
!> @endja
!>
 
!>
!> @en
!> @brief Synchronize variable data to disk
!>
!> Flushes pending writes for the variable to disk.
!> If var is not present, syncs all open files.
!> @enden
!>
!> @ja
!> @brief 変数データをディスクに同期
!>
!> 変数の保留中の書き込みをディスクにフラッシュします。
!> var が省略された場合、全てのオープン中ファイルを同期します。
!> @endja
!>
!> @param[in]  var  @en Variable handle (optional) @enden @ja 変数ハンドル (省略可能) @endja
!> @param[out] stat @en Status code (optional) @enden @ja ステータスコード (省略可能) @endja
!>
subroutine gdncvarsync(var, stat)
    use gtdata_netcdf_types, only: gd_nc_variable, gd_nc_variable_entry
    use gtdata_netcdf_file_generic, only: gdncfilesync
    use gtdata_netcdf_internal, only: vtable_lookup
    use netcdf, only: nf90_noerr
    implicit none
    type(gd_nc_variable), intent(in), optional:: var
    integer, intent(out), optional:: stat
    type(gd_nc_variable_entry):: ent
    integer:: mystat
    if (.not. present(var)) then
        call gdncfilesync(stat=stat)
        return
    endif
    mystat = vtable_lookup(var, ent)
    if (mystat /= nf90_noerr) then
        if (present(stat)) stat = mystat
    else
        call gdncfilesync(ent%fileid, stat=stat)
    endif
end subroutine