dummy_netcdf_mod::nf90_def_var Interface Reference

Public Member Functions
integer function	nf90_def_var_multiple (ncid, key, type, dim_ids, varid)
integer function	nf90_def_var_single (ncid, key, type, dim_id, varid)
integer function	nf90_def_var_atomic (ncid, key, type, varid)

Detailed Description

Definition at line 38 of file dummy_netcdf.F90.

Member Function/Subroutine Documentation

nf90_def_var_atomic()

integer function dummy_netcdf_mod::nf90_def_var::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::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::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

---

The documentation for this interface was generated from the following file:

• components/checkpointer/test/dummy_netcdf.F90