Changeset 3589 for palm/trunk/SOURCE/radiation_model_mod.f90
- Timestamp:
- Nov 30, 2018 3:09:51 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/radiation_model_mod.f90
r3572 r3589 28 28 ! ----------------- 29 29 ! $Id$ 30 ! Remove erroneous UTF encoding 31 ! 32 ! 3572 2018-11-28 11:40:28Z suehring 30 33 ! Add filling the short- and longwave radiation flux arrays (e.g. diffuse, 31 34 ! direct, reflected, resedual) for all surfaces. This is required to surface … … 697 700 REAL(wp), DIMENSION(:,:), ALLOCATABLE :: rad_sw_out_xy_av !< average of outgoing shortwave radiation at surface 698 701 ! 699 !-- Land surface albedos for solar zenith angle of 60 °after Briegleb (1992)702 !-- Land surface albedos for solar zenith angle of 60degree after Briegleb (1992) 700 703 !-- (shortwave, longwave, broadband): sw, lw, bb, 701 704 REAL(wp), DIMENSION(0:2,1:33), PARAMETER :: albedo_pars = RESHAPE( (/&
Note: See TracChangeset
for help on using the changeset viewer.