Last change
on this file since 864 was
657,
checked in by dubos, 7 years ago
|
devel/hex : updated kernels
|
File size:
767 bytes
|
Rev | Line | |
---|
[657] | 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.