Ignore:
Timestamp:
Jun 8, 2017 2:25:57 PM (4 years ago)
Author:
raasch
Message:

changes in mrun: unified cycle numbers for output files are used, paths and filenames are allowed to contain arbitrary numbers of dots, archive feature completely removed from the script, nech related parts completely removed, OpenMP bugfix in prognostic_equations

File:
1 edited

Legend:

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

    r2233 r2261  
    2525! -----------------
    2626! $Id$
     27! bugfix for r2232: openmp directives removed
     28!
     29! 2233 2017-05-30 18:08:54Z suehring
    2730!
    2831! 2232 2017-05-30 17:47:52Z suehring
     
    404407           call_microphysics_at_all_substeps ) )                               &
    405408    THEN
    406        !$OMP PARALLEL private (i,j)
     409       !$OMP PARALLEL PRIVATE (i,j)
    407410       !$OMP DO
    408 !$OMP PARALLEL PRIVATE (i, j)
    409 !$OMP DO
    410411       DO  i = nxlg, nxrg
    411412          DO  j = nysg, nyng
     
    414415       ENDDO
    415416       !$OMP END PARALLEL
    416 !$OMP END PARALLEL
    417417    ENDIF
    418418
    419419!
    420420!-- Loop over all prognostic equations
    421     !$OMP PARALLEL private (i,i_omp_start,j,k,loop_start,tn)
     421    !$OMP PARALLEL PRIVATE (i,i_omp_start,j,k,loop_start,tn)
    422422
    423423    !$  tn = omp_get_thread_num()
Note: See TracChangeset for help on using the changeset viewer.