! REAL :: rnode,tol,bzone,hxposs,hyposs,possk INTEGER :: node,lstart,newstl,llist,lback,mstart,ndfree, & intrat,intratt,lfine,kcheck,mxnest,ncheck,levmlt COMMON / nodal / rnode(35,30),node(25,30),lstart(10),newstl(10), & llist(2,200),lback(10),tol,bzone,mstart,ndfree, & intrat,intratt,lfine,kcheck,mxnest, & hxposs(10),hyposs(10),possk(10), & ncheck(10),levmlt(10) ! ! data definitions for node and rnode in nodal.h ! ! grid information for grid mptr is stored in array rnode(*,mptr) ! and node(*,mptr). the information stored is ! ! rnode(i,mptr), i = ! ! 1) x - corner 1 ! 2) y - corner 1 ! 3) x - corner 2 ! 4) y - corner 2 ! 5) x - corner 3 ! 6) y - corner 3 ! 7) x - corner 4 ! 8) y - corner 4 ! 9) dx ! 10) dy ! 11) dt ! 12) e vec1 x ! 13) e vec1 y ! 14) e vec2 x ! 15) e vec2 y ! 16) e max1 ! 17) e min1 ! 18) e max2 ! 19) e min2 ! 20) time to which grid has been integrated ! 21) cos of orientation angle ! using x axis. x axis corner 1 to corner 4. coarse ! grid (mptr=1) has cos=1,sin=0. ! 22) sin of orientation angle ! 23) slope corners 1 to 2 ! 24) slope corners 1 to 4 ! 25) x intercept corners 1 to 2 ! 26) x intercept corners 1 to 4 ! 27) x intercept corners 3 to 4 ! 28) x intercept corners 2 to 3 ! 29) grid bottom height (computational space - excluding terrain) ! 30) grid top height ! 31) dz ! ! node(i,mptr), i = ! ! 1) parent grid ! 2) kid grid ! 3) sibling ! 4) nestlevel ! 5) number of rows (nx) ! 6) number of columns (ny) ! 7) ! 8) ! 9) pointer into intersect list (llist) ! 10) next grid on level pointer ! 11) ! 12) previous grid on level pointer ! 13) number of timesteps taken on grid ! 14) number of vertical levels (nz) ! 15)