| Path: | abst_netcdf/anvarclose.f90 |
| Last Update: | Fri Mar 20 18:09:53 +0900 2009 |
Copyright (C) GFD Dennou Club, 2000. All rights reserved
| Subroutine : | |
| var : | type(AN_VARIABLE), intent(in) |
| err : | logical, intent(out), optional |
subroutine ANVarClose(var, err)
use an_types, only: AN_VARIABLE
use an_file, only: ANFileClose, ANFileSync
use an_vartable, only: vtable_delete
use dc_error
implicit none
type(AN_VARIABLE), intent(in):: var
logical, intent(out), optional:: err
integer:: fileid
continue
fileid = vtable_delete(var)
if (fileid < 0) then
call StoreError(fileid, 'ANVarClose', err)
return
endif
call ANFileSync(fileid)
call ANFileClose(fileid, err)
end subroutine