casa_ncdf_module Module

Interfaces

public interface put_var_nc

public subroutine put_var_ncr1(ncid, var_name, var)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
character(len=*),	intent(in)			::	var_name
real,	intent(in),		dimension(:)	::	var

public subroutine put_var_ncr2(ncid, var_name, var, n_call)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
character(len=*),	intent(in)			::	var_name
real(kind=r_2),	intent(in),		dimension(:)	::	var
integer,	intent(in)			::	n_call

public subroutine put_var_ncr3(ncid, var_name, var, n_call, nl)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
character(len=*),	intent(in)			::	var_name
real(kind=r_2),	intent(in),		dimension(:,:)	::	var
integer,	intent(in)			::	n_call
integer,	intent(in)			::	nl

public interface get_var_nc

public subroutine get_var_ncr2(ncid, var_name, var, n_call)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
character(len=*),	intent(in)			::	var_name
real(kind=r_2),	intent(out),		dimension(:)	::	var
integer				::	n_call

public subroutine get_var_ncr3(ncid, var_name, var, n_call, nl)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
character(len=*),	intent(in)			::	var_name
real(kind=r_2),	intent(out),		dimension(:,:)	::	var
integer,	intent(in)			::	n_call
integer,	intent(in)			::	nl

Functions

public function IS_CASA_TIME(iotype, yyyy, ktau, kstart, koffset, kend, ktauday, logn)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=1),	intent(in)			::	iotype*5
integer,	intent(in)			::	yyyy
integer,	intent(in)			::	ktau
integer,	intent(in)			::	kstart
integer,	intent(in)			::	koffset
integer,	intent(in)			::	kend
integer,	intent(in)			::	ktauday
integer,	intent(in)			::	logn

Return Value logical

Subroutines

public subroutine def_dims(nd, ncid, dimID, dim_len, dim_name)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nd
integer,	intent(in)			::	ncid
integer,	intent(out),		dimension(:)	::	dimID
integer,	intent(in),		dimension(:)	::	dim_len
character(len=*),	intent(in),		dimension(:)	::	dim_name

public subroutine def_vars(nv, ncid, xtype, dimID, var_name, varID)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nv
integer,	intent(in)			::	ncid
integer,	intent(in)			::	xtype
integer,	intent(in),		dimension(:)	::	dimID
character(len=*),	intent(in),		dimension(:)	::	var_name
integer,	intent(inout),		dimension(:)	::	varID

public subroutine def_var_atts(ncfile_in, ncid, varID)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	ncfile_in
integer,	intent(in)			::	ncid
integer,	intent(in),		dimension(:)	::	varID

public subroutine put_var_ncr1(ncid, var_name, var)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
character(len=*),	intent(in)			::	var_name
real,	intent(in),		dimension(:)	::	var

public subroutine put_var_ncr2(ncid, var_name, var, n_call)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
character(len=*),	intent(in)			::	var_name
real(kind=r_2),	intent(in),		dimension(:)	::	var
integer,	intent(in)			::	n_call

public subroutine put_var_ncr3(ncid, var_name, var, n_call, nl)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
character(len=*),	intent(in)			::	var_name
real(kind=r_2),	intent(in),		dimension(:,:)	::	var
integer,	intent(in)			::	n_call
integer,	intent(in)			::	nl

public subroutine get_var_ncr2(ncid, var_name, var, n_call)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
character(len=*),	intent(in)			::	var_name
real(kind=r_2),	intent(out),		dimension(:)	::	var
integer				::	n_call

public subroutine get_var_ncr3(ncid, var_name, var, n_call, nl)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
character(len=*),	intent(in)			::	var_name
real(kind=r_2),	intent(out),		dimension(:,:)	::	var
integer,	intent(in)			::	n_call
integer,	intent(in)			::	nl

public subroutine HANDLE_ERR(status, msg)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	status
character(len=*),	intent(in),	optional		::	msg

public subroutine GET_UNIT(IUNIT)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(out)			::	IUNIT

public subroutine stderr_nc(status, message, var)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	status
character(len=*),	intent(in)			::	message
character(len=*),	intent(in)			::	var

public subroutine YMDHMS2DOYSOD(YYYY, MM, DD, HOUR, MINUTE, SECOND, DOY, SOD)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	YYYY
integer,	intent(in)			::	MM
integer,	intent(in)			::	DD
integer,	intent(in)			::	HOUR
integer,	intent(in)			::	MINUTE
integer,	intent(in)			::	SECOND
integer,	intent(out)			::	DOY
integer,	intent(out)			::	SOD

public subroutine DOYSOD2YMDHMS(YYYY, DOY, SOD, MM, DD, HOUR, MINUTE, SECOND)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	YYYY
integer,	intent(in)			::	DOY
integer,	intent(in)			::	SOD
integer,	intent(out)			::	MM
integer,	intent(out)			::	DD
integer,	intent(out),	optional		::	HOUR
integer,	intent(out),	optional		::	MINUTE
integer,	intent(out),	optional		::	SECOND