Download 3D Mesh Generator Manual - The National Center for Computational

Chapter 3 Inteface of CCHE Mesh Generator
CCHE Mesh Generator 70
Read(11,*)ii, lid_nh(k,n,m), xhb(k,n,m),yhb(k,n,m),
&
Xht(k,n,m), yht(k,n,m)
ENDDO
ENDDO
//---input compound dike
Read(11,*)mb_ncd(k)
DO n = 1, mb_ncd(k)
Read(11,*)id_cd(k,n), (id_bnd(k,n,jj), jj = 1, 4)
Read(11,*)lid_cd(k,n), (xcd(k,n,jj), ycd(k,n,jj), jj = 1, 3)
ENDDO
ENDDO
ENDDO
The variables in the above Fortran code are:
//---global information
mb_imax = maximum number of blocks in i direction;
mb_jmax = maximum number of blocks in j direction;
mb_npmax = maximum number of control points for all blocks;
mb_nrdike = maximum number of right dikes;
mb_nisland = maximum number of islands;
mb_ncdike = maximum number of compound dikes;
//---control points of block--k
mb_nc(k) = number of control points of block—k;
mb_bnd(k, 4) = boundary type of the four faces of block—k;
xcb(k,n) = x-coordinate of n-th control point on the bottom boundary of block—k;
ycb(k,n) = y-coordinate of n-th control point on the bottom boundary of block—k;
xct(k,n) = x-coordinate of n-th control point on the top boundary of block—k;
yct(k,n) = y-coordinate of n-th control point on the top boundary of block—k;
//---right dikes (two-lined dike)
mb_nrd(k)= number of right dikes × 2 in block—k;
lid_rd(k, n) = relative location of the right dike n in block—k;