source: codes/icosagcm/trunk/src/kernels/gradient.k90 @ 580

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

trunk : upgrading to devel
File size: 605 bytes
Line 
1   !--------------------------------------------------------------------------
2   !---------------------------- gradient ----------------------------------
3   DO l = ll_begin, ll_end
4      !DIR$ SIMD
5      DO ij=ij_begin_ext, ij_end_ext
6         grad(ij+u_right,l) = ne_right*(b(ij+t_right,l)-b(ij,l))
7         grad(ij+u_lup,l) = ne_lup*(b(ij+t_lup,l)-b(ij,l))
8         grad(ij+u_ldown,l) = ne_ldown*(b(ij+t_ldown,l)-b(ij,l))
9      END DO
10   END DO
11   !---------------------------- gradient ----------------------------------
12   !--------------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.