static void turbulence_dissipationeq(integer *nlev, realtype *dt, realtype *u_taus, realtype *u_taub, realtype *z0s, realtype *z0b, realtype *h, realtype *nn, realtype *ss)
void dissipationeq_(integer *nlev, realtype *dt, realtype *u_taus, realtype *u_taub, realtype *z0s, realtype *z0b, realtype *h, realtype *nn, realtype *ss)