Changeset 3217

Timestamp:

Aug 29, 2018 12:53:59 PM (6 years ago)

Author:

suehring

Message:

Revise calculation of index bounds for array index_list, prevent compiler (cray) to delete the loop at high optimization level.

File:

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

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Revise calculation of index bounds for array index_list, prevent compiler 
+! (cray) to delete the loop at high optimization level.  
+! 
+! 3215 2018-08-29 09:58:59Z suehring
 ! Apply an additional switch controlling the nesting of chemical species
 ! 
@@ -1103 +1107 @@
 !
 !--       Compute size of index_list.
-          ic = 0
+          ic = 0         
           DO  k = 1, size_of_array(2)
-             DO  j = coarse_bound_all(3,k), coarse_bound_all(4,k)
-                DO  i = coarse_bound_all(1,k), coarse_bound_all(2,k)
-                   ic = ic + 1
-                ENDDO
-             ENDDO
+             ic = ic + ( coarse_bound_all(4,k) - coarse_bound_all(3,k) + 1 ) * &
+                       ( coarse_bound_all(2,k) - coarse_bound_all(1,k) + 1 )
           ENDDO