modmet_solve_z0_corr

public subroutine modmet_solve_z0_corr(z0_in, z0_lu, ol_old, ust_old, ol_new, ust_new, max_iter, tol, min_change)

Internal residual function for roughness-length correction.

Type	Intent	Optional		Name
real,	intent(in)		::	z0_in	source roughness length [m]
real,	intent(in)		::	z0_lu	target roughness length [m]
real,	intent(in)		::	ol_old	original Obukhov length [m]
real,	intent(in)		::	ust_old	original friction velocity [m/s]
real,	intent(out)		::	ol_new	corrected Obukhov length [m]
real,	intent(out)		::	ust_new	corrected friction velocity [m/s]
integer,	intent(in),	optional	::	max_iter	maximum iterations for root-finding (default 40)
real,	intent(in),	optional	::	tol	convergence tolerance for root-finding (default 0.015)
real,	intent(in),	optional	::	min_change	minimum change for convergence (default 0.1)

Help