gtvarputnum.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvarputdouble (var, value, nvalue, err)
subroutine	gtvarputreal (var, value, nvalue, err)
subroutine	gtvarputint (var, value, nvalue, err)
subroutine	gtvarputchar (var, value, nvalue, err)
subroutine	gtvarputdouble1 (var, value, err)
subroutine	gtvarputdouble2 (var, value, err)
subroutine	gtvarputdouble3 (var, value, err)
subroutine	gtvarputdouble4 (var, value, err)
subroutine	gtvarputdouble5 (var, value, err)
subroutine	gtvarputdouble6 (var, value, err)
subroutine	gtvarputdouble7 (var, value, err)
subroutine	gtvarputreal1 (var, value, err)
subroutine	gtvarputreal2 (var, value, err)
subroutine	gtvarputreal3 (var, value, err)
subroutine	gtvarputreal4 (var, value, err)
subroutine	gtvarputreal5 (var, value, err)
subroutine	gtvarputreal6 (var, value, err)
subroutine	gtvarputreal7 (var, value, err)
subroutine	gtvarputint1 (var, value, err)
subroutine	gtvarputint2 (var, value, err)
subroutine	gtvarputint3 (var, value, err)
subroutine	gtvarputint4 (var, value, err)
subroutine	gtvarputint5 (var, value, err)
subroutine	gtvarputint6 (var, value, err)
subroutine	gtvarputint7 (var, value, err)

Function/Subroutine Documentation

gtvarputchar()

subroutine gtvarputchar	(	type(gt_variable), intent(in)	var,
		character(*), dimension(nvalue), intent(in)	value,
		integer, intent(in)	nvalue,
		logical, intent(out), optional	err
	)

Definition at line 130 of file gtvarputnum.f90.

  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: &
    & var_class, &
    & vtb_class_netcdf, &
    & map_to_internal_specs
  use gtdata_netcdf_generic,  only: put
  use gtdata_netcdf_types, only: gd_nc_variable
  use dc_error,    only: storeerror, gt_efake
  ! use dc_trace,    only: BeginSub, EndSub
  implicit none
  type(GT_VARIABLE), intent(in)            :: var
  integer,           intent(in)            :: nvalue
  character(*),      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 = "GTVarPutChar"
  continue
  call var_class(var, class, cid)
  call map_to_internal_specs(var, specs, ndims)
  if (class == vtb_class_netcdf) then
    call put(gd_nc_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)

References dc_error::gt_efake, gtdata_internal_map::map_to_internal_specs(), dc_error::storeerror(), and gtdata_internal_map::var_class().

Here is the call graph for this function:

gtvarputdouble()

subroutine gtvarputdouble	(	type(gt_variable), intent(in)	var,
		real(dp), dimension(nvalue), intent(in)	value,
		integer, intent(in)	nvalue,
		logical, intent(out), optional	err
	)

Definition at line 29 of file gtvarputnum.f90.

  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: &
    & var_class, &
    & vtb_class_netcdf, &
    & map_to_internal_specs
  use gtdata_netcdf_generic,  only: put
  use gtdata_netcdf_types, only: gd_nc_variable
  use dc_error,    only: storeerror, gt_efake
  ! use dc_trace,    only: BeginSub, EndSub
  use dc_types,    only: dp
  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 var_class(var, class, cid)
  call map_to_internal_specs(var, specs, ndims)
  if (class == vtb_class_netcdf) then
    call put(gd_nc_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)

References dc_types::dp, dc_error::gt_efake, gtdata_internal_map::map_to_internal_specs(), dc_error::storeerror(), and gtdata_internal_map::var_class().

Here is the call graph for this function:

gtvarputdouble1()

subroutine gtvarputdouble1	(	type(gt_variable), intent(inout)	var,
		real(dp), dimension(:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 164 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputdouble
  use dc_types,       only: dp
  real(DP), intent(in) :: value(:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputdouble(var, value, size(value), err)

References dc_types::dp, and gtvarputdouble().

Here is the call graph for this function:

gtvarputdouble2()

subroutine gtvarputdouble2	(	type(gt_variable), intent(inout)	var,
		real(dp), dimension(:,:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 175 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputdouble
  use dc_types,       only: dp
  real(DP), intent(in) :: value(:,:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputdouble(var, value, size(value), err)

References dc_types::dp, and gtvarputdouble().

Here is the call graph for this function:

gtvarputdouble3()

subroutine gtvarputdouble3	(	type(gt_variable), intent(inout)	var,
		real(dp), dimension(:,:,:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 186 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputdouble
  use dc_types,       only: dp
  real(DP), intent(in) :: value(:,:,:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputdouble(var, value, size(value), err)

References dc_types::dp, and gtvarputdouble().

Here is the call graph for this function:

gtvarputdouble4()

subroutine gtvarputdouble4	(	type(gt_variable), intent(inout)	var,
		real(dp), dimension(:,:,:,:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 197 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputdouble
  use dc_types,       only: dp
  real(DP), intent(in) :: value(:,:,:,:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputdouble(var, value, size(value), err)

References dc_types::dp, and gtvarputdouble().

Here is the call graph for this function:

gtvarputdouble5()

subroutine gtvarputdouble5	(	type(gt_variable), intent(inout)	var,
		real(dp), dimension(:,:,:,:,:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 208 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputdouble
  use dc_types,       only: dp
  real(DP), intent(in) :: value(:,:,:,:,:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputdouble(var, value, size(value), err)

References dc_types::dp, and gtvarputdouble().

Here is the call graph for this function:

gtvarputdouble6()

subroutine gtvarputdouble6	(	type(gt_variable), intent(inout)	var,
		real(dp), dimension(:,:,:,:,:,:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 219 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputdouble
  use dc_types,       only: dp
  real(DP), intent(in) :: value(:,:,:,:,:,:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputdouble(var, value, size(value), err)

References dc_types::dp, and gtvarputdouble().

Here is the call graph for this function:

gtvarputdouble7()

subroutine gtvarputdouble7	(	type(gt_variable), intent(inout)	var,
		real(dp), dimension(:,:,:,:,:,:,:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 230 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputdouble
  use dc_types,       only: dp
  real(DP), intent(in) :: value(:,:,:,:,:,:,:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputdouble(var, value, size(value), err)

References dc_types::dp, and gtvarputdouble().

Here is the call graph for this function:

gtvarputint()

subroutine gtvarputint	(	type(gt_variable), intent(in)	var,
		integer, dimension(nvalue), intent(in)	value,
		integer, intent(in)	nvalue,
		logical, intent(out), optional	err
	)

Definition at line 97 of file gtvarputnum.f90.

  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: &
    & var_class, &
    & vtb_class_netcdf, &
    & map_to_internal_specs
  use gtdata_netcdf_generic,  only: put
  use gtdata_netcdf_types, only: gd_nc_variable
  use dc_error,    only: storeerror, gt_efake
  ! use dc_trace,    only: BeginSub, EndSub
  implicit none
  type(GT_VARIABLE), intent(in)            :: var
  integer,           intent(in)            :: nvalue
  integer,           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 = "GTVarPutInt"
  continue
  call var_class(var, class, cid)
  call map_to_internal_specs(var, specs, ndims)
  if (class == vtb_class_netcdf) then
    call put(gd_nc_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)

References dc_error::gt_efake, gtdata_internal_map::map_to_internal_specs(), dc_error::storeerror(), and gtdata_internal_map::var_class().

Here is the call graph for this function:

gtvarputint1()

subroutine gtvarputint1	(	type(gt_variable), intent(inout)	var,
		integer, dimension(:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 318 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputint
  integer,  intent(in) :: value(:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputint(var, value, size(value), err)

References gtvarputint().

Here is the call graph for this function:

gtvarputint2()

subroutine gtvarputint2	(	type(gt_variable), intent(inout)	var,
		integer, dimension(:,:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 328 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputint
  integer,  intent(in) :: value(:,:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputint(var, value, size(value), err)

References gtvarputint().

Here is the call graph for this function:

gtvarputint3()

subroutine gtvarputint3	(	type(gt_variable), intent(inout)	var,
		integer, dimension(:,:,:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 338 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputint
  integer,  intent(in) :: value(:,:,:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputint(var, value, size(value), err)

References gtvarputint().

Here is the call graph for this function:

gtvarputint4()

subroutine gtvarputint4	(	type(gt_variable), intent(inout)	var,
		integer, dimension(:,:,:,:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 348 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputint
  integer,  intent(in) :: value(:,:,:,:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputint(var, value, size(value), err)

References gtvarputint().

Here is the call graph for this function:

gtvarputint5()

subroutine gtvarputint5	(	type(gt_variable), intent(inout)	var,
		integer, dimension(:,:,:,:,:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 358 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputint
  integer,  intent(in) :: value(:,:,:,:,:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputint(var, value, size(value), err)

References gtvarputint().

Here is the call graph for this function:

gtvarputint6()

subroutine gtvarputint6	(	type(gt_variable), intent(inout)	var,
		integer, dimension(:,:,:,:,:,:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 368 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputint
  integer,  intent(in) :: value(:,:,:,:,:,:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputint(var, value, size(value), err)

References gtvarputint().

Here is the call graph for this function:

gtvarputint7()

subroutine gtvarputint7	(	type(gt_variable), intent(inout)	var,
		integer, dimension(:,:,:,:,:,:,:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 378 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputint
  integer,  intent(in) :: value(:,:,:,:,:,:,:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputint(var, value, size(value), err)

References gtvarputint().

Here is the call graph for this function:

gtvarputreal()

subroutine gtvarputreal	(	type(gt_variable), intent(in)	var,
		real(sp), dimension(nvalue), intent(in)	value,
		integer, intent(in)	nvalue,
		logical, intent(out), optional	err
	)

Definition at line 63 of file gtvarputnum.f90.

  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: &
    & var_class, &
    & vtb_class_netcdf, &
    & map_to_internal_specs
  use gtdata_netcdf_generic,  only: put
  use gtdata_netcdf_types, only: gd_nc_variable
  use dc_error,    only: storeerror, gt_efake
  ! use dc_trace,    only: BeginSub, EndSub
  use dc_types,    only: sp
  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 var_class(var, class, cid)
  call map_to_internal_specs(var, specs, ndims)
  if (class == vtb_class_netcdf) then
    call put(gd_nc_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)

References dc_error::gt_efake, gtdata_internal_map::map_to_internal_specs(), dc_types::sp, dc_error::storeerror(), and gtdata_internal_map::var_class().

Here is the call graph for this function:

gtvarputreal1()

subroutine gtvarputreal1	(	type(gt_variable), intent(inout)	var,
		real(sp), dimension(:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 241 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputreal
  use dc_types,       only: sp
  real(SP), intent(in) :: value(:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputreal(var, value, size(value), err)

References gtvarputreal(), and dc_types::sp.

Here is the call graph for this function:

gtvarputreal2()

subroutine gtvarputreal2	(	type(gt_variable), intent(inout)	var,
		real(sp), dimension(:,:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 252 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputreal
  use dc_types,       only: sp
  real(SP), intent(in) :: value(:,:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputreal(var, value, size(value), err)

References gtvarputreal(), and dc_types::sp.

Here is the call graph for this function:

gtvarputreal3()

subroutine gtvarputreal3	(	type(gt_variable), intent(inout)	var,
		real(sp), dimension(:,:,:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 263 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputreal
  use dc_types,       only: sp
  real(SP), intent(in) :: value(:,:,:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputreal(var, value, size(value), err)

References gtvarputreal(), and dc_types::sp.

Here is the call graph for this function:

gtvarputreal4()

subroutine gtvarputreal4	(	type(gt_variable), intent(inout)	var,
		real(sp), dimension(:,:,:,:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 274 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputreal
  use dc_types,       only: sp
  real(SP), intent(in) :: value(:,:,:,:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputreal(var, value, size(value), err)

References gtvarputreal(), and dc_types::sp.

Here is the call graph for this function:

gtvarputreal5()

subroutine gtvarputreal5	(	type(gt_variable), intent(inout)	var,
		real(sp), dimension(:,:,:,:,:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 285 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputreal
  use dc_types,       only: sp
  real(SP), intent(in) :: value(:,:,:,:,:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputreal(var, value, size(value), err)

References gtvarputreal(), and dc_types::sp.

Here is the call graph for this function:

gtvarputreal6()

subroutine gtvarputreal6	(	type(gt_variable), intent(inout)	var,
		real(sp), dimension(:,:,:,:,:,:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 296 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputreal
  use dc_types,       only: sp
  real(SP), intent(in) :: value(:,:,:,:,:,:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputreal(var, value, size(value), err)

References gtvarputreal(), and dc_types::sp.

Here is the call graph for this function:

gtvarputreal7()

subroutine gtvarputreal7	(	type(gt_variable), intent(inout)	var,
		real(sp), dimension(:,:,:,:,:,:,:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 307 of file gtvarputnum.f90.

  use gtdata_types,   only: gt_variable
  use gtdata_generic, only: put, gtvarputreal
  use dc_types,       only: sp
  real(SP), intent(in) :: value(:,:,:,:,:,:,:)
  type(GT_VARIABLE), intent(inout):: var
  logical  ,intent(out), optional:: err
  continue
  call gtvarputreal(var, value, size(value), err)

References gtvarputreal(), and dc_types::sp.

Here is the call graph for this function: