[3908] | 1 | ! radsurf_homogeneous_vegetation.f90 - Compute radiative transfer in homogeneous vegetation canopy |
---|
| 2 | ! |
---|
| 3 | ! (C) Copyright 2018- ECMWF. |
---|
| 4 | ! |
---|
| 5 | ! This software is licensed under the terms of the Apache Licence Version 2.0 |
---|
| 6 | ! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. |
---|
| 7 | ! |
---|
| 8 | ! In applying this licence, ECMWF does not waive the privileges and immunities |
---|
| 9 | ! granted to it by virtue of its status as an intergovernmental organisation |
---|
| 10 | ! nor does it submit to any jurisdiction. |
---|
| 11 | ! |
---|
| 12 | ! Author: Robin Hogan |
---|
| 13 | ! Email: r.j.hogan@ecmwf.int |
---|
| 14 | ! |
---|
| 15 | |
---|
| 16 | module radsurf_homogeneous_vegetation |
---|
| 17 | |
---|
| 18 | contains |
---|
| 19 | subroutine calc_boundary_conditions_sw(config, tile_fraction, & |
---|
| 20 | & canopy_depth, vegetation_optical_depth, vegetation_albedo, & |
---|
| 21 | & ground_albedo_diffuse, ground_albedo_direct, & |
---|
| 22 | & ref_dif, tra_dif, ref_dir, tra_dir_dif, tra_dir_dir, & |
---|
| 23 | & albedo_diffuse_reg, albedo_direct_reg, & |
---|
| 24 | & albedo_diffuse_out, albedo_direct_out, & |
---|
| 25 | & ext_air, ssa_air, g_air) |
---|
| 26 | |
---|
| 27 | use parkind, only :jprb |
---|
| 28 | |
---|
| 29 | implicit none |
---|
| 30 | |
---|
| 31 | end subroutine calc_boundary_conditions_sw |
---|
| 32 | |
---|
| 33 | subroutine calc_boundary_conditions_lw |
---|
| 34 | |
---|
| 35 | end subroutine calc_boundary_conditions_lw |
---|
| 36 | |
---|
| 37 | |
---|
| 38 | end module radsurf_homogeneous_vegetation |
---|