Changeset 4271 for palm

Timestamp:

Oct 23, 2019 10:46:41 AM (5 years ago)

Author:

maronga

Message:

bugfix in calculation of snow albedo

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Bugfix: missing parentheses in calculation of snow albedo
+! 
+! 4245 2019-09-30 08:40:37Z pavelkrc
 ! Initialize explicit per-surface albedos from building_surface_pars
 ! 
@@ -4955 +4958 @@
                        surf%rrtm_aldir(ind_type,m) =                           &
                                  0.5_wp * ( 1.0_wp - surf%aldif(ind_type,m) )  &
-                                        * ( 3.0_wp / ( 1.0_wp + 4.0_wp         &
-                                        * cos_zenith ) ) - 1.0_wp
+                                        * ( ( 3.0_wp / ( 1.0_wp + 4.0_wp       &
+                                        * cos_zenith ) ) - 1.0_wp )
                        surf%rrtm_asdir(ind_type,m) =                           &
                                  0.5_wp * ( 1.0_wp - surf%asdif(ind_type,m) )  &
-                                        * ( 3.0_wp / ( 1.0_wp + 4.0_wp         &
-                                        * cos_zenith ) ) - 1.0_wp
+                                        * ( ( 3.0_wp / ( 1.0_wp + 4.0_wp       &
+                                        * cos_zenith ) ) - 1.0_wp )
 
                        surf%rrtm_aldir(ind_type,m) =                           &