gtvarsync.f90

Path: src/gtvarsync.f90
Last Update: Wed Jul 20 18:22:24 JST 2005

Copyright (C) GFD Dennou Club, 2000. All rights reserved.

Methods

GTVarSync  

Included Modules

gtdata_types gt_map an_generic

Public Instance methods

GTVarSync(var, stat)
var :type(GT_VARIABLE), intent(inout), optional
stat :integer, intent(out), optional

[Source]

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

[Validate]