Changeset 4636

Timestamp:

Aug 6, 2020 2:10:12 PM (4 years ago)

Author:

resler

Message:

Fix bugs in OpenMP directives

File:

• palm/trunk/SOURCE/chemistry_model_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -21 +21 @@
 ! Current revisions:
 ! -----------------
-!
+! Fix bugs in OpenMP directives
 !
 ! Former revisions:
@@ -3262 +3262 @@
     USE statistics
 
+    !$ USE omp_lib
 
     CHARACTER (LEN=*) ::  mode   !<
@@ -3299 +3300 @@
           sums_l(nzb:nzt+1,hom_index_spec(lpr),tn) = sums_tmp(nzb:nzt+1,tn)
        ENDDO
+       !$OMP END PARALLEL
 !
 !--    Sum-up profiles for vertical fluxes of the the species. Note, in case of WS5 scheme the
@@ -3350 +3352 @@
           sums_l(nzb:nzt+1,hom_index_fl_sgs(lpr),tn) = sums_tmp(nzb:nzt+1,tn)
        ENDDO
+       !$OMP END PARALLEL
 !
 !--    Resolved-scale fluxes from the WS5 scheme
@@ -3360 +3363 @@
                                                       sums_ws_l(nzb:nzt+1,tn,cs_pr_index_fl_res(lpr))
           ENDDO
+          !$OMP END PARALLEL
        ENDIF