timeoutputs Module Reference

Data Types
type	tdout
	Data structure containing values of a variable possibly depending on time (e.g., forcing function). More...

Functions/Subroutines
subroutine	init_td (this, stderr, dimdata, ndata)
	Static constructor for timeoutputs::tdout.
subroutine	kill_td (this, lun)
	Static destructor for timeoutputs::tdout.
subroutine	info_td (this, lun, nsample)
	Info procedure for timeoutputs::tdout.
subroutine	write_td (this, lun)
	Write non-zero content of tdout::tdactual for non steady state data.
subroutine	write_end_time (this, lun)
	Write variable tdout::time.
integer function	eval_ninput (this)
	Compute number of data arrays (columns of tdout::tdactual) having non-zero norm.

Function/Subroutine Documentation

init_td()

subroutine timeoutputs::init_td	(	class(tdout), intent(out)	this,
		integer, intent(in)	stderr,
		integer, intent(in)	dimdata,
		integer, intent(in)	ndata )

Static constructor for timeoutputs::tdout.

---

Initialize variables tdout::dimdata and tdout::ndata and allocate variable tdout::tdactual. Set tdout::built = .true. and tdout::steadytd = .false.

Parameters

[in]	stderr	unit number for error message
[in]	dimdata	value to be assigned to tdout::dimdata
[in]	ndata	value to be assigned to tdout::ndata

Definition at line 61 of file modTimeOutputs.f90.

kill_td()

subroutine timeoutputs::kill_td ( class(tdout), intent(inout) this, integer, intent(in) lun )

private

Static destructor for timeoutputs::tdout.

---

Deallocate array tdout::tdactual and set tdout::built = .false.

Parameters

[in]

lun

unit number for error message

Definition at line 92 of file modTimeOutputs.f90.

info_td()

subroutine timeoutputs::info_td ( class(tdout), intent(in) this, integer, intent(in) lun, integer, intent(in) nsample )

private

Info procedure for timeoutputs::tdout.

---

Write non-zero content of variable tdout::tdactual

Parameters

[in]	lun	unit number for output message
[in]	nsample	number of first non zero columns of tdout::tdactual to print

Definition at line 115 of file modTimeOutputs.f90.

write_td()

subroutine timeoutputs::write_td ( class(tdout), intent(inout) this, integer, intent(in) lun )

private

Write non-zero content of tdout::tdactual for non steady state data.

---

If tdout::steadytd_written = .false. this procedure writes the columns of tdout::tdactual having non-zero norm, otherwise it does nothin. Then, if tdout::steadytd = .true. set tdout::steadytd_written = .true..

Parameters

[in]

lun

unit number for output

if the steady steady is already written do nothing

if the steady steady is reached write closing sequence and change the flag

Definition at line 156 of file modTimeOutputs.f90.

write_end_time()

subroutine timeoutputs::write_end_time ( class(tdout), intent(inout) this, integer, intent(in) lun )

private

Write variable tdout::time.

---

Parameters

[in]

lun

unit number for output message

Definition at line 190 of file modTimeOutputs.f90.

eval_ninput()

integer function timeoutputs::eval_ninput ( class(tdout), intent(in) this )

private

Compute number of data arrays (columns of tdout::tdactual) having non-zero norm.

---

Returns

(integer) number of data arrays (columns of tdout::tdactual) having non-zero norm

Definition at line 206 of file modTimeOutputs.f90.