modstat_nc Module

Uses

- netcdf
- modmpi
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Used by

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public,	save	::	timeID	=	0
integer,	public,	save	::	ztID	=	0
integer,	public,	save	::	zmID	=	0
integer,	public,	save	::	xtID	=	0
integer,	public,	save	::	xmID	=	0
integer,	public,	save	::	ytID	=	0
integer,	public,	save	::	ymID	=	0
integer,	public,	save	::	ztsID	=	0
integer,	public,	save	::	fctID	=	0
integer,	public,	save	::	lyrID	=	0
real(kind=4),	public		::	nc_fillvalue	=	-999.

Interfaces

public interface writestat_nc

public subroutine writestat_time_nc(ncid, nvar, ncname, vars, nrec, lraise)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
integer,	intent(in)			::	nvar
character(len=*),	intent(in),		dimension(:,:)	::	ncname
real,	intent(in),		dimension(nvar)	::	vars
integer,	intent(inout)			::	nrec
logical,	intent(in)			::	lraise

public subroutine writestat_1D_nc(ncid, nvar, ncname, vars, nrec, dim1)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
integer,	intent(in)			::	nvar
character(len=*),	intent(in),		dimension(:,:)	::	ncname
real,	intent(in),		dimension(dim1,nvar)	::	vars
integer,	intent(in)			::	nrec
integer,	intent(in)			::	dim1

public subroutine writestat_2D_nc(ncid, nvar, ncname, vars, nrec, dim1, dim2)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
integer,	intent(in)			::	nvar
character(len=*),	intent(in),		dimension(:,:)	::	ncname
real,	intent(in),		dimension(:,:,:)	::	vars
integer,	intent(in)			::	nrec
integer,	intent(in)			::	dim1
integer,	intent(in)			::	dim2

public subroutine writestat_3D_nc(ncid, nvar, ncname, vars, nrec, dim1, dim2, dim3)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
integer,	intent(in)			::	nvar
character(len=*),	intent(in),		dimension(:,:)	::	ncname
real,	intent(in)			::	vars(0:dim1-1,0:dim2-1,0:dim3-1,nvar)
integer,	intent(in)			::	nrec
integer,	intent(in)			::	dim1
integer,	intent(in)			::	dim2
integer,	intent(in)			::	dim3

public subroutine writestat_3D_short_nc(ncid, nvar, ncname, vars, nrec, dim1, dim2, dim3)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
integer,	intent(in)			::	nvar
character(len=*),	intent(in),		dimension(:,:)	::	ncname
integer(kind=selected_int_kind(4)),	intent(in),		dimension(dim1,dim2,dim3,nvar)	::	vars
integer,	intent(in)			::	nrec
integer,	intent(in)			::	dim1
integer,	intent(in)			::	dim2
integer,	intent(in)			::	dim3

Subroutines

public subroutine initstat_nc()

Arguments

None

public subroutine open_nc(fname, ncid, nrec, n1, n2, n3, ns, nfcts, nlyrs)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=40),	intent(in)			::	fname
integer,	intent(out)			::	ncid
integer,	intent(out)			::	nrec
integer,	intent(in),	optional		::	n1
integer,	intent(in),	optional		::	n2
integer,	intent(in),	optional		::	n3
integer,	intent(in),	optional		::	ns
integer,	intent(in),	optional		::	nfcts
integer,	intent(in),	optional		::	nlyrs

public subroutine define_nc(ncID, nVar, sx)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncID
integer,	intent(in)			::	nVar
character(len=*),	intent(in)			::	sx(nVar,4)

public subroutine redefine_nc(ncid)

Arguments

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

public subroutine exitstat_nc(ncid)

Arguments

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

public subroutine writestat_dims_nc(ncid)

Arguments

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

public subroutine writestat_time_nc(ncid, nvar, ncname, vars, nrec, lraise)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
integer,	intent(in)			::	nvar
character(len=*),	intent(in),		dimension(:,:)	::	ncname
real,	intent(in),		dimension(nvar)	::	vars
integer,	intent(inout)			::	nrec
logical,	intent(in)			::	lraise

public subroutine writestat_1D_nc(ncid, nvar, ncname, vars, nrec, dim1)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
integer,	intent(in)			::	nvar
character(len=*),	intent(in),		dimension(:,:)	::	ncname
real,	intent(in),		dimension(dim1,nvar)	::	vars
integer,	intent(in)			::	nrec
integer,	intent(in)			::	dim1

public subroutine writestat_2D_nc(ncid, nvar, ncname, vars, nrec, dim1, dim2)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
integer,	intent(in)			::	nvar
character(len=*),	intent(in),		dimension(:,:)	::	ncname
real,	intent(in),		dimension(:,:,:)	::	vars
integer,	intent(in)			::	nrec
integer,	intent(in)			::	dim1
integer,	intent(in)			::	dim2

public subroutine writestat_3D_nc(ncid, nvar, ncname, vars, nrec, dim1, dim2, dim3)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
integer,	intent(in)			::	nvar
character(len=*),	intent(in),		dimension(:,:)	::	ncname
real,	intent(in)			::	vars(0:dim1-1,0:dim2-1,0:dim3-1,nvar)
integer,	intent(in)			::	nrec
integer,	intent(in)			::	dim1
integer,	intent(in)			::	dim2
integer,	intent(in)			::	dim3

public subroutine writestat_3D_short_nc(ncid, nvar, ncname, vars, nrec, dim1, dim2, dim3)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
integer,	intent(in)			::	nvar
character(len=*),	intent(in),		dimension(:,:)	::	ncname
integer(kind=selected_int_kind(4)),	intent(in),		dimension(dim1,dim2,dim3,nvar)	::	vars
integer,	intent(in)			::	nrec
integer,	intent(in)			::	dim1
integer,	intent(in)			::	dim2
integer,	intent(in)			::	dim3

public subroutine ncinfo(out, in1, in2, in3, in4)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(out),		dimension(4)	::	out
character(len=*),	intent(in)			::	in1
character(len=*),	intent(in)			::	in2
character(len=*),	intent(in)			::	in3
character(len=*),	intent(in)			::	in4

public subroutine nchandle_error(status)

Arguments

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