Changeset 4636 for palm/trunk


Ignore:
Timestamp:
Aug 6, 2020 2:10:12 PM (4 years ago)
Author:
resler
Message:

Fix bugs in OpenMP directives

File:
1 edited

Legend:

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

    r4601 r4636  
    2121! Current revisions:
    2222! -----------------
    23 !
     23! Fix bugs in OpenMP directives
    2424!
    2525! Former revisions:
     
    32623262    USE statistics
    32633263
     3264    !$ USE omp_lib
    32643265
    32653266    CHARACTER (LEN=*) ::  mode   !<
     
    32993300          sums_l(nzb:nzt+1,hom_index_spec(lpr),tn) = sums_tmp(nzb:nzt+1,tn)
    33003301       ENDDO
     3302       !$OMP END PARALLEL
    33013303!
    33023304!--    Sum-up profiles for vertical fluxes of the the species. Note, in case of WS5 scheme the
     
    33503352          sums_l(nzb:nzt+1,hom_index_fl_sgs(lpr),tn) = sums_tmp(nzb:nzt+1,tn)
    33513353       ENDDO
     3354       !$OMP END PARALLEL
    33523355!
    33533356!--    Resolved-scale fluxes from the WS5 scheme
     
    33603363                                                      sums_ws_l(nzb:nzt+1,tn,cs_pr_index_fl_res(lpr))
    33613364          ENDDO
     3365          !$OMP END PARALLEL
    33623366       ENDIF
    33633367
Note: See TracChangeset for help on using the changeset viewer.