Ignore:
Timestamp:
Nov 30, 2016 2:34:05 PM (5 years ago)
Author:
raasch
Message:

mostly openmp related bugfixes

File:
1 edited

Legend:

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

    r2038 r2073  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! openmp bugfix: large scale forcing calculations cannot be executed thread
     23! parallel
    2324!
    2425! Former revisions:
     
    12281229
    12291230       ENDIF
     1231       !$OMP END PARALLEL
    12301232
    12311233!
     
    12731275       ENDIF
    12741276
    1275 
     1277       !$OMP PARALLEL PRIVATE( i, j, k, tn )
     1278!$     tn = omp_get_thread_num()
    12761279       IF ( land_surface )  THEN
    12771280          !$OMP DO
Note: See TracChangeset for help on using the changeset viewer.