source: codes/icosagcm/devel/src/kernels_hex/caldyn_mil.k90 @ 657

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

devel/hex : updated kernels
File size: 767 bytes
Line 
1   !--------------------------------------------------------------------------
2   !---------------------------- caldyn_mil ----------------------------------
3   IF (ll_begin==1) THEN
4      !DIR$ SIMD
5      DO ij=ij_begin_ext, ij_end_ext
6         m_il(ij,1) = .5*rhodz(ij,1)
7      END DO
8   END IF
9   DO l = ll_beginp1, ll_end
10      !DIR$ SIMD
11      DO ij=ij_begin_ext, ij_end_ext
12         m_il(ij,l) = .5*(rhodz(ij,l)+rhodz(ij,l-1))
13      END DO
14   END DO
15   IF(ll_endp1==llm+1) THEN
16      !DIR$ SIMD
17      DO ij=ij_begin_ext, ij_end_ext
18         m_il(ij,llm+1) = .5*rhodz(ij,llm+1 -1)
19      END DO
20   END IF
21   !---------------------------- caldyn_mil ----------------------------------
22   !--------------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.