Changeset 658 for codes/icosagcm/devel/src/kernels_unst/gradient.k90
- Timestamp:
- 12/30/17 02:00:38 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/kernels_unst/gradient.k90
r614 r658 5 5 ij_left = left(edge) 6 6 ij_right = right(edge) 7 !DIR$ SIMD 7 8 DO l = 1, llm 8 9 grad(l,edge) = 1.*(b(l,ij_right)-b(l,ij_left))
Note: See TracChangeset
for help on using the changeset viewer.