cable_netcdf_nf90_mod

Uses

- cable_abort_module
- netcdf
- cable_mpi_mod
- cable_array_utils_mod
- cable_netcdf_mod

Derived Types

type, public, extends(cable_netcdf_io_t) :: cable_netcdf_nf90_io_t

Type-Bound Procedures

procedure, public :: init => cable_netcdf_nf90_io_init
procedure, public :: finalise => cable_netcdf_nf90_io_finalise
procedure, public :: create_file => cable_netcdf_nf90_io_create_file
procedure, public :: open_file => cable_netcdf_nf90_io_open_file
procedure, public :: create_decomp => cable_netcdf_nf90_io_create_decomp

type, private, extends(cable_netcdf_file_t) :: cable_netcdf_nf90_file_t

Components

Type	Visibility	Attributes		Name		Initial
integer,	private		::	ncid

Type-Bound Procedures

generic, public :: put_att => put_att_global_string, put_att_global_int32, put_att_global_real32, put_att_global_real64, put_att_var_string, put_att_var_int32, put_att_var_real32, put_att_var_real64
generic, public :: get_att => get_att_global_string, get_att_global_int32, get_att_global_real32, get_att_global_real64, get_att_var_string, get_att_var_int32, get_att_var_real32, get_att_var_real64
generic, public :: put_var => put_var_int32_0d, put_var_int32_1d, put_var_int32_2d, put_var_int32_3d, put_var_real32_0d, put_var_real32_1d, put_var_real32_2d, put_var_real32_3d, put_var_real64_0d, put_var_real64_1d, put_var_real64_2d, put_var_real64_3d
generic, public :: write_darray => write_darray_int32_1d, write_darray_int32_2d, write_darray_int32_3d, write_darray_real32_1d, write_darray_real32_2d, write_darray_real32_3d, write_darray_real64_1d, write_darray_real64_2d, write_darray_real64_3d
generic, public :: get_var => get_var_int32_0d, get_var_int32_1d, get_var_int32_2d, get_var_int32_3d, get_var_real32_0d, get_var_real32_1d, get_var_real32_2d, get_var_real32_3d, get_var_real64_0d, get_var_real64_1d, get_var_real64_2d, get_var_real64_3d
generic, public :: read_darray => read_darray_int32_1d, read_darray_int32_2d, read_darray_int32_3d, read_darray_real32_1d, read_darray_real32_2d, read_darray_real32_3d, read_darray_real64_1d, read_darray_real64_2d, read_darray_real64_3d
procedure, public :: close => cable_netcdf_nf90_file_close
procedure, public :: end_def => cable_netcdf_nf90_file_end_def
procedure, public :: sync => cable_netcdf_nf90_file_sync
procedure, public :: def_dims => cable_netcdf_nf90_file_def_dims
procedure, public :: def_var => cable_netcdf_nf90_file_def_var
procedure, public :: put_att_global_string => cable_netcdf_nf90_file_put_att_global_string
procedure, public :: put_att_global_int32 => cable_netcdf_nf90_file_put_att_global_int32
procedure, public :: put_att_global_real32 => cable_netcdf_nf90_file_put_att_global_real32
procedure, public :: put_att_global_real64 => cable_netcdf_nf90_file_put_att_global_real64
procedure, public :: put_att_var_string => cable_netcdf_nf90_file_put_att_var_string
procedure, public :: put_att_var_int32 => cable_netcdf_nf90_file_put_att_var_int32
procedure, public :: put_att_var_real32 => cable_netcdf_nf90_file_put_att_var_real32
procedure, public :: put_att_var_real64 => cable_netcdf_nf90_file_put_att_var_real64
procedure, public :: get_att_global_string => cable_netcdf_nf90_file_get_att_global_string
procedure, public :: get_att_global_int32 => cable_netcdf_nf90_file_get_att_global_int32
procedure, public :: get_att_global_real32 => cable_netcdf_nf90_file_get_att_global_real32
procedure, public :: get_att_global_real64 => cable_netcdf_nf90_file_get_att_global_real64
procedure, public :: get_att_var_string => cable_netcdf_nf90_file_get_att_var_string
procedure, public :: get_att_var_int32 => cable_netcdf_nf90_file_get_att_var_int32
procedure, public :: get_att_var_real32 => cable_netcdf_nf90_file_get_att_var_real32
procedure, public :: get_att_var_real64 => cable_netcdf_nf90_file_get_att_var_real64
procedure, public :: inq_dim_len => cable_netcdf_nf90_file_inq_dim_len
procedure, public :: put_var_int32_0d => cable_netcdf_nf90_file_put_var_int32_0d
procedure, public :: put_var_int32_1d => cable_netcdf_nf90_file_put_var_int32_1d
procedure, public :: put_var_int32_2d => cable_netcdf_nf90_file_put_var_int32_2d
procedure, public :: put_var_int32_3d => cable_netcdf_nf90_file_put_var_int32_3d
procedure, public :: put_var_real32_0d => cable_netcdf_nf90_file_put_var_real32_0d
procedure, public :: put_var_real32_1d => cable_netcdf_nf90_file_put_var_real32_1d
procedure, public :: put_var_real32_2d => cable_netcdf_nf90_file_put_var_real32_2d
procedure, public :: put_var_real32_3d => cable_netcdf_nf90_file_put_var_real32_3d
procedure, public :: put_var_real64_0d => cable_netcdf_nf90_file_put_var_real64_0d
procedure, public :: put_var_real64_1d => cable_netcdf_nf90_file_put_var_real64_1d
procedure, public :: put_var_real64_2d => cable_netcdf_nf90_file_put_var_real64_2d
procedure, public :: put_var_real64_3d => cable_netcdf_nf90_file_put_var_real64_3d
procedure, public :: write_darray_int32_1d => cable_netcdf_nf90_file_write_darray_int32_1d
procedure, public :: write_darray_int32_2d => cable_netcdf_nf90_file_write_darray_int32_2d
procedure, public :: write_darray_int32_3d => cable_netcdf_nf90_file_write_darray_int32_3d
procedure, public :: write_darray_real32_1d => cable_netcdf_nf90_file_write_darray_real32_1d
procedure, public :: write_darray_real32_2d => cable_netcdf_nf90_file_write_darray_real32_2d
procedure, public :: write_darray_real32_3d => cable_netcdf_nf90_file_write_darray_real32_3d
procedure, public :: write_darray_real64_1d => cable_netcdf_nf90_file_write_darray_real64_1d
procedure, public :: write_darray_real64_2d => cable_netcdf_nf90_file_write_darray_real64_2d
procedure, public :: write_darray_real64_3d => cable_netcdf_nf90_file_write_darray_real64_3d
procedure, public :: get_var_int32_0d => cable_netcdf_nf90_file_get_var_int32_0d
procedure, public :: get_var_int32_1d => cable_netcdf_nf90_file_get_var_int32_1d
procedure, public :: get_var_int32_2d => cable_netcdf_nf90_file_get_var_int32_2d
procedure, public :: get_var_int32_3d => cable_netcdf_nf90_file_get_var_int32_3d
procedure, public :: get_var_real32_0d => cable_netcdf_nf90_file_get_var_real32_0d
procedure, public :: get_var_real32_1d => cable_netcdf_nf90_file_get_var_real32_1d
procedure, public :: get_var_real32_2d => cable_netcdf_nf90_file_get_var_real32_2d
procedure, public :: get_var_real32_3d => cable_netcdf_nf90_file_get_var_real32_3d
procedure, public :: get_var_real64_0d => cable_netcdf_nf90_file_get_var_real64_0d
procedure, public :: get_var_real64_1d => cable_netcdf_nf90_file_get_var_real64_1d
procedure, public :: get_var_real64_2d => cable_netcdf_nf90_file_get_var_real64_2d
procedure, public :: get_var_real64_3d => cable_netcdf_nf90_file_get_var_real64_3d
procedure, public :: read_darray_int32_1d => cable_netcdf_nf90_file_read_darray_int32_1d
procedure, public :: read_darray_int32_2d => cable_netcdf_nf90_file_read_darray_int32_2d
procedure, public :: read_darray_int32_3d => cable_netcdf_nf90_file_read_darray_int32_3d
procedure, public :: read_darray_real32_1d => cable_netcdf_nf90_file_read_darray_real32_1d
procedure, public :: read_darray_real32_2d => cable_netcdf_nf90_file_read_darray_real32_2d
procedure, public :: read_darray_real32_3d => cable_netcdf_nf90_file_read_darray_real32_3d
procedure, public :: read_darray_real64_1d => cable_netcdf_nf90_file_read_darray_real64_1d
procedure, public :: read_darray_real64_2d => cable_netcdf_nf90_file_read_darray_real64_2d
procedure, public :: read_darray_real64_3d => cable_netcdf_nf90_file_read_darray_real64_3d

Functions

private function type_nf90(type)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	type

Return Value integer

private function cable_netcdf_nf90_io_create_file(this, path) result(file)

Arguments

Type	Intent	Optional	Attributes		Name
class(cable_netcdf_nf90_io_t),	intent(inout)			::	this
character(len=*),	intent(in)			::	path

Return Value class(cable_netcdf_file_t), allocatable

private function cable_netcdf_nf90_io_open_file(this, path) result(file)

Arguments

Type	Intent	Optional	Attributes		Name
class(cable_netcdf_nf90_io_t),	intent(inout)			::	this
character(len=*),	intent(in)			::	path

Return Value class(cable_netcdf_file_t), allocatable

private function cable_netcdf_nf90_io_create_decomp(this, compmap, dims, type) result(decomp)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_io_t),	intent(inout)	::	this
integer,	intent(in)	::	compmap(:)
integer,	intent(in)	::	dims(:)
integer,	intent(in)	::	type

Return Value class(cable_netcdf_decomp_t), allocatable

Subroutines

private subroutine check_nf90(status)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	status

private subroutine cable_netcdf_nf90_io_init(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(cable_netcdf_nf90_io_t),	intent(inout)			::	this

private subroutine cable_netcdf_nf90_io_finalise(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(cable_netcdf_nf90_io_t),	intent(inout)			::	this

private subroutine cable_netcdf_nf90_file_close(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(cable_netcdf_nf90_file_t),	intent(inout)			::	this

private subroutine cable_netcdf_nf90_file_end_def(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(cable_netcdf_nf90_file_t),	intent(inout)			::	this

private subroutine cable_netcdf_nf90_file_sync(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(cable_netcdf_nf90_file_t),	intent(inout)			::	this

private subroutine cable_netcdf_nf90_file_def_dims(this, dim_names, dim_lens)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_file_t),	intent(inout)	::	this
character(len=*),	intent(in)	::	dim_names(:)
integer,	intent(in)	::	dim_lens(:)

private subroutine cable_netcdf_nf90_file_def_var(this, var_name, dim_names, type)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_file_t),	intent(inout)	::	this
character(len=*),	intent(in)	::	var_name
character(len=*),	intent(in)	::	dim_names(:)
integer,	intent(in)	::	type

private subroutine cable_netcdf_nf90_file_put_att_global_string(this, att_name, att_value)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_file_t),	intent(inout)	::	this
character(len=*),	intent(in)	::	att_name
character(len=*),	intent(in)	::	att_value

private subroutine cable_netcdf_nf90_file_put_att_global_int32(this, att_name, att_value)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_file_t),	intent(inout)	::	this
character(len=*),	intent(in)	::	att_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(in)	::	att_value

private subroutine cable_netcdf_nf90_file_put_att_global_real32(this, att_name, att_value)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_file_t),	intent(inout)	::	this
character(len=*),	intent(in)	::	att_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(in)	::	att_value

private subroutine cable_netcdf_nf90_file_put_att_global_real64(this, att_name, att_value)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_file_t),	intent(inout)	::	this
character(len=*),	intent(in)	::	att_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(in)	::	att_value

private subroutine cable_netcdf_nf90_file_put_att_var_string(this, var_name, att_name, att_value)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_file_t),	intent(inout)	::	this
character(len=*),	intent(in)	::	var_name
character(len=*),	intent(in)	::	att_name
character(len=*),	intent(in)	::	att_value

private subroutine cable_netcdf_nf90_file_put_att_var_int32(this, var_name, att_name, att_value)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_file_t),	intent(inout)	::	this
character(len=*),	intent(in)	::	var_name
character(len=*),	intent(in)	::	att_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(in)	::	att_value

private subroutine cable_netcdf_nf90_file_put_att_var_real32(this, var_name, att_name, att_value)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_file_t),	intent(inout)	::	this
character(len=*),	intent(in)	::	var_name
character(len=*),	intent(in)	::	att_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(in)	::	att_value

private subroutine cable_netcdf_nf90_file_put_att_var_real64(this, var_name, att_name, att_value)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_file_t),	intent(inout)	::	this
character(len=*),	intent(in)	::	var_name
character(len=*),	intent(in)	::	att_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(in)	::	att_value

private subroutine cable_netcdf_nf90_file_get_att_global_string(this, att_name, att_value)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_file_t),	intent(inout)	::	this
character(len=*),	intent(in)	::	att_name
character(len=*),	intent(out)	::	att_value

private subroutine cable_netcdf_nf90_file_get_att_global_int32(this, att_name, att_value)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_file_t),	intent(inout)	::	this
character(len=*),	intent(in)	::	att_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(out)	::	att_value

private subroutine cable_netcdf_nf90_file_get_att_global_real32(this, att_name, att_value)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_file_t),	intent(inout)	::	this
character(len=*),	intent(in)	::	att_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(out)	::	att_value

private subroutine cable_netcdf_nf90_file_get_att_global_real64(this, att_name, att_value)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_file_t),	intent(inout)	::	this
character(len=*),	intent(in)	::	att_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(out)	::	att_value

private subroutine cable_netcdf_nf90_file_get_att_var_string(this, var_name, att_name, att_value)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_file_t),	intent(inout)	::	this
character(len=*),	intent(in)	::	var_name
character(len=*),	intent(in)	::	att_name
character(len=*),	intent(out)	::	att_value

private subroutine cable_netcdf_nf90_file_get_att_var_int32(this, var_name, att_name, att_value)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_file_t),	intent(inout)	::	this
character(len=*),	intent(in)	::	var_name
character(len=*),	intent(in)	::	att_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(out)	::	att_value

private subroutine cable_netcdf_nf90_file_get_att_var_real32(this, var_name, att_name, att_value)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_file_t),	intent(inout)	::	this
character(len=*),	intent(in)	::	var_name
character(len=*),	intent(in)	::	att_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(out)	::	att_value

private subroutine cable_netcdf_nf90_file_get_att_var_real64(this, var_name, att_name, att_value)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_file_t),	intent(inout)	::	this
character(len=*),	intent(in)	::	var_name
character(len=*),	intent(in)	::	att_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(out)	::	att_value

private subroutine cable_netcdf_nf90_file_inq_dim_len(this, dim_name, dim_len)

Arguments

Type	Intent		Name
class(cable_netcdf_nf90_file_t),	intent(inout)	::	this
character(len=*),	intent(in)	::	dim_name
integer,	intent(out)	::	dim_len

private subroutine cable_netcdf_nf90_file_put_var_int32_0d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(in)		::	values
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_put_var_int32_1d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(in)		::	values(:)
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_put_var_int32_2d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(in)		::	values(:,:)
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_put_var_int32_3d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(in)		::	values(:,:,:)
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_put_var_real32_0d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(in)		::	values
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_put_var_real32_1d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(in)		::	values(:)
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_put_var_real32_2d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(in)		::	values(:,:)
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_put_var_real32_3d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(in)		::	values(:,:,:)
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_put_var_real64_0d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(in)		::	values
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_put_var_real64_1d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(in)		::	values(:)
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_put_var_real64_2d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(in)		::	values(:,:)
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_put_var_real64_3d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(in)		::	values(:,:,:)
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_write_darray_int32(this, var_name, values, decomp, fill_value, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(in)		::	values(..)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(in),	optional	::	fill_value
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_nf90_file_write_darray_int32_1d(this, var_name, values, decomp, fill_value, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(in)		::	values(:)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(in),	optional	::	fill_value
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_nf90_file_write_darray_int32_2d(this, var_name, values, decomp, fill_value, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(in)		::	values(:,:)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(in),	optional	::	fill_value
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_nf90_file_write_darray_int32_3d(this, var_name, values, decomp, fill_value, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(in)		::	values(:,:,:)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(in),	optional	::	fill_value
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_write_darray_real32(this, var_name, values, decomp, fill_value, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(in)		::	values(..)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(in),	optional	::	fill_value
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_nf90_file_write_darray_real32_1d(this, var_name, values, decomp, fill_value, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(in)		::	values(:)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(in),	optional	::	fill_value
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_nf90_file_write_darray_real32_2d(this, var_name, values, decomp, fill_value, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(in)		::	values(:,:)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(in),	optional	::	fill_value
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_nf90_file_write_darray_real32_3d(this, var_name, values, decomp, fill_value, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(in)		::	values(:,:,:)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(in),	optional	::	fill_value
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_write_darray_real64(this, var_name, values, decomp, fill_value, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(in)		::	values(..)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(in),	optional	::	fill_value
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_nf90_file_write_darray_real64_1d(this, var_name, values, decomp, fill_value, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(in)		::	values(:)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(in),	optional	::	fill_value
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_nf90_file_write_darray_real64_2d(this, var_name, values, decomp, fill_value, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(in)		::	values(:,:)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(in),	optional	::	fill_value
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_nf90_file_write_darray_real64_3d(this, var_name, values, decomp, fill_value, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(in)		::	values(:,:,:)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(in),	optional	::	fill_value
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_nf90_file_get_var_int32_0d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(out)		::	values
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_get_var_int32_1d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(out)		::	values(:)
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_get_var_int32_2d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(out)		::	values(:,:)
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_get_var_int32_3d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(out)		::	values(:,:,:)
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_get_var_real32_0d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(out)		::	values
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_get_var_real32_1d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(out)		::	values(:)
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_get_var_real32_2d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(out)		::	values(:,:)
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_get_var_real32_3d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(out)		::	values(:,:,:)
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_get_var_real64_0d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(out)		::	values
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_get_var_real64_1d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(out)		::	values(:)
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_get_var_real64_2d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(out)		::	values(:,:)
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_nf90_file_get_var_real64_3d(this, var_name, values, start, count)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(out)		::	values(:,:,:)
integer,	intent(in),	optional	::	start(:)
integer,	intent(in),	optional	::	count(:)

private subroutine cable_netcdf_read_darray_int32(this, var_name, values, decomp, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(out)		::	values(..)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_nf90_file_read_darray_int32_1d(this, var_name, values, decomp, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(out)		::	values(:)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_nf90_file_read_darray_int32_2d(this, var_name, values, decomp, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(out)		::	values(:,:)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_nf90_file_read_darray_int32_3d(this, var_name, values, decomp, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
integer(kind=CABLE_NETCDF_INT32_KIND),	intent(out)		::	values(:,:,:)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_read_darray_real32(this, var_name, values, decomp, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(out)		::	values(..)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_nf90_file_read_darray_real32_1d(this, var_name, values, decomp, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(out)		::	values(:)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_nf90_file_read_darray_real32_2d(this, var_name, values, decomp, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(out)		::	values(:,:)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_nf90_file_read_darray_real32_3d(this, var_name, values, decomp, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL32_KIND),	intent(out)		::	values(:,:,:)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_read_darray_real64(this, var_name, values, decomp, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(out)		::	values(..)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_nf90_file_read_darray_real64_1d(this, var_name, values, decomp, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(out)		::	values(:)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_nf90_file_read_darray_real64_2d(this, var_name, values, decomp, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(out)		::	values(:,:)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
integer,	intent(in),	optional	::	frame

private subroutine cable_netcdf_nf90_file_read_darray_real64_3d(this, var_name, values, decomp, frame)

Arguments

Type	Intent	Optional		Name
class(cable_netcdf_nf90_file_t),	intent(inout)		::	this
character(len=*),	intent(in)		::	var_name
real(kind=CABLE_NETCDF_REAL64_KIND),	intent(out)		::	values(:,:,:)
class(cable_netcdf_decomp_t),	intent(inout)		::	decomp
integer,	intent(in),	optional	::	frame

cable_netcdf_nf90_mod Module

Contents

Derived Types

Functions

Subroutines

Uses

Derived Types

type, public, extends(cable_netcdf_io_t) :: cable_netcdf_nf90_io_t

Type-Bound Procedures

type, private, extends(cable_netcdf_file_t) :: cable_netcdf_nf90_file_t

Components

Type-Bound Procedures

Functions

private function type_nf90(type)

Arguments

Return Value integer

private function cable_netcdf_nf90_io_create_file(this, path) result(file)

Arguments

Return Value class(cable_netcdf_file_t), allocatable

private function cable_netcdf_nf90_io_open_file(this, path) result(file)

Arguments

Return Value class(cable_netcdf_file_t), allocatable

private function cable_netcdf_nf90_io_create_decomp(this, compmap, dims, type) result(decomp)

Arguments

Return Value class(cable_netcdf_decomp_t), allocatable

Subroutines

private subroutine check_nf90(status)

Arguments

private subroutine cable_netcdf_nf90_io_init(this)

Arguments

private subroutine cable_netcdf_nf90_io_finalise(this)

Arguments

private subroutine cable_netcdf_nf90_file_close(this)

Arguments

private subroutine cable_netcdf_nf90_file_end_def(this)

Arguments

private subroutine cable_netcdf_nf90_file_sync(this)

Arguments

private subroutine cable_netcdf_nf90_file_def_dims(this, dim_names, dim_lens)

Arguments

private subroutine cable_netcdf_nf90_file_def_var(this, var_name, dim_names, type)

Arguments

private subroutine cable_netcdf_nf90_file_put_att_global_string(this, att_name, att_value)

Arguments

private subroutine cable_netcdf_nf90_file_put_att_global_int32(this, att_name, att_value)

Arguments

private subroutine cable_netcdf_nf90_file_put_att_global_real32(this, att_name, att_value)

Arguments

private subroutine cable_netcdf_nf90_file_put_att_global_real64(this, att_name, att_value)

Arguments

private subroutine cable_netcdf_nf90_file_put_att_var_string(this, var_name, att_name, att_value)

Arguments

private subroutine cable_netcdf_nf90_file_put_att_var_int32(this, var_name, att_name, att_value)

Arguments

private subroutine cable_netcdf_nf90_file_put_att_var_real32(this, var_name, att_name, att_value)

Arguments

private subroutine cable_netcdf_nf90_file_put_att_var_real64(this, var_name, att_name, att_value)

Arguments

private subroutine cable_netcdf_nf90_file_get_att_global_string(this, att_name, att_value)

Arguments

private subroutine cable_netcdf_nf90_file_get_att_global_int32(this, att_name, att_value)

Arguments

private subroutine cable_netcdf_nf90_file_get_att_global_real32(this, att_name, att_value)

Arguments

private subroutine cable_netcdf_nf90_file_get_att_global_real64(this, att_name, att_value)

Arguments

private subroutine cable_netcdf_nf90_file_get_att_var_string(this, var_name, att_name, att_value)

Arguments

private subroutine cable_netcdf_nf90_file_get_att_var_int32(this, var_name, att_name, att_value)

Arguments

private subroutine cable_netcdf_nf90_file_get_att_var_real32(this, var_name, att_name, att_value)

Arguments

private subroutine cable_netcdf_nf90_file_get_att_var_real64(this, var_name, att_name, att_value)

Arguments

private subroutine cable_netcdf_nf90_file_inq_dim_len(this, dim_name, dim_len)

Arguments

private subroutine cable_netcdf_nf90_file_put_var_int32_0d(this, var_name, values, start, count)

Arguments

private subroutine cable_netcdf_nf90_file_put_var_int32_1d(this, var_name, values, start, count)

Arguments