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

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

devel/unstructured : updated kernels
File size: 593 bytes
Line 
1   !--------------------------------------------------------------------------
2   !---------------------------- caldyn_mil ----------------------------------
3   !$OMP DO SCHEDULE(STATIC)
4   DO ij = 1, primal_num
5      l=1
6      m_il(l,ij) = .5*rhodz(l,ij)
7      !DIR$ SIMD
8      DO l = 2, llm
9         m_il(l,ij) = .5*(rhodz(l,ij)+rhodz(l-1,ij))
10      END DO
11      l=llm+1
12      m_il(l,ij) = .5*rhodz(l-1,ij)
13   END DO
14   !$OMP END DO
15   !---------------------------- caldyn_mil ----------------------------------
16   !--------------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.