Changeset 1711 for palm


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

Legend:

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

    r1683 r1711  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! bugfix: loop moved into IF block to avoid usage of l without being defined
    2222!
    2323! Former revisions:
     
    181181                kh(k,j,i) = ( 1.0_wp + 2.0_wp * l / ll ) * km(k,j,i)
    182182
     183#if ! defined( __openacc )
     184!
     185!++             Statistics still have to be realized for accelerators
     186!--             Summation for averaged profile (cf. flow_statistics)
     187                DO  sr = 0, statistic_regions
     188                   sums_l_l(k,sr,tn) = sums_l_l(k,sr,tn) + l * rmask(j,i,sr)
     189                ENDDO
     190#endif
    183191             ENDIF
    184 
    185 #if ! defined( __openacc )
    186 !
    187 !++          Statistics still have to be realized for accelerators
    188 !--          Summation for averaged profile (cf. flow_statistics)
    189              DO  sr = 0, statistic_regions
    190                 sums_l_l(k,sr,tn) = sums_l_l(k,sr,tn) + l * rmask(j,i,sr)
    191              ENDDO
    192 #endif
    193192
    194193          ENDDO
Note: See TracChangeset for help on using the changeset viewer.