Changeset 1711 for palm/trunk/SOURCE

Timestamp:

Nov 5, 2015 7:38:04 AM (9 years ago)

Author:

raasch

Message:

bugfix: loop moved into IF block to avoid usage of l without being defined

File:

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

palm/trunk/SOURCE/diffusivities.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! bugfix: loop moved into IF block to avoid usage of l without being defined
 ! 
 ! Former revisions:
@@ -181 +181 @@
                 kh(k,j,i) = ( 1.0_wp + 2.0_wp * l / ll ) * km(k,j,i)
 
+#if ! defined( __openacc )
+!
+!++             Statistics still have to be realized for accelerators
+!--             Summation for averaged profile (cf. flow_statistics)
+                DO  sr = 0, statistic_regions
+                   sums_l_l(k,sr,tn) = sums_l_l(k,sr,tn) + l * rmask(j,i,sr)
+                ENDDO
+#endif
              ENDIF
-
-#if ! defined( __openacc )
-!
-!++          Statistics still have to be realized for accelerators
-!--          Summation for averaged profile (cf. flow_statistics)
-             DO  sr = 0, statistic_regions
-                sums_l_l(k,sr,tn) = sums_l_l(k,sr,tn) + l * rmask(j,i,sr)
-             ENDDO
-#endif
 
           ENDDO