subroutine gfssflx::tmpavg |
( |
real (kind=kind_phys), intent(in) | tup, |
|
|
real (kind=kind_phys), intent(in) | tm, |
|
|
real (kind=kind_phys), intent(in) | tdn, |
|
|
real (kind=kind_phys), dimension(nsoil), intent(in) | zsoil, |
|
|
integer, intent(in) | nsoil, |
|
|
integer, intent(in) | k, |
|
|
real (kind=kind_phys), intent(out) | tavg ) |
|
private |