23 subroutine flglvl2(nvar,naux,lcheck,nxypts,index,lbase,npts,
27 implicit double precision (a-h,o-z)
28 integer clock_start, clock_finish, clock_rate
39 call system_clock(clock_start,clock_rate)
40 call
flagger(nvar,naux,lcheck,start_time)
41 call system_clock(clock_finish,clock_rate)
42 timeflagger = timeflagger + clock_finish - clock_start
48 call system_clock(clock_start,clock_rate)
49 call
bufnst2(nvar,naux,numbad,lcheck,lbase)
50 call system_clock(clock_finish,clock_rate)
51 timebufnst = timebufnst + clock_finish - clock_start
53 nxypts = nxypts + numbad
59 if (nxypts .gt. 0)
then
67 call
colate2(alloc(index),nxypts,lcheck,npts,lbase)
81 implicit double precision (a-h, o-z)
85 locamrflags = node(storeflags,mptr)
86 locdomflags = node(domflags_base,mptr)
87 locdom2 = node(domflags2,mptr)
89 nx = node(ndihi,mptr) - node(ndilo,mptr) + 1
90 ny = node(ndjhi,mptr) - node(ndjlo,mptr) + 1
91 mbuff = max(nghost,ibuff+1)
96 nwords = (mibuff*mjbuff)/ibytesperdp+1
97 call
reclam(locdomflags, nwords)
98 call
reclam(locdom2, nwords)
99 call
reclam(locamrflags,mibuff*mjbuff)
101 mptr = node(levelptr, mptr)
102 if (mptr .ne. 0) go to 10
subroutine colate2(badpts, len, lcheck, nUniquePts, lbase)
subroutine freeflags(lcheck)
subroutine flglvl2(nvar, naux, lcheck, nxypts, index, lbase, npts, start_time)
Controls the error estimation/flagging bad pts.
subroutine reclam(index, nwords)
subroutine bufnst2(nvar, naux, numbad, lcheck, lbase)
After error estimation, need to tag the cell for refinement, buffer the tags, take care of level nest...
subroutine flagger(nvar, naux, lcheck, start_time)
Set up for and call two routines that flag using (a) spatial gradients, or other user-specified crite...