static void turbulence_algebraiclength(integer *method, integer *nlev, realtype *z0b, realtype *z0s, realtype *depth, realtype *h, realtype *nn)
void algebraiclength_(integer *method, integer *nlev, realtype *z0b, realtype *z0s, realtype *depth, realtype *h, realtype *nn)