Determine the new diffusivity velocities
*** CBL options added by mc see routine cblf90 *** LB needs to be checked if this works with openmp ** END CBL option ****
Compute turbulent vertical displacement of particle
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | ipart | |||
| integer, | intent(inout) | :: | nrand | |||
| real, | intent(in) | :: | dt | |||
| real, | intent(inout) | :: | zts | |||
| real, | intent(in) | :: | rhoa | |||
| real, | intent(in) | :: | rhograd | |||
| integer, | intent(in) | :: | thread |