netcdf_file Derived Type

type, public :: netcdf_file

Inherits

Contents

Variables

file is_master_task

Type-Bound Procedures

open close get_real_scalar get_real_vector get_real_matrix get_real_array3 get get_global_attribute set_verbose transpose_matrices exists

Components

Type	Visibility	Attributes		Name		Initial
type(netcdf_file),	public		::	file
logical,	public		::	is_master_task	=	.true.

Type-Bound Procedures

procedure, public :: open => open_netcdf_file

public subroutine open_netcdf_file(this, file_name, iverbose)

Arguments

Type	Intent	Optional	Attributes		Name
class(netcdf_file)				::	this
character(len=*),	intent(in)			::	file_name
integer,	intent(in),	optional		::	iverbose

procedure, public :: close => close_netcdf_file

public subroutine close_netcdf_file(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(netcdf_file)				::	this

procedure, public :: get_real_scalar

public subroutine get_real_scalar(this, var_name, scalar)

Arguments

Type	Intent	Optional	Attributes		Name
class(netcdf_file)				::	this
character(len=*),	intent(in)			::	var_name
real(kind=jprb),	intent(out)			::	scalar

procedure, public :: get_real_vector

public subroutine get_real_vector(this, var_name, vector)

Arguments

Type	Intent	Optional	Attributes		Name
class(netcdf_file)				::	this
character(len=*),	intent(in)			::	var_name
real(kind=jprb),	intent(out),		allocatable	::	vector(:)

procedure, public :: get_real_matrix

public subroutine get_real_matrix(this, var_name, matrix, do_transp)

Arguments

Type	Intent	Optional	Attributes		Name
class(netcdf_file)				::	this
character(len=*),	intent(in)			::	var_name
real(kind=jprb),	intent(out),		allocatable	::	matrix(:,:)
logical,	intent(in),	optional		::	do_transp

procedure, public :: get_real_array3

public subroutine get_real_array3(this, var_name, var, ipermute)

Arguments

Type	Intent	Optional	Attributes		Name
class(netcdf_file)				::	this
character(len=*),	intent(in)			::	var_name
real(kind=jprb),	intent(out),		allocatable	::	var(:,:,:)
integer,	intent(in),	optional		::	ipermute(3)

generic, public :: get => get_real_scalar, get_real_vector, get_real_matrix, get_real_array3

public subroutine get_real_scalar(this, var_name, scalar)

Arguments

Type	Intent	Optional	Attributes		Name
class(netcdf_file)				::	this
character(len=*),	intent(in)			::	var_name
real(kind=jprb),	intent(out)			::	scalar

public subroutine get_real_vector(this, var_name, vector)

Arguments

Type	Intent	Optional	Attributes		Name
class(netcdf_file)				::	this
character(len=*),	intent(in)			::	var_name
real(kind=jprb),	intent(out),		allocatable	::	vector(:)

public subroutine get_real_matrix(this, var_name, matrix, do_transp)

Arguments

Type	Intent	Optional	Attributes		Name
class(netcdf_file)				::	this
character(len=*),	intent(in)			::	var_name
real(kind=jprb),	intent(out),		allocatable	::	matrix(:,:)
logical,	intent(in),	optional		::	do_transp

public subroutine get_real_array3(this, var_name, var, ipermute)

Arguments

Type	Intent	Optional	Attributes		Name
class(netcdf_file)				::	this
character(len=*),	intent(in)			::	var_name
real(kind=jprb),	intent(out),		allocatable	::	var(:,:,:)
integer,	intent(in),	optional		::	ipermute(3)

procedure, public :: get_global_attribute

public subroutine get_global_attribute(this, attr_name, attr_str)

Arguments

Type	Intent	Optional	Attributes		Name
class(netcdf_file)				::	this
character(len=*),	intent(in)			::	attr_name
character(len=*),	intent(inout)			::	attr_str

procedure, public :: set_verbose

public subroutine set_verbose(this, ival)

Arguments

Type	Intent	Optional	Attributes		Name
class(netcdf_file)				::	this
integer,		optional		::	ival

procedure, public :: transpose_matrices

public subroutine transpose_matrices(this, do_transpose)

Arguments

Type	Intent	Optional	Attributes		Name
class(netcdf_file)				::	this
logical,		optional		::	do_transpose

procedure, public :: exists

public function exists(this, var_name) result(is_present)

Arguments

Type	Intent	Optional	Attributes		Name
class(netcdf_file)				::	this
character(len=*),	intent(in)			::	var_name

Return Value logical