Changeset 4643 for palm

Timestamp:

Aug 17, 2020 9:19:42 AM (4 years ago)

Author:

pavelkrc

Message:

Bugfix: typo in index of surf%* arrays

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! - Bugfix: typo in index of surf%* arrays
+!
+! 4634 2020-08-05 15:42:28Z pavelkrc
 ! - Bugfix: rtm_svf_, rtm_dif_ outputs
 ! - Bugfix: correct average transparency for MRT factors
@@ -3358 +3361 @@
                                            surf%emissivity(m,ind_veg_wall)     &
                                          + surf%frac(m,ind_pav_green) *        &
-                                           surf%emissivity(im,ind_pav_green)    &
+                                           surf%emissivity(m,ind_pav_green)    &
                                          + surf%frac(m,ind_wat_win)   *        &
                                            surf%emissivity(m,ind_wat_win)      &
@@ -5068 +5071 @@
                     IF ( cos_zenith < 0.5_wp )  THEN
                        surf%rrtm_aldir(m,ind_type) =                           &
-                                 0.5_wp * ( 1.0_wp - surf%aldif(im,ind_type) )  &
+                                 0.5_wp * ( 1.0_wp - surf%aldif(m,ind_type) )  &
                                         * ( ( 3.0_wp / ( 1.0_wp + 4.0_wp       &
                                         * cos_zenith ) ) - 1.0_wp )