Changeset 4836 for palm/trunk/SOURCE


Ignore:
Timestamp:
Jan 7, 2021 1:58:12 PM (3 years ago)
Author:
raasch
Message:

openmp bugfix: some missing arrays added to reduction clause

File:
1 edited

Legend:

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

    r4828 r4836  
    2727! -----------------
    2828! $Id$
     29! openmp bugfix: some missing arrays added to reduction clause
     30!
     31! 4824 2020-12-12 20:45:23Z moh.hefny
    2932! Bugfix: change the unit of radiation fluxes, few formating changes
    3033!
     
    61586161
    61596162         !$OMP PARALLEL DO PRIVATE (icsf, ipcgb, i, j, k, kk, isurfsrc, pc_abs_frac, pcrad, asrc) &
    6160          !$OMP&   REDUCTION(+:pinswl, pinlwl, pabslwl, pemitlwl, pabs_pc_lwdifl) SCHEDULE (STATIC)
     6163         !$OMP&   REDUCTION(+:pinswl, pinlwl, pabslwl, pemitlwl, pabs_pc_lwdifl, pcbinlw, surfinlg) SCHEDULE (STATIC)
    61616164         DO  icsf = 1, ncsfl
    61626165            ipcgb    = csfsurf(1, icsf)
Note: See TracChangeset for help on using the changeset viewer.