source: codes/icosagcm/devel/src/kernels_hex/caldyn_wflux.k90 @ 724

Last change on this file since 724 was 724, checked in by dubos, 6 years ago

devel : updated generated kernels ; added missing SIMD directives
File size: 901 bytes
Line 
1   !--------------------------------------------------------------------------
2   !---------------------------- caldyn_wflux ----------------------------------
3   DO l = llm-1,1,-1
4      !DIR$ SIMD
5      DO ij=ij_omp_begin,ij_omp_end
6         ! cumulate mass flux convergence from top to bottom
7         convm(ij,l) = convm(ij,l) + convm(ij,l+1)
8      END DO
9   END DO
10   !DIR$ SIMD
11   DO ij=ij_omp_begin,ij_omp_end
12      dmass_col(ij) = convm(ij,1)
13   END DO
14   DO l = 2,llm
15      !DIR$ SIMD
16      DO ij=ij_omp_begin,ij_omp_end
17         ! Compute vertical mass flux (l=1,llm+1 set to zero at init)
18         wflux(ij,l) = mass_bl(ij,l) * dmass_col(ij) - convm(ij,l)
19      END DO
20   END DO
21   ! make sure wflux is up to date
22   !$OMP BARRIER
23   !---------------------------- caldyn_wflux ----------------------------------
24   !--------------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.