Last change
on this file since 960 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.