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 131 of file gtvarputnum.f90.

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

  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)

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 30 of file gtvarputnum.f90.

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

Referenced by gtvarputdouble1(), gtvarputdouble2(), gtvarputdouble3(), gtvarputdouble4(), gtvarputdouble5(), gtvarputdouble6(), and gtvarputdouble7().

  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)

Here is the call graph for this function:

Here is the caller 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 165 of file gtvarputnum.f90.

References dc_types::dp, and gtvarputdouble().

  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)

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 176 of file gtvarputnum.f90.

References dc_types::dp, and gtvarputdouble().

  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)

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 187 of file gtvarputnum.f90.

References dc_types::dp, and gtvarputdouble().

  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)

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 198 of file gtvarputnum.f90.

References dc_types::dp, and gtvarputdouble().

  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)

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 209 of file gtvarputnum.f90.

References dc_types::dp, and gtvarputdouble().

  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)

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 220 of file gtvarputnum.f90.

References dc_types::dp, and gtvarputdouble().

  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)

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 231 of file gtvarputnum.f90.

References dc_types::dp, and gtvarputdouble().

  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)

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 98 of file gtvarputnum.f90.

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

Referenced by gtvarputint1(), gtvarputint2(), gtvarputint3(), gtvarputint4(), gtvarputint5(), gtvarputint6(), and gtvarputint7().

  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)

Here is the call graph for this function:

Here is the caller 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 319 of file gtvarputnum.f90.

References gtvarputint().

  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)

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 329 of file gtvarputnum.f90.

References gtvarputint().

  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)

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 339 of file gtvarputnum.f90.

References gtvarputint().

  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)

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 349 of file gtvarputnum.f90.

References gtvarputint().

  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)

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 359 of file gtvarputnum.f90.

References gtvarputint().

  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)

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 369 of file gtvarputnum.f90.

References gtvarputint().

  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)

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 379 of file gtvarputnum.f90.

References gtvarputint().

  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)

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 64 of file gtvarputnum.f90.

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

Referenced by gtvarcopyvalue(), gtvarputreal1(), gtvarputreal2(), gtvarputreal3(), gtvarputreal4(), gtvarputreal5(), gtvarputreal6(), and gtvarputreal7().

  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)

Here is the call graph for this function:

Here is the caller 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 242 of file gtvarputnum.f90.

References gtvarputreal(), and dc_types::sp.

  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)

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 253 of file gtvarputnum.f90.

References gtvarputreal(), and dc_types::sp.

  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)

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 264 of file gtvarputnum.f90.

References gtvarputreal(), and dc_types::sp.

  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)

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 275 of file gtvarputnum.f90.

References gtvarputreal(), and dc_types::sp.

  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)

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 286 of file gtvarputnum.f90.

References gtvarputreal(), and dc_types::sp.

  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)

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 297 of file gtvarputnum.f90.

References gtvarputreal(), and dc_types::sp.

  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)

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 308 of file gtvarputnum.f90.

References gtvarputreal(), and dc_types::sp.

  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)

Here is the call graph for this function: