Path: | src/gtvarsync.f90 |
Last Update: | Wed Jul 20 18:22:24 JST 2005 |
Copyright (C) GFD Dennou Club, 2000. All rights reserved.
var : | type(GT_VARIABLE), intent(inout), optional |
stat : | integer, intent(out), optional |
subroutine GTVarSync(var, stat) type(GT_VARIABLE), intent(inout), optional:: var integer, intent(out), optional:: stat integer:: class, cid if (.not. present(var)) then call ANVarSync(stat=stat) else call var_class(var, class, cid) select case (class) case(vtb_class_netcdf) call ANVarSync(an_variable(cid), stat=stat) end select endif end subroutine