write_ovar Interface

public interface write_ovar

Module Procedures

private subroutine write_output_variable_r1(ktau, ncid, varID, vname, var_r1, writepatch, dimswitch, met)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ktau
integer,	intent(in)			::	ncid
integer,	intent(in)			::	varID
character(len=*),	intent(in)			::	vname
real(kind=4),	intent(in),		DIMENSION(:)	::	var_r1
logical,	intent(in)			::	writepatch
character(len=*),	intent(in)			::	dimswitch
type(met_type),	intent(in)			::	met

private subroutine write_output_variable_r2(ktau, ncid, varID, vname, var_r2, writepatch, dimswitch, met)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ktau
integer,	intent(in)			::	ncid
integer,	intent(in)			::	varID
character(len=*),	intent(in)			::	vname
real(kind=4),	intent(in),		DIMENSION(:, :)	::	var_r2
logical,	intent(in)			::	writepatch
character(len=*),	intent(in)			::	dimswitch
type(met_type),	intent(in)			::	met

private subroutine write_output_parameter_r1(ncid, parID, pname, par_r1, writepatch, dimswitch, restart)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
integer,	intent(in)			::	parID
character(len=*),	intent(in)			::	pname
real(kind=4),	intent(in),		DIMENSION(:)	::	par_r1
logical,	intent(in)			::	writepatch
character(len=*),	intent(in)			::	dimswitch
logical,	intent(in)			::	restart

private subroutine write_output_parameter_r1d(ncid, parID, pname, par_r1d, writepatch, dimswitch, restart)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
integer,	intent(in)			::	parID
character(len=*),	intent(in)			::	pname
real(kind=r_2),	intent(in),		DIMENSION(:)	::	par_r1d
logical,	intent(in)			::	writepatch
character(len=*),	intent(in)			::	dimswitch
logical,	intent(in)			::	restart

private subroutine write_output_parameter_r2(ncid, parID, pname, par_r2, writepatch, dimswitch, restart)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
integer,	intent(in)			::	parID
character(len=*),	intent(in)			::	pname
real(kind=4),	intent(in),		DIMENSION(:, :)	::	par_r2
logical,	intent(in)			::	writepatch
character(len=*),	intent(in)			::	dimswitch
logical,	intent(in),	optional		::	restart

private subroutine write_output_parameter_r2d(ncid, parID, pname, par_r2d, writepatch, dimswitch, restart)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
integer,	intent(in)			::	parID
character(len=*),	intent(in)			::	pname
real(kind=r_2),	intent(in),		DIMENSION(:, :)	::	par_r2d
logical,	intent(in)			::	writepatch
character(len=*),	intent(in)			::	dimswitch
logical,	intent(in),	optional		::	restart