Changeset 3217 for palm/trunk


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/pmc_interface_mod.f90

    r3215 r3217  
    2525! -----------------
    2626! $Id$
     27! Revise calculation of index bounds for array index_list, prevent compiler
     28! (cray) to delete the loop at high optimization level. 
     29!
     30! 3215 2018-08-29 09:58:59Z suehring
    2731! Apply an additional switch controlling the nesting of chemical species
    2832!
     
    11031107!
    11041108!--       Compute size of index_list.
    1105           ic = 0
     1109          ic = 0         
    11061110          DO  k = 1, size_of_array(2)
    1107              DO  j = coarse_bound_all(3,k), coarse_bound_all(4,k)
    1108                 DO  i = coarse_bound_all(1,k), coarse_bound_all(2,k)
    1109                    ic = ic + 1
    1110                 ENDDO
    1111              ENDDO
     1111             ic = ic + ( coarse_bound_all(4,k) - coarse_bound_all(3,k) + 1 ) * &
     1112                       ( coarse_bound_all(2,k) - coarse_bound_all(1,k) + 1 )
    11121113          ENDDO
    11131114
Note: See TracChangeset for help on using the changeset viewer.