source: codes/icosagcm/devel/src/kernels_unst/compute_pression.k90

Last change on this file was 929, checked in by dubos, 5 years ago

devel : added missing kernels
File size: 868 bytes
Line 
1   !--------------------------------------------------------------------------
2   !---------------------------- compute_pression ----------------------------------
3   IF(ap_bp_present) THEN
4      IF(offset>0) THEN
5         !$OMP DO SCHEDULE(STATIC)
6         DO ij = 1, primal_num
7            !DIR$ SIMD
8            DO l = 1, llm+1
9               p(l,ij) = AP(l,ij) + BP(l,ij) * ps(ij)
10            END DO
11         END DO
12         !$OMP END DO
13      ELSE
14         !$OMP DO SCHEDULE(STATIC)
15         DO ij = 1, primal_num
16            !DIR$ SIMD
17            DO l = 1, llm+1
18               p(l,ij) = AP(l,ij) + BP(l,ij) * ps(ij)
19            END DO
20         END DO
21         !$OMP END DO
22      END IF
23   END IF
24   !---------------------------- compute_pression ----------------------------------
25   !--------------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.