Changeset 4370 for palm/trunk/SOURCE/chemistry_model_mod.f90
- Timestamp:
- Jan 10, 2020 2:00:44 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/chemistry_model_mod.f90
r4346 r4370 27 27 ! ----------------- 28 28 ! $Id$ 29 ! vector directives added to force vectorization on Intel19 compiler 30 ! 31 ! 4346 2019-12-18 11:55:56Z motisi 29 32 ! Introduction of wall_flags_total_0, which currently sets bits based on static 30 33 ! topography information used in wall_flags_static_0 … … 2744 2747 DO i = nxl, nxr 2745 2748 DO j = nys, nyn 2749 !following directive is required to vectorize on Intel19 2750 !DIR$ IVDEP 2746 2751 DO k = nzb+1, nzt 2747 2752 chem_species(ilsp)%conc_p(k,j,i) = chem_species(ilsp)%conc(k,j,i) &
Note: See TracChangeset
for help on using the changeset viewer.