Changeset 4441 for palm/trunk/SOURCE/sum_up_3d_data.f90

Timestamp:

Mar 4, 2020 7:20:35 PM (4 years ago)

Author:

suehring

Message:

Change order of dimension in surface arrays %frac, %emissivity and %albedo to allow for better vectorization in the radiation interactions; Set back turbulent length scale to 8 x grid spacing in the parametrized mode for the synthetic turbulence generator (was accidentally changed in last commit)

File:

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

palm/trunk/SOURCE/sum_up_3d_data.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Change order of dimension in surface array %frac to allow for better 
+! vectorization.
 ! 
 ! Former revisions:
@@ -371 +372 @@
                          m = surf_usm_h%end_index(j,i)
                          ghf_av(j,i) = ghf_av(j,i) +                           &
-                                         surf_usm_h%frac(ind_veg_wall,m)  *    &
+                                         surf_usm_h%frac(m,ind_veg_wall)  *    &
                                          surf_usm_h%wghf_eb(m)        +        &
-                                         surf_usm_h%frac(ind_pav_green,m) *    &
+                                         surf_usm_h%frac(m,ind_pav_green) *    &
                                          surf_usm_h%wghf_eb_green(m)  +        &
-                                         surf_usm_h%frac(ind_wat_win,m)   *    &
+                                         surf_usm_h%frac(m,ind_wat_win)   *    &
                                          surf_usm_h%wghf_eb_window(m)
                       ENDIF
@@ -644 +645 @@
                          m = surf_usm_h%end_index(j,i)
                          r_a_av(j,i) = r_a_av(j,i) +                           &
-                                         surf_usm_h%frac(ind_veg_wall,m)  *    &
+                                         surf_usm_h%frac(m,ind_veg_wall)  *    &
                                          surf_usm_h%r_a(m)       +             & 
-                                         surf_usm_h%frac(ind_pav_green,m) *    &
+                                         surf_usm_h%frac(m,ind_pav_green) *    &
                                          surf_usm_h%r_a_green(m) +             & 
-                                         surf_usm_h%frac(ind_wat_win,m)   *    &
+                                         surf_usm_h%frac(m,ind_wat_win)   *    &
                                          surf_usm_h%r_a_window(m)
                       ENDIF