Changeset 4836 for palm/trunk

Timestamp:

Jan 7, 2021 1:58:12 PM (4 years ago)

Author:

raasch

Message:

openmp bugfix: some missing arrays added to reduction clause

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! openmp bugfix: some missing arrays added to reduction clause 
+!
+! 4824 2020-12-12 20:45:23Z moh.hefny
 ! Bugfix: change the unit of radiation fluxes, few formating changes
 !
@@ -6158 +6161 @@
 
          !$OMP PARALLEL DO PRIVATE (icsf, ipcgb, i, j, k, kk, isurfsrc, pc_abs_frac, pcrad, asrc) &
-         !$OMP&   REDUCTION(+:pinswl, pinlwl, pabslwl, pemitlwl, pabs_pc_lwdifl) SCHEDULE (STATIC)
+         !$OMP&   REDUCTION(+:pinswl, pinlwl, pabslwl, pemitlwl, pabs_pc_lwdifl, pcbinlw, surfinlg) SCHEDULE (STATIC)
          DO  icsf = 1, ncsfl
             ipcgb    = csfsurf(1, icsf)