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

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: 653 bytes
Line 
1c
2c Nekuse
3c
4 real x,y,z,r,theta,ux,uy,uz,un,u1,u2,trx,try,trz,trn,tr1,tr2,pa
5 $ ,p0,ffx,ffy,ffz,temp,flux,hc,hrad,tinf,qvol,udiff,utrans
6 $ ,si2,si3,sigma,turbk,turbe,ps(ldimt)
7 common /nekuse/ x ,y ,z ,r ,theta
8 $ , ux ,uy ,uz
9 $ , un ,u1 ,u2
10 $ , trx,try,trz
11 $ , trn,tr1,tr2,pa,p0
12 $ , ffx,ffy,ffz
13 $ , temp,flux,hc,hrad,tinf,qvol
14 $ , udiff,utrans
15 $ , si2,si3,sigma
16 $ , turbk,turbe
17 $ , ps
18
19 character*3 cbu
20 common /nekusc/ cbu
21
Note: See TracBrowser for help on using the repository browser.