gdncvarsync.f90

Go to the documentation of this file.

! Copyright (C) GFD Dennou Club, 2000.  All rights reserved
 
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