Changeset 1257 for palm/trunk/SOURCE/flow_statistics.f90
 Timestamp:
 Nov 8, 2013 3:18:40 PM (9 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/flow_statistics.f90
r1242 r1257 21 21 ! Current revisions: 22 22 !  23 ! 23 ! openacc "end parallel" replaced by "end parallel loop" 24 24 ! 25 25 ! Former revisions: … … 1468 1468 sums_l(k,4,tn) = s3 1469 1469 ENDDO 1470 !$acc end parallel 1470 !$acc end parallel loop 1471 1471 1472 1472 ! … … 1484 1484 sums_l(k,23,tn) = s1 1485 1485 ENDDO 1486 !$acc end parallel 1486 !$acc end parallel loop 1487 1487 ENDIF 1488 1488 … … 1506 1506 sums_l(k,44,tn) = s2 1507 1507 ENDDO 1508 !$acc end parallel 1508 !$acc end parallel loop 1509 1509 1510 1510 IF ( cloud_physics ) THEN … … 1524 1524 sums_l(k,43,tn) = s2 1525 1525 ENDDO 1526 !$acc end parallel 1526 !$acc end parallel loop 1527 1527 ENDIF 1528 1528 ENDIF … … 1542 1542 sums_l(k,41,tn) = s1 1543 1543 ENDDO 1544 !$acc end parallel 1544 !$acc end parallel loop 1545 1545 ENDIF 1546 1546 !$OMP END PARALLEL … … 1747 1747 sums_l(k,38,tn) = s7 1748 1748 ENDDO 1749 !$acc end parallel 1749 !$acc end parallel loop 1750 1750 1751 1751 IF ( humidity ) THEN … … 1762 1762 sums_l(k,70,tn) = s1 1763 1763 ENDDO 1764 !$acc end parallel 1764 !$acc end parallel loop 1765 1765 ENDIF 1766 1766 … … 1778 1778 ENDDO 1779 1779 ENDDO 1780 !$acc end parallel 1780 !$acc end parallel loop 1781 1781 !$acc parallel present( sums_l ) 1782 1782 sums_l(nzb+4,pr_palm,tn) = s1 … … 1843 1843 sums_l(k,34,tn) = s4 1844 1844 ENDDO 1845 !$acc end parallel 1845 !$acc end parallel loop 1846 1846 ! 1847 1847 ! Total perturbation TKE … … 1908 1908 sums_l(k,16,tn) = s3 1909 1909 ENDDO 1910 !$acc end parallel 1910 !$acc end parallel loop 1911 1911 1912 1912 ! … … 1925 1925 sums_l(k,65,tn) = s1 1926 1926 ENDDO 1927 !$acc end parallel 1927 !$acc end parallel loop 1928 1928 ENDIF 1929 1929 … … 1948 1948 sums_l(k,48,tn) = s2 1949 1949 ENDDO 1950 !$acc end parallel 1950 !$acc end parallel loop 1951 1951 1952 1952 IF ( cloud_physics ) THEN … … 1965 1965 sums_l(k,51,tn) = s1 1966 1966 ENDDO 1967 !$acc end parallel 1967 !$acc end parallel loop 1968 1968 1969 1969 ENDIF … … 1986 1986 sums_l(k,48,tn) = s1 1987 1987 ENDDO 1988 !$acc end parallel 1988 !$acc end parallel loop 1989 1989 1990 1990 ENDIF … … 2232 2232 sums_l(k,37,tn) = s3 2233 2233 ENDDO 2234 !$acc end parallel 2234 !$acc end parallel loop 2235 2235 2236 2236 ! … … 2253 2253 sums_l(k,66,tn) = s1 2254 2254 ENDDO 2255 !$acc end parallel 2255 !$acc end parallel loop 2256 2256 2257 2257 ENDIF … … 2269 2269 sums_l(k,71,tn) = s2 2270 2270 ENDDO 2271 !$acc end parallel 2271 !$acc end parallel loop 2272 2272 2273 2273 ENDIF … … 2292 2292 sums_l(k,46,tn) = s1 2293 2293 ENDDO 2294 !$acc end parallel 2294 !$acc end parallel loop 2295 2295 2296 2296 IF ( .NOT. cloud_droplets ) THEN … … 2308 2308 sums_l(k,52,tn) = s1 2309 2309 ENDDO 2310 !$acc end parallel 2310 !$acc end parallel loop 2311 2311 2312 2312 IF ( icloud_scheme == 0 ) THEN … … 2324 2324 sums_l(k,75,tn) = s2 2325 2325 ENDDO 2326 !$acc end parallel 2326 !$acc end parallel loop 2327 2327 2328 2328 IF ( precipitation ) THEN … … 2342 2342 sums_l(k,76,tn) = s3 2343 2343 ENDDO 2344 !$acc end parallel 2344 !$acc end parallel loop 2345 2345 2346 2346 ENDIF … … 2358 2358 sums_l(k,54,tn) = s1 2359 2359 ENDDO 2360 !$acc end parallel 2360 !$acc end parallel loop 2361 2361 2362 2362 ENDIF … … 2374 2374 sums_l(k,54,tn) = s1 2375 2375 ENDDO 2376 !$acc end parallel 2376 !$acc end parallel loop 2377 2377 2378 2378 ENDIF … … 2394 2394 sums_l(k,46,tn) = s1 2395 2395 ENDDO 2396 !$acc end parallel 2396 !$acc end parallel loop 2397 2397 2398 2398 ELSEIF ( ws_scheme_sca .AND. sr == 0 ) THEN … … 2403 2403 0.61 * hom(k,1,4,sr) * sums_l(k,49,tn) 2404 2404 ENDDO 2405 !$acc end parallel 2405 !$acc end parallel loop 2406 2406 2407 2407 ENDIF … … 2426 2426 sums_l(k,49,tn) = s1 2427 2427 ENDDO 2428 !$acc end parallel 2428 !$acc end parallel loop 2429 2429 2430 2430 ENDIF … … 2459 2459 sums_l(k,15,tn) = s1 2460 2460 ENDDO 2461 !$acc end parallel 2461 !$acc end parallel loop 2462 2462 2463 2463 ENDIF … … 2480 2480 sums_l(k,17,tn) = s1 2481 2481 ENDDO 2482 !$acc end parallel 2482 !$acc end parallel loop 2483 2483 2484 2484 IF ( humidity ) THEN … … 2496 2496 sums_l(k,49,tn) = s1 2497 2497 ENDDO 2498 !$acc end parallel 2498 !$acc end parallel loop 2499 2499 2500 2500 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.