source: CIVL/examples/fortran/nek5000/core/DEALIAS

main
Last change on this file was ea777aa, checked in by Alex Wilton <awilton@…>, 3 years ago

Moved examples, include, build_default.properties, common.xml, and README out from dev.civl.com into the root of the repo.

git-svn-id: svn://vsl.cis.udel.edu/civl/trunk@5704 fb995dde-84ed-4084-dfe6-e5aef3e2452c

  • Property mode set to 100755
File size: 349 bytes
Line 
1c
2c Dealiasing variables
3c
4 real vxd(lxd,lyd,lzd,lelv)
5 $ , vyd(lxd,lyd,lzd,lelv)
6 $ , vzd(lxd,lyd,lzd,lelv)
7 common /solnd/ vxd, vyd, vzd
8
9 real imd1(lx1,lxd), imd1t(lxd,lx1)
10 $ , im1d(lxd,lx1), im1dt(lx1,lxd)
11 $ , pmd1(lx1,lxd), pmd1t(lxd,lx1)
12 common /interpd/ imd1, imd1t, im1d, im1dt, pmd1, pmd1t
Note: See TracBrowser for help on using the repository browser.