Changeset 658 for codes/icosagcm/devel/src/kernels_unst/caldyn_dmass.k90
- Timestamp:
- 12/30/17 02:00:38 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/kernels_unst/caldyn_dmass.k90
r624 r658 3 3 !$OMP DO SCHEDULE(STATIC) 4 4 DO ij = 1, primal_num 5 !DIR$ SIMD 5 6 DO l = 1, llm 6 7 convm(l,ij) = mass_dbk(l,ij) * dmass_col(ij)
Note: See TracChangeset
for help on using the changeset viewer.