Data Types
type	integer_array_wrapper_type

interface	nf90_def_var

interface	nf90_get_var

interface	nf90_put_var

Functions/Subroutines
subroutine	dummy_netcdf_reset ()

integer function	nf90_open (path, mode, ncid)

integer function	nf90_create (path, mode, ncid, comm, info)

integer function	nf90_put_att (ncid, attribute, key, value)

integer function	nf90_enddef (ncid)

integer function	nf90_close (ncid)

integer function	nf90_inquire_attribute (ncid, attributeid, key, len)

integer function	nf90_get_att (ncid, attributeid, key, value)

integer function	nf90_inq_varid (ncid, key, varid)

integer function	nf90_get_var_char (ncid, varid, target, indexes, start, count, map)

integer function	nf90_get_var_integer (ncid, varid, target, indexes, start, count, map)

integer function	nf90_get_var_real (ncid, varid, target, indexes, start, count, map)

integer function	nf90_get_var_real_scalar (ncid, varid, target, indexes, start, count, map)

integer function	nf90_get_var_real3d (ncid, varid, target, indexes, start, count, map)

integer function	nf90_get_var_double (ncid, varid, target, indexes, start, count, map)

integer function	nf90_get_var_double_scalar (ncid, varid, target, indexes, start, count, map)

integer function	nf90_get_var_double3d (ncid, varid, target, indexes, start, count, map)

integer function	nf90_put_var_char (ncid, varid, source, indexes, start, count, map)

integer function	nf90_put_var_integer (ncid, varid, source, indexes, start, count, map)

integer function	nf90_put_var_real (ncid, varid, source, indexes, start, count, map)

integer function	nf90_put_var_real_scalar (ncid, varid, source, indexes, start, count, map)

integer function	nf90_put_var_real_3d (ncid, varid, source, indexes, start, count, map)

integer function	nf90_put_var_double (ncid, varid, source, indexes, start, count, map)

integer function	nf90_put_var_double_scalar (ncid, varid, source, indexes, start, count, map)

integer function	nf90_put_var_double_3d (ncid, varid, source, indexes, start, count, map)

integer function	nf90_inq_dimid (ncid, key, dim_id)

integer function	nf90_inquire_dimension (ncid, id, len)

character(len=10) function	nf90_strerror (status)

integer function	nf90_def_dim (ncid, key, length, dimension_id)

integer function	nf90_def_var_single (ncid, key, type, dim_id, varid)

integer function	nf90_def_var_atomic (ncid, key, type, varid)

integer function	nf90_def_var_multiple (ncid, key, type, dim_ids, varid)

Variables
logical	define_mode = .false.

type(map_type), save	variable_ids

type(map_type), save	variable_data

type(map_type), save	global_attributes

type(map_type), save	dimension_ids

type(map_type), save	dimension_lengths

type(map_type), save	var_data

integer, parameter	nf90_noerr = 0

integer, parameter	dummy_error =100

integer, parameter	nf90_global =0

integer, parameter	nf90_ebaddim =1000

integer, parameter	nf90_enotatt =2000

integer, parameter	nf90_enotvar = 3000

integer, parameter	nf90_real =0

integer, parameter	nf90_int =1

integer, parameter	nf90_char =2

integer, parameter	nf90_double =3

integer, parameter	nf90_clobber =0

integer, parameter	nf90_nowrite =1

integer, parameter	nf90_netcdf4 =0

integer, parameter	nf90_mpiio =0

integer	current_ncid =0

integer	current_dim =0

integer	current_var_id = 0

Function/Subroutine Documentation

◆ dummy_netcdf_reset()

subroutine dummy_netcdf_mod::dummy_netcdf_reset

Definition at line 50 of file dummy_netcdf.F90.

     call c_free(variable_ids)
     call c_free(global_attributes)
     call c_free(dimension_ids)
     call c_free(dimension_lengths)
     current_ncid=0
     current_dim=0
     current_var_id = 0
     define_mode = .false.

Here is the caller graph for this function:

◆ nf90_close()

integer function dummy_netcdf_mod::nf90_close ( integer, intent(in) ncid )

Definition at line 108 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid
  
     nf90_close = nf90_noerr

Here is the caller graph for this function:

◆ nf90_create()

integer function dummy_netcdf_mod::nf90_create	(	character(len=*), intent(in)	path,
		integer, intent(in)	mode,
		integer, intent(out)	ncid,
		integer, intent(in), optional	comm,
		integer, intent(in), optional	info
	)

Definition at line 73 of file dummy_netcdf.F90.

     character(len=*), intent(in) :: path
     integer, intent(in) :: mode
     integer, intent(in), optional :: comm, info
     integer, intent(out) :: ncid
  
     ncid = 1
     define_mode = .true.
     nf90_create = nf90_noerr

Here is the caller graph for this function:

◆ nf90_def_dim()

integer function dummy_netcdf_mod::nf90_def_dim	(	integer, intent(in)	ncid,
		character(len=*), intent(in)	key,
		integer, intent(in)	length,
		integer, intent(out)	dimension_id
	)

Definition at line 366 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, length
     character(len=*), intent(in) :: key
     integer, intent(out) :: dimension_id
  
     class(*), pointer :: raw_data
  
     current_dim = current_dim + 1
     dimension_id = current_dim
     raw_data=>conv_to_generic(length, .true.)
     call c_put(dimension_lengths, conv_to_string(dimension_id), raw_data)
     nf90_def_dim = nf90_noerr

Here is the caller graph for this function:

◆ nf90_def_var_atomic()

integer function dummy_netcdf_mod::nf90_def_var_atomic	(	integer, intent(in)	ncid,
		character(len=*), intent(in)	key,
		integer, intent(in)	type,
		integer, intent(out)	varid
	)

Definition at line 398 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, type
     character(len=*), intent(in) :: key
     integer, intent(out) :: varid
  
     class(*), pointer :: raw_data
  
     current_var_id = current_var_id + 1
     varid = current_var_id
     raw_data=>conv_to_generic(varid, .true.)
     call c_put(variable_ids, key, raw_data)
     raw_data=>conv_to_generic(1, .true.)
     call c_put(variable_data, key, raw_data)
     nf90_def_var_atomic = nf90_noerr

◆ nf90_def_var_multiple()

integer function dummy_netcdf_mod::nf90_def_var_multiple	(	integer, intent(in)	ncid,
		character(len=*), intent(in)	key,
		integer, intent(in)	type,
		integer, dimension(:)	dim_ids,
		integer, intent(out)	varid
	)

Definition at line 415 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, type
     integer, dimension(:) :: dim_ids
     character(len=*), intent(in) :: key
     integer, intent(out) :: varid
  
     integer :: i
     type(integer_array_wrapper_type), pointer :: wrapper
     class(*), pointer :: raw_data, raw_id_data
  
     allocate(wrapper)
     wrapper%size=size(dim_ids)
     allocate(wrapper%data(wrapper%size))
  
     do i=1,wrapper%size
       wrapper%data(i) = dim_ids(i)
     end do
     raw_data => wrapper
     current_var_id = current_var_id + 1
     varid = current_var_id
     raw_id_data=>conv_to_generic(varid, .true.)
     call c_put(variable_ids, key, raw_id_data)
     call c_put(variable_data, key, raw_data)
     nf90_def_var_multiple = nf90_noerr

◆ nf90_def_var_single()

integer function dummy_netcdf_mod::nf90_def_var_single	(	integer, intent(in)	ncid,
		character(len=*), intent(in)	key,
		integer, intent(in)	type,
		integer, intent(in)	dim_id,
		integer, intent(out)	varid
	)

Definition at line 381 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, type, dim_id
     character(len=*), intent(in) :: key
     integer, intent(out) :: varid
  
     class(*), pointer :: raw_data
  
     current_var_id = current_var_id + 1
     varid = current_var_id
     raw_data=>conv_to_generic(varid, .true.)
     call c_put(variable_ids, key, raw_data)
     raw_data=>conv_to_generic(dim_id, .true.)
     call c_put(variable_data, key, raw_data)
     nf90_def_var_single = nf90_noerr

◆ nf90_enddef()

integer function dummy_netcdf_mod::nf90_enddef ( integer, intent(in) ncid )

Definition at line 100 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid
  
     define_mode = .false.
     nf90_enddef = nf90_noerr

Here is the caller graph for this function:

◆ nf90_get_att()

integer function dummy_netcdf_mod::nf90_get_att	(	integer, intent(in)	ncid,
		integer, intent(in)	attributeid,
		character(len=*), intent(in)	key,
		character(len=100), intent(out)	value
	)

Definition at line 125 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, attributeid
     character(len=*), intent(in) :: key
     character(len=100), intent(out) :: value
  
     class(*), pointer :: raw_data
  
     if (attributeid == nf90_global) then
       raw_data=>c_get(global_attributes, key)
       value = conv_to_string(raw_data, .true., 100)
     end if
     nf90_get_att = nf90_noerr

Here is the caller graph for this function:

◆ nf90_get_var_char()

integer function dummy_netcdf_mod::nf90_get_var_char	(	integer, intent(in)	ncid,
		integer, intent(in)	varid,
		character(len=100), intent(out)	target,
		integer, dimension(:), intent(in), optional	indexes,
		integer, dimension(:), intent(in), optional	start,
		integer, dimension(:), intent(in), optional	count,
		integer, dimension(:), intent(in), optional	map
	)

Definition at line 161 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, varid
     character(len=100), intent(out) :: target
     integer, dimension(:), optional, intent(in) :: indexes, start, count, map
  
     nf90_get_var_char = nf90_noerr

◆ nf90_get_var_double()

integer function dummy_netcdf_mod::nf90_get_var_double	(	integer, intent(in)	ncid,
		integer, intent(in)	varid,
		real(kind=double_precision), dimension(*), intent(out)	target,
		integer, dimension(:), intent(in), optional	indexes,
		integer, dimension(:), intent(in), optional	start,
		integer, dimension(:), intent(in), optional	count,
		integer, dimension(:), intent(in), optional	map
	)

Definition at line 210 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, varid
     real(kind=double_precision), dimension(*), intent(out) :: target
     integer, dimension(:), optional, intent(in) :: indexes, start, count, map
  
     nf90_get_var_double = nf90_noerr

◆ nf90_get_var_double3d()

integer function dummy_netcdf_mod::nf90_get_var_double3d	(	integer, intent(in)	ncid,
		integer, intent(in)	varid,
		real(kind=double_precision), dimension(:,:,:), intent(out)	target,
		integer, dimension(:), intent(in), optional	indexes,
		integer, dimension(:), intent(in), optional	start,
		integer, dimension(:), intent(in), optional	count,
		integer, dimension(:), intent(in), optional	map
	)

Definition at line 228 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, varid
     real(kind=double_precision), dimension(:,:,:), intent(out) :: target
     integer, dimension(:), optional, intent(in) :: indexes, start, count, map
  
     nf90_get_var_double3d = nf90_noerr

◆ nf90_get_var_double_scalar()

integer function dummy_netcdf_mod::nf90_get_var_double_scalar	(	integer, intent(in)	ncid,
		integer, intent(in)	varid,
		real(kind=double_precision), intent(out)	target,
		integer, dimension(:), intent(in), optional	indexes,
		integer, dimension(:), intent(in), optional	start,
		integer, dimension(:), intent(in), optional	count,
		integer, dimension(:), intent(in), optional	map
	)

Definition at line 219 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, varid
     real(kind=double_precision), intent(out) :: target
     integer, dimension(:), optional, intent(in) :: indexes, start, count, map
  
     nf90_get_var_double_scalar = nf90_noerr

◆ nf90_get_var_integer()

integer function dummy_netcdf_mod::nf90_get_var_integer	(	integer, intent(in)	ncid,
		integer, intent(in)	varid,
		integer, dimension(*), intent(out)	target,
		integer, dimension(:), intent(in), optional	indexes,
		integer, dimension(:), intent(in), optional	start,
		integer, dimension(:), intent(in), optional	count,
		integer, dimension(:), intent(in), optional	map
	)

Definition at line 170 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, varid
     integer, dimension(*), intent(out) :: target
     integer, dimension(:), optional, intent(in) :: indexes, start, count, map
  
     class(*), pointer :: raw_data
     raw_data=>c_get(var_data, conv_to_string(varid))
     target(1) = conv_to_integer(raw_data, .false.)
  
     nf90_get_var_integer = nf90_noerr

Here is the caller graph for this function:

◆ nf90_get_var_real()

integer function dummy_netcdf_mod::nf90_get_var_real	(	integer, intent(in)	ncid,
		integer, intent(in)	varid,
		real(kind=single_precision), dimension(*), intent(out)	target,
		integer, dimension(:), intent(in), optional	indexes,
		integer, dimension(:), intent(in), optional	start,
		integer, dimension(:), intent(in), optional	count,
		integer, dimension(:), intent(in), optional	map
	)

Definition at line 183 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, varid
     real(kind=single_precision), dimension(*), intent(out) :: target
     integer, dimension(:), optional, intent(in) :: indexes, start, count, map
  
     nf90_get_var_real = nf90_noerr

◆ nf90_get_var_real3d()

integer function dummy_netcdf_mod::nf90_get_var_real3d	(	integer, intent(in)	ncid,
		integer, intent(in)	varid,
		real(kind=single_precision), dimension(:,:,:), intent(out)	target,
		integer, dimension(:), intent(in), optional	indexes,
		integer, dimension(:), intent(in), optional	start,
		integer, dimension(:), intent(in), optional	count,
		integer, dimension(:), intent(in), optional	map
	)

Definition at line 201 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, varid
     real(kind=single_precision), dimension(:,:,:), intent(out) :: target
     integer, dimension(:), optional, intent(in) :: indexes, start, count, map
  
     nf90_get_var_real3d = nf90_noerr

◆ nf90_get_var_real_scalar()

integer function dummy_netcdf_mod::nf90_get_var_real_scalar	(	integer, intent(in)	ncid,
		integer, intent(in)	varid,
		real(kind=single_precision), intent(out)	target,
		integer, dimension(:), intent(in), optional	indexes,
		integer, dimension(:), intent(in), optional	start,
		integer, dimension(:), intent(in), optional	count,
		integer, dimension(:), intent(in), optional	map
	)

Definition at line 192 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, varid
     real(kind=single_precision), intent(out) :: target
     integer, dimension(:), optional, intent(in) :: indexes, start, count, map
  
     nf90_get_var_real_scalar = nf90_noerr

◆ nf90_inq_dimid()

integer function dummy_netcdf_mod::nf90_inq_dimid	(	integer, intent(in)	ncid,
		character(len=*), intent(in)	key,
		integer, intent(out)	dim_id
	)

Definition at line 326 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid
     character(len=*), intent(in) :: key
     integer, intent(out) :: dim_id
  
     class(*), pointer :: raw_data
  
     if (c_contains(dimension_ids, key)) then
       raw_data=>c_get(dimension_ids, key)
       dim_id = conv_to_integer(raw_data, .false.)
       nf90_inq_dimid = nf90_noerr
     else
       nf90_inq_dimid = nf90_ebaddim
     end if

Here is the caller graph for this function:

◆ nf90_inq_varid()

integer function dummy_netcdf_mod::nf90_inq_varid	(	integer, intent(in)	ncid,
		character(len=*), intent(in)	key,
		integer, intent(out)	varid
	)

Definition at line 140 of file dummy_netcdf.F90.

     character(len=*), intent(in) :: key
     integer, intent(in) :: ncid
     integer, intent(out) :: varid
  
     class(*), pointer :: raw_data
  
     if (c_contains(variable_ids, key)) then
       raw_data=>c_get(variable_ids, key)
       if (associated(raw_data)) then
         varid = conv_to_integer(raw_data, .false.)
         nf90_inq_varid = nf90_noerr
         return
       end if
       nf90_inq_varid = dummy_error
     else
       nf90_inq_varid = nf90_enotvar
     end if

Here is the caller graph for this function:

◆ nf90_inquire_attribute()

integer function dummy_netcdf_mod::nf90_inquire_attribute	(	integer, intent(in)	ncid,
		integer, intent(in)	attributeid,
		character(len=*), intent(in)	key,
		integer, intent(out)	len
	)

Definition at line 115 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, attributeid
     character(len=*), intent(in) :: key
     integer, intent(out) :: len
  
     len = 200 ! Dummy 200
     nf90_inquire_attribute = nf90_noerr

Here is the caller graph for this function:

◆ nf90_inquire_dimension()

integer function dummy_netcdf_mod::nf90_inquire_dimension	(	integer, intent(in)	ncid,
		integer, intent(in)	id,
		integer, intent(out)	len
	)

Definition at line 343 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, id
     integer, intent(out) :: len
  
     class(*), pointer :: raw_data
  
     if (c_contains(dimension_lengths, conv_to_string(id))) then
       raw_data => c_get(dimension_lengths, conv_to_string(id))
       len = conv_to_integer(raw_data, .false.)
       nf90_inquire_dimension = nf90_noerr
     else
       nf90_inquire_dimension = dummy_error
     end if

Here is the caller graph for this function:

◆ nf90_open()

integer function dummy_netcdf_mod::nf90_open	(	character(len=*), intent(in)	path,
		integer, intent(in)	mode,
		integer, intent(out)	ncid
	)

Definition at line 62 of file dummy_netcdf.F90.

     character(len=*), intent(in) :: path
     integer, intent(in) :: mode
     integer, intent(out) :: ncid
  
     current_ncid = current_ncid + 1
     ncid = current_ncid
     nf90_open = nf90_noerr

Here is the caller graph for this function:

◆ nf90_put_att()

integer function dummy_netcdf_mod::nf90_put_att	(	integer, intent(in)	ncid,
		integer, intent(in)	attribute,
		character(len=*), intent(in)	key,
		character(len=*), intent(in)	value
	)

Definition at line 85 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, attribute
     character(len=*), intent(in) :: key, value
     class(*), pointer :: raw_data
  
     if (attribute == nf90_global) then
       raw_data=>conv_to_generic(value, .true.)
       call c_put(global_attributes, key, raw_data)
     else
  
     end if
     nf90_put_att = nf90_noerr

Here is the caller graph for this function:

◆ nf90_put_var_char()

integer function dummy_netcdf_mod::nf90_put_var_char	(	integer, intent(in)	ncid,
		integer, intent(in)	varid,
		character(len=*), intent(in)	source,
		integer, dimension(:), intent(in), optional	indexes,
		integer, dimension(:), intent(in), optional	start,
		integer, dimension(:), intent(in), optional	count,
		integer, dimension(:), intent(in), optional	map
	)

Definition at line 237 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, varid
     character(len=*), intent(in) :: source
     integer, dimension(:), optional , intent(in) :: indexes, start, count, map
  
     class(*), pointer :: raw_data
  
     call assert_false(define_mode, "Switched from define mode")
     raw_data=>conv_to_generic(source, .true.)
     call c_put(var_data, conv_to_string(varid), raw_data)
  
     nf90_put_var_char = nf90_noerr

◆ nf90_put_var_double()

integer function dummy_netcdf_mod::nf90_put_var_double	(	integer, intent(in)	ncid,
		integer, intent(in)	varid,
		real(kind=double_precision), dimension(*), intent(in)	source,
		integer, dimension(:), intent(in), optional	indexes,
		integer, dimension(:), intent(in), optional	start,
		integer, dimension(:), intent(in), optional	count,
		integer, dimension(:), intent(in), optional	map
	)

Definition at line 296 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, varid
     real(kind=double_precision), dimension(*), intent(in) :: source
     integer, dimension(:), optional , intent(in) :: indexes, start, count, map
  
     call assert_false(define_mode, "Switched from define mode")
     nf90_put_var_double = nf90_noerr

◆ nf90_put_var_double_3d()

integer function dummy_netcdf_mod::nf90_put_var_double_3d	(	integer, intent(in)	ncid,
		integer, intent(in)	varid,
		real(kind=double_precision), dimension(:,:,:), intent(in)	source,
		integer, dimension(:), intent(in), optional	indexes,
		integer, dimension(:), intent(in), optional	start,
		integer, dimension(:), intent(in), optional	count,
		integer, dimension(:), intent(in), optional	map
	)

Definition at line 316 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, varid
     real(kind=double_precision), dimension(:,:,:), intent(in) :: source
     integer, dimension(:), optional , intent(in) :: indexes, start, count, map
  
     call assert_false(define_mode, "Switched from define mode")
     nf90_put_var_double_3d = nf90_noerr

◆ nf90_put_var_double_scalar()

integer function dummy_netcdf_mod::nf90_put_var_double_scalar	(	integer, intent(in)	ncid,
		integer, intent(in)	varid,
		real(kind=double_precision), intent(in)	source,
		integer, dimension(:), intent(in), optional	indexes,
		integer, dimension(:), intent(in), optional	start,
		integer, dimension(:), intent(in), optional	count,
		integer, dimension(:), intent(in), optional	map
	)

Definition at line 306 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, varid
     real(kind=double_precision), intent(in) :: source
     integer, dimension(:), optional , intent(in) :: indexes, start, count, map
  
     call assert_false(define_mode, "Switched from define mode")
     nf90_put_var_double_scalar = nf90_noerr

◆ nf90_put_var_integer()

integer function dummy_netcdf_mod::nf90_put_var_integer	(	integer, intent(in)	ncid,
		integer, intent(in)	varid,
		integer, intent(in)	source,
		integer, dimension(:), intent(in), optional	indexes,
		integer, dimension(:), intent(in), optional	start,
		integer, dimension(:), intent(in), optional	count,
		integer, dimension(:), intent(in), optional	map
	)

Definition at line 252 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, varid
     integer, intent(in) :: source
     integer, dimension(:), optional , intent(in) :: indexes, start, count, map
  
     class(*), pointer :: raw_data
  
     call assert_false(define_mode, "Switched from define mode")
     raw_data=>conv_to_generic(source, .true.)
     call c_put(var_data, conv_to_string(varid), raw_data)
     nf90_put_var_integer = nf90_noerr

◆ nf90_put_var_real()

integer function dummy_netcdf_mod::nf90_put_var_real	(	integer, intent(in)	ncid,
		integer, intent(in)	varid,
		real(kind=single_precision), dimension(*), intent(in)	source,
		integer, dimension(:), intent(in), optional	indexes,
		integer, dimension(:), intent(in), optional	start,
		integer, dimension(:), intent(in), optional	count,
		integer, dimension(:), intent(in), optional	map
	)

Definition at line 266 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, varid
     real(kind=single_precision), dimension(*), intent(in) :: source
     integer, dimension(:), optional , intent(in) :: indexes, start, count, map
  
     call assert_false(define_mode, "Switched from define mode")
     nf90_put_var_real = nf90_noerr

◆ nf90_put_var_real_3d()

integer function dummy_netcdf_mod::nf90_put_var_real_3d	(	integer, intent(in)	ncid,
		integer, intent(in)	varid,
		real(kind=single_precision), dimension(:,:,:), intent(in)	source,
		integer, dimension(:), intent(in), optional	indexes,
		integer, dimension(:), intent(in), optional	start,
		integer, dimension(:), intent(in), optional	count,
		integer, dimension(:), intent(in), optional	map
	)

Definition at line 286 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, varid
     real(kind=single_precision), dimension(:,:,:), intent(in) :: source
     integer, dimension(:), optional , intent(in) :: indexes, start, count, map
  
     call assert_false(define_mode, "Switched from define mode")
     nf90_put_var_real_3d = nf90_noerr

◆ nf90_put_var_real_scalar()

integer function dummy_netcdf_mod::nf90_put_var_real_scalar	(	integer, intent(in)	ncid,
		integer, intent(in)	varid,
		real(kind=single_precision), intent(in)	source,
		integer, dimension(:), intent(in), optional	indexes,
		integer, dimension(:), intent(in), optional	start,
		integer, dimension(:), intent(in), optional	count,
		integer, dimension(:), intent(in), optional	map
	)

Definition at line 276 of file dummy_netcdf.F90.

     integer, intent(in) :: ncid, varid
     real(kind=single_precision), intent(in) :: source
     integer, dimension(:), optional , intent(in) :: indexes, start, count, map
  
     call assert_false(define_mode, "Switched from define mode")
     nf90_put_var_real_scalar = nf90_noerr

◆ nf90_strerror()

character(len=10) function dummy_netcdf_mod::nf90_strerror ( integer, intent(in) status )

Definition at line 359 of file dummy_netcdf.F90.

     integer, intent(in) :: status
  
     nf90_strerror = "dummy"

Here is the caller graph for this function:

Variable Documentation

◆ current_dim

integer dummy_netcdf_mod::current_dim =0

Definition at line 29 of file dummy_netcdf.F90.

◆ current_ncid

integer dummy_netcdf_mod::current_ncid =0

Definition at line 29 of file dummy_netcdf.F90.

29 integer :: current_ncid=0, current_dim=0, current_var_id = 0

◆ current_var_id

integer dummy_netcdf_mod::current_var_id = 0

Definition at line 29 of file dummy_netcdf.F90.

◆ define_mode

logical dummy_netcdf_mod::define_mode = .false.

Definition at line 12 of file dummy_netcdf.F90.

12 logical :: define_mode = .false.

◆ dimension_ids

type(map_type), save dummy_netcdf_mod::dimension_ids

Definition at line 21 of file dummy_netcdf.F90.

◆ dimension_lengths

type(map_type), save dummy_netcdf_mod::dimension_lengths

Definition at line 21 of file dummy_netcdf.F90.

◆ dummy_error

integer, parameter dummy_netcdf_mod::dummy_error =100

Definition at line 24 of file dummy_netcdf.F90.

◆ global_attributes

type(map_type), save dummy_netcdf_mod::global_attributes

Definition at line 21 of file dummy_netcdf.F90.

◆ nf90_char

integer, parameter dummy_netcdf_mod::nf90_char =2

Definition at line 24 of file dummy_netcdf.F90.

◆ nf90_clobber

integer, parameter dummy_netcdf_mod::nf90_clobber =0

Definition at line 24 of file dummy_netcdf.F90.

◆ nf90_double

integer, parameter dummy_netcdf_mod::nf90_double =3

Definition at line 24 of file dummy_netcdf.F90.

◆ nf90_ebaddim

integer, parameter dummy_netcdf_mod::nf90_ebaddim =1000

Definition at line 24 of file dummy_netcdf.F90.

◆ nf90_enotatt

integer, parameter dummy_netcdf_mod::nf90_enotatt =2000

Definition at line 24 of file dummy_netcdf.F90.

◆ nf90_enotvar

integer, parameter dummy_netcdf_mod::nf90_enotvar = 3000

Definition at line 24 of file dummy_netcdf.F90.

◆ nf90_global

integer, parameter dummy_netcdf_mod::nf90_global =0

Definition at line 24 of file dummy_netcdf.F90.

◆ nf90_int

integer, parameter dummy_netcdf_mod::nf90_int =1

Definition at line 24 of file dummy_netcdf.F90.

◆ nf90_mpiio

integer, parameter dummy_netcdf_mod::nf90_mpiio =0

Definition at line 24 of file dummy_netcdf.F90.

◆ nf90_netcdf4

integer, parameter dummy_netcdf_mod::nf90_netcdf4 =0

Definition at line 24 of file dummy_netcdf.F90.

◆ nf90_noerr

integer, parameter dummy_netcdf_mod::nf90_noerr = 0

Definition at line 24 of file dummy_netcdf.F90.

   integer, parameter :: nf90_noerr = 0, dummy_error=100, nf90_global=0, nf90_ebaddim=1000, nf90_enotatt=2000, &
     nf90_enotvar = 3000, nf90_real=0, nf90_int=1, nf90_char=2, nf90_double=3, nf90_clobber=0, nf90_nowrite=1, &
     nf90_netcdf4=0, nf90_mpiio=0

◆ nf90_nowrite

integer, parameter dummy_netcdf_mod::nf90_nowrite =1

Definition at line 24 of file dummy_netcdf.F90.

◆ nf90_real

integer, parameter dummy_netcdf_mod::nf90_real =0

Definition at line 24 of file dummy_netcdf.F90.

◆ var_data

type(map_type), save dummy_netcdf_mod::var_data

Definition at line 21 of file dummy_netcdf.F90.

◆ variable_data

type(map_type), save dummy_netcdf_mod::variable_data

Definition at line 21 of file dummy_netcdf.F90.

◆ variable_ids

type(map_type), save dummy_netcdf_mod::variable_ids

Definition at line 21 of file dummy_netcdf.F90.

21 type(map_type), save :: variable_ids, variable_data, global_attributes, dimension_ids, dimension_lengths, var_data

Data Types

Functions/Subroutines

Variables

Function/Subroutine Documentation

◆ dummy_netcdf_reset()

◆ nf90_close()

◆ nf90_create()

◆ nf90_def_dim()

◆ nf90_def_var_atomic()

◆ nf90_def_var_multiple()

◆ nf90_def_var_single()

◆ nf90_enddef()

◆ nf90_get_att()

◆ nf90_get_var_char()

◆ nf90_get_var_double()

◆ nf90_get_var_double3d()

◆ nf90_get_var_double_scalar()

◆ nf90_get_var_integer()

◆ nf90_get_var_real()

◆ nf90_get_var_real3d()

◆ nf90_get_var_real_scalar()

◆ nf90_inq_dimid()

◆ nf90_inq_varid()

◆ nf90_inquire_attribute()

◆ nf90_inquire_dimension()

◆ nf90_open()

◆ nf90_put_att()

◆ nf90_put_var_char()

◆ nf90_put_var_double()

◆ nf90_put_var_double_3d()

◆ nf90_put_var_double_scalar()

◆ nf90_put_var_integer()

◆ nf90_put_var_real()

◆ nf90_put_var_real_3d()

◆ nf90_put_var_real_scalar()

◆ nf90_strerror()

Variable Documentation

◆ current_dim

◆ current_ncid

◆ current_var_id

◆ define_mode

◆ dimension_ids

◆ dimension_lengths

◆ dummy_error

◆ global_attributes

◆ nf90_char

◆ nf90_clobber

◆ nf90_double

◆ nf90_ebaddim

◆ nf90_enotatt

◆ nf90_enotvar

◆ nf90_global

◆ nf90_int

◆ nf90_mpiio

◆ nf90_netcdf4

◆ nf90_noerr

◆ nf90_nowrite

◆ nf90_real

◆ var_data

◆ variable_data

◆ variable_ids