subroutine, public mixing_length::compute_length |
( |
real( kind = core_rknd ), dimension(gr%nz), intent(in) |
thvm, |
|
|
real( kind = core_rknd ), dimension(gr%nz), intent(in) |
thlm, |
|
|
real( kind = core_rknd ), dimension(gr%nz), intent(in) |
rtm, |
|
|
real( kind = core_rknd ), dimension(gr%nz), intent(in) |
em, |
|
|
real( kind = core_rknd ), intent(in) |
Lscale_max, |
|
|
real( kind = core_rknd ), dimension(gr%nz), intent(in) |
p_in_Pa, |
|
|
real( kind = core_rknd ), dimension(gr%nz), intent(in) |
exner, |
|
|
real( kind = core_rknd ), dimension(gr%nz), intent(in) |
thv_ds, |
|
|
real( kind = core_rknd ), intent(in) |
mu, |
|
|
logical, intent(in) |
l_implemented, |
|
|
integer, intent(inout) |
err_code, |
|
|
real( kind = core_rknd ), dimension(gr%nz), intent(out) |
Lscale, |
|
|
real( kind = core_rknd ), dimension(gr%nz), intent(out) |
Lscale_up, |
|
|
real( kind = core_rknd ), dimension(gr%nz), intent(out) |
Lscale_down |
|
) |
| |