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

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

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

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

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

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