source: codes/icosagcm/devel/src/kernels_unst/gradient.k90 @ 913

Last change on this file since 913 was 658, checked in by dubos, 7 years ago

devel/unstructured : updated kernels
File size: 554 bytes
Line 
1   !--------------------------------------------------------------------------
2   !---------------------------- gradient ----------------------------------
3   !$OMP DO SCHEDULE(STATIC)
4   DO edge = 1, edge_num
5      ij_left = left(edge)
6      ij_right = right(edge)
7      !DIR$ SIMD
8      DO l = 1, llm
9         grad(l,edge) = 1.*(b(l,ij_right)-b(l,ij_left))
10      END DO
11   END DO
12   !$OMP END DO
13   !---------------------------- gradient ----------------------------------
14   !--------------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.