gtvarputnum.f90

Path: src/gtvarputnum.f90
Last Update: Thu Sep 08 22:21:49 JST 2005 
    Copyright (C) GFD Dennou Club, 2000-2005. All rights reserved.

Put GT_VARIABLES

This file is created by "gtvarputtype.m4" by m4 command using "intrinsic_types.m4". Don‘t edit each files directly.

Methods

GTVarPutDouble   GTVarPutReal  

Included Modules

gtdata_types gt_map an_generic dc_error dc_types dc_trace

Public Instance methods

GTVarPutDouble(var, value, nvalue, err)
var :type(GT_VARIABLE), intent(in)
value(nvalue) :real(DP),intent(in)
nvalue :integer, intent(in)
err :logical, intent(out), optional

[Source]




subroutine GTVarPutDouble(var, value, nvalue, err)

    implicit none
    type(GT_VARIABLE), intent(in)           :: var
    integer,           intent(in)           :: nvalue
    real(DP),intent(in)           :: value(nvalue)
    logical,           intent(out), optional:: err

    ! Variables for Intenal work
    integer:: class, cid, stat, ndims
    integer, pointer:: specs(:, :)
    character(len = *), parameter:: subname = "GTVarPutDouble"
continue
    call BeginSub(subname, 'var.mapid=%d', i=(/var%mapid/))
    call var_class(var, class, cid)
    call map_to_internal_specs(var, specs, ndims)
    if (class == vtb_class_netcdf) then
        call put(an_variable(cid), start=specs(:, 1), count=specs(:, 2),  stride=specs(:, 3), imap=specs(:, 4), value=value,  siz=nvalue, iostat=stat)
    else
        stat = gt_efake
    endif
    call StoreError(stat, subname, err=err)
    deallocate(specs)
    call EndSub(subname)
end subroutine
GTVarPutReal(var, value, nvalue, err)
var :type(GT_VARIABLE), intent(in)
value(nvalue) :real(SP),intent(in)
nvalue :integer, intent(in)
err :logical, intent(out), optional

[Source]

subroutine GTVarPutReal(var, value, nvalue, err)

    implicit none
    type(GT_VARIABLE), intent(in)           :: var
    integer,           intent(in)           :: nvalue
    real(SP),intent(in)           :: value(nvalue)
    logical,           intent(out), optional:: err

    ! Variables for Intenal work
    integer:: class, cid, stat, ndims
    integer, pointer:: specs(:, :)
    character(len = *), parameter:: subname = "GTVarPutReal"
continue
    call BeginSub(subname, 'var.mapid=%d', i=(/var%mapid/))
    call var_class(var, class, cid)
    call map_to_internal_specs(var, specs, ndims)
    if (class == vtb_class_netcdf) then
        call put(an_variable(cid), start=specs(:, 1), count=specs(:, 2),  stride=specs(:, 3), imap=specs(:, 4), value=value,  siz=nvalue, iostat=stat)
    else
        stat = gt_efake
    endif
    call StoreError(stat, subname, err=err)
    deallocate(specs)
    call EndSub(subname)
end subroutine

[Validate]