source: codes/icosagcm/devel/src/kernels_unst/compute_pmid.k90 @ 929

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

devel : added missing kernels
File size: 922 bytes
Line 
1   !--------------------------------------------------------------------------
2   !---------------------------- compute_pmid ----------------------------------
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
9               pmid(l,ij) = .5*(AP(l,ij)+AP(l+1,ij) + (BP(l,ij)+BP(l+1,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
18               pmid(l,ij) = .5*(AP(l,ij)+AP(l+1,ij) + (BP(l,ij)+BP(l+1,ij)) * ps(ij) )
19            END DO
20         END DO
21         !$OMP END DO
22      END IF
23   END IF
24   !---------------------------- compute_pmid ----------------------------------
25   !--------------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.