forcerestore Subroutine

public subroutine forcerestore(Tg0, Rnet0, lE0, dlEdTg, Ta, Tbar, d1, rrc, lambda, cs, dt, iice, Tg, G, H, lE)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r_2),	intent(in)			::	Tg0
real(kind=r_2),	intent(in)			::	Rnet0
real(kind=r_2),	intent(in)			::	lE0
real(kind=r_2),	intent(in)			::	dlEdTg
real(kind=r_2),	intent(in)			::	Ta
real(kind=r_2),	intent(in)			::	Tbar
real(kind=r_2),	intent(in)			::	d1
real(kind=r_2),	intent(in)			::	rrc
real(kind=r_2),	intent(in)			::	lambda
real(kind=r_2),	intent(in)			::	cs
real(kind=r_2),	intent(in)			::	dt
integer,	intent(in)			::	iice
real(kind=r_2),	intent(out)			::	Tg
real(kind=r_2),	intent(out)			::	G
real(kind=r_2),	intent(out)			::	H
real(kind=r_2),	intent(out)			::	lE