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

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

devel : added unstructured-mesh kernels
File size: 537 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      DO l = 1, llm
8         grad(l,edge) = 1.*(b(l,ij_right)-b(l,ij_left))
9      END DO
10   END DO
11   !$OMP END DO
12   !---------------------------- gradient ----------------------------------
13   !--------------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.