Changeset 2261 for palm/trunk/SOURCE/prognostic_equations.f90

Timestamp:

Jun 8, 2017 2:25:57 PM (7 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:

• palm/trunk/SOURCE/prognostic_equations.f90 (modified) (3 diffs)

palm/trunk/SOURCE/prognostic_equations.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix for r2232: openmp directives removed
+! 
+! 2233 2017-05-30 18:08:54Z suehring
 !
 ! 2232 2017-05-30 17:47:52Z suehring
@@ -404 +407 @@
            call_microphysics_at_all_substeps ) )                               &
     THEN
-       !$OMP PARALLEL private (i,j)
+       !$OMP PARALLEL PRIVATE (i,j)
        !$OMP DO
-!$OMP PARALLEL PRIVATE (i, j)
-!$OMP DO
        DO  i = nxlg, nxrg
           DO  j = nysg, nyng
@@ -414 +415 @@
        ENDDO
        !$OMP END PARALLEL
-!$OMP END PARALLEL
     ENDIF
 
 !
 !-- Loop over all prognostic equations
-    !$OMP PARALLEL private (i,i_omp_start,j,k,loop_start,tn)
+    !$OMP PARALLEL PRIVATE (i,i_omp_start,j,k,loop_start,tn)
 
     !$  tn = omp_get_thread_num()