|
| 1 | +C Dimension file to be included |
| 2 | +C |
| 3 | +C HCUBE array dimensions |
| 4 | +C |
| 5 | + parameter (ldim=3) |
| 6 | + parameter (lx1=14,ly1=lx1,lz1=lx1,lelt=6,lelv=lelt) |
| 7 | + parameter (lxd=22,lyd=lxd,lzd=lxd) |
| 8 | + parameter (lelx=1,lely=1,lelz=1) |
| 9 | + |
| 10 | + parameter (lzl=3 + 2*(ldim-3)) |
| 11 | + |
| 12 | + parameter (lx2=lx1-2) |
| 13 | + parameter (ly2=ly1-2) |
| 14 | + parameter (lz2=lz1-2) |
| 15 | + parameter (lx3=lx2) |
| 16 | + parameter (ly3=ly2) |
| 17 | + parameter (lz3=lz2) |
| 18 | + |
| 19 | + parameter (lelg = 1328) |
| 20 | + parameter (lp = lelg) |
| 21 | +c |
| 22 | +c parameter (lpelv=lelv,lpelt=lelt,lpert=3) ! perturbation |
| 23 | +c parameter (lpx1=lx1,lpy1=ly1,lpz1=lz1) ! array sizes |
| 24 | +c parameter (lpx2=lx2,lpy2=ly2,lpz2=lz2) |
| 25 | +c |
| 26 | + parameter (lpelv=1,lpelt=1,lpert=1) ! perturbation |
| 27 | + parameter (lpx1=1,lpy1=1,lpz1=1) ! array sizes |
| 28 | + parameter (lpx2=1,lpy2=1,lpz2=1) |
| 29 | +c |
| 30 | +c parameter (lbelv=lelv,lbelt=lelt) ! MHD |
| 31 | +c parameter (lbx1=lx1,lby1=ly1,lbz1=lz1) ! array sizes |
| 32 | +c parameter (lbx2=lx2,lby2=ly2,lbz2=lz2) |
| 33 | +c |
| 34 | + parameter (lbelv=1,lbelt=1) ! MHD |
| 35 | + parameter (lbx1=1,lby1=1,lbz1=1) ! array sizes |
| 36 | + parameter (lbx2=1,lby2=1,lbz2=1) |
| 37 | + |
| 38 | +C LX1M=LX1 when there are moving meshes; =1 otherwise |
| 39 | + parameter (lx1m=1,ly1m=1,lz1m=1) |
| 40 | + parameter (ldimt= 1) ! 3 passive scalars + T |
| 41 | + parameter (ldimt1=ldimt+1) |
| 42 | + parameter (ldimt3=ldimt+3) |
| 43 | +c |
| 44 | +c Note: In the new code, LELGEC should be about sqrt(LELG) |
| 45 | +c |
| 46 | + PARAMETER (LELGEC = 1) |
| 47 | + PARAMETER (LXYZ2 = 1) |
| 48 | + PARAMETER (LXZ21 = 1) |
| 49 | + |
| 50 | + PARAMETER (LMAXV=LX1*LY1*LZ1*LELV) |
| 51 | + PARAMETER (LMAXT=LX1*LY1*LZ1*LELT) |
| 52 | + PARAMETER (LMAXP=LX2*LY2*LZ2*LELV) |
| 53 | + PARAMETER (LXZ=LX1*LZ1) |
| 54 | + PARAMETER (LORDER=4) |
| 55 | + PARAMETER (MAXOBJ=4,MAXMBR=LELT*6) |
| 56 | + PARAMETER (lhis=100) ! # of pts a proc reads from hpts.in |
| 57 | + ! Note: lhis*np > npoints in hpts.in |
| 58 | +C |
| 59 | +C Common Block Dimensions |
| 60 | +C |
| 61 | + PARAMETER (LCTMP0 =2*LX1*LY1*LZ1*LELT) |
| 62 | + PARAMETER (LCTMP1 =4*LX1*LY1*LZ1*LELT) |
| 63 | +C |
| 64 | +C The parameter LVEC controls whether an additional 42 field arrays |
| 65 | +C are required for Steady State Solutions. If you are not using |
| 66 | +C Steady State, it is recommended that LVEC=1. |
| 67 | +C |
| 68 | + PARAMETER (LVEC=1) |
| 69 | +C |
| 70 | +C Uzawa projection array dimensions |
| 71 | +C |
| 72 | + parameter (mxprev = 20) |
| 73 | + parameter (lgmres = 30) |
| 74 | +C |
| 75 | +C Split projection array dimensions |
| 76 | +C |
| 77 | + parameter(lmvec = 1) |
| 78 | + parameter(lsvec = 1) |
| 79 | + parameter(lstore=lmvec*lsvec) |
| 80 | +c |
| 81 | +c NONCONFORMING STUFF |
| 82 | +c |
| 83 | + parameter (maxmor = lelt) |
| 84 | +C |
| 85 | +C Array dimensions |
| 86 | +C |
| 87 | + COMMON/DIMN/NELV,NELT,NX1,NY1,NZ1,NX2,NY2,NZ2 |
| 88 | + $,NX3,NY3,NZ3,NDIM,NFIELD,NPERT,NID |
| 89 | + $,NXD,NYD,NZD |
| 90 | + |
| 91 | +c automatically added by makenek |
| 92 | + parameter(lxo = lx1) ! max output grid size (lxo>=lx1) |
| 93 | + |
| 94 | +c automatically added by makenek |
| 95 | + parameter(lpart = 1 ) ! max number of particles |
| 96 | + |
| 97 | +c automatically added by makenek |
| 98 | + integer ax1,ay1,az1,ax2,ay2,az2 |
| 99 | + parameter (ax1=lx1,ay1=ly1,az1=lz1,ax2=lx2,ay2=ly2,az2=lz2) ! running averages |
| 100 | + |
| 101 | +c automatically added by makenek |
| 102 | + parameter (lxs=1,lys=lxs,lzs=(lxs-1)*(ldim-2)+1) !New Pressure Preconditioner |
| 103 | + |
| 104 | +c automatically added by makenek |
| 105 | + parameter (lfdm=0) ! == 1 for fast diagonalization method |
| 106 | + |
| 107 | +c automatically added by makenek |
| 108 | + common/IOFLAG/nio ! for logfile verbosity control |
| 109 | + |
| 110 | +c automatically added by makenek |
| 111 | + integer toteq |
| 112 | + parameter(toteq = 1 ) ! Number of conserved variables |
| 113 | +c IFCMT=FALSE then toteq=1 |
| 114 | + |
| 115 | +c automatically added by makenek |
| 116 | + integer lelcmt |
| 117 | + parameter(lelcmt = 1 ) ! # of cmt elements |
| 118 | +c IFCMT=FALSE then lelcmt=1 |
0 commit comments