source: codes/icosagcm/devel/src/kernels_unst/caldyn_dmass.k90 @ 913

Last change on this file since 913 was 658, checked in by dubos, 7 years ago

devel/unstructured : updated kernels
File size: 504 bytes
Line 
1   !--------------------------------------------------------------------------
2   !---------------------------- caldyn_dmass ----------------------------------
3   !$OMP DO SCHEDULE(STATIC)
4   DO ij = 1, primal_num
5      !DIR$ SIMD
6      DO l = 1, llm
7         convm(l,ij) = mass_dbk(l,ij) * dmass_col(ij)
8      END DO
9   END DO
10   !$OMP END DO
11   !---------------------------- caldyn_dmass ----------------------------------
12   !--------------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.