cleanup.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cleanup (nvar, naux)

Function/Subroutine Documentation

cleanup()

subroutine cleanup	(		nvar,
			naux
	)

this is just a check to make sure all storage was accounted for. routine is called after all the data has been checkpointed.

Definition at line 5 of file cleanup.f.

References amr_module::levelptr, amr_module::lfine, amr_module::lstart, amr_module::mxnest, amr_module::ndihi, amr_module::ndilo, amr_module::ndjhi, amr_module::ndjlo, amr_module::nghost, amr_module::node, putsp(), reclam(), amr_module::store1, amr_module::store2, and amr_module::storeaux.

Referenced by amr2().

c
c :::::::::::::::::::::: CLEANUP ::::::::::::::::::::::::::::::::;
c :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::;

      use amr_module
      implicit double precision (a-h,o-z)
c
c      ## clean up storage to double check that everything taken care of
c      ## done after the checkpoint so pointers sitll work on restart
       do  120 level = 1, lfine
         call putsp(1,level,nvar,naux)
         mptr =  lstart(level)
 110        nx      = node(ndihi,mptr) - node(ndilo,mptr) + 1
            ny      = node(ndjhi,mptr) - node(ndjlo,mptr) + 1
            mitot  = nx + 2*nghost
            mjtot  = ny + 2*nghost
            nwords  = mitot*mjtot*nvar
            call reclam(node(store1, mptr), nwords)
            if (level .lt. mxnest) 
     .         call reclam(node(store2, mptr), nwords)
            if (naux .gt. 0) 
     .         call reclam(node(storeaux, mptr), mitot*mjtot*naux)
        mptr = node(levelptr, mptr)
        if (mptr .ne. 0) go to 110
120    continue 

      return

Here is the call graph for this function:

Here is the caller graph for this function: