subroutine, public surface_varnce_module::surface_varnce |
( |
real( kind = core_rknd ), intent(in) |
upwp_sfc, |
|
|
real( kind = core_rknd ), intent(in) |
vpwp_sfc, |
|
|
real( kind = core_rknd ), intent(in) |
wpthlp_sfc, |
|
|
real( kind = core_rknd ), intent(in) |
wprtp_sfc, |
|
|
real( kind = core_rknd ), intent(in) |
um_sfc, |
|
|
real( kind = core_rknd ), intent(in) |
vm_sfc, |
|
|
real( kind = core_rknd ), intent(in) |
Lscale_up_sfc, |
|
|
real( kind = core_rknd ), dimension(sclr_dim), intent(in) |
wpsclrp_sfc, |
|
|
real( kind = core_rknd ), intent(out) |
wp2_sfc, |
|
|
real( kind = core_rknd ), intent(out) |
up2_sfc, |
|
|
real( kind = core_rknd ), intent(out) |
vp2_sfc, |
|
|
real( kind = core_rknd ), intent(out) |
thlp2_sfc, |
|
|
real( kind = core_rknd ), intent(out) |
rtp2_sfc, |
|
|
real( kind = core_rknd ), intent(out) |
rtpthlp_sfc, |
|
|
integer, intent(out) |
err_code, |
|
|
real( kind = core_rknd ), dimension(sclr_dim), intent(out) |
sclrp2_sfc, |
|
|
real( kind = core_rknd ), dimension(sclr_dim), intent(out) |
sclrprtp_sfc, |
|
|
real( kind = core_rknd ), dimension(sclr_dim), intent(out) |
sclrpthlp_sfc |
|
) |
| |