Skip to content
Snippets Groups Projects
Commit c3a49034 authored by Dave Whipp's avatar Dave Whipp
Browse files

Modified to include the dilatation rate

parent 4ba7307d
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 2 deletions
src/DoRuRe.f90
+ 2
− 2
View file @ c3a49034
...@@ -193,11 +193,11 @@ end subroutine DoRuRe_diag_stats ...@@ -193,11 +193,11 @@ end subroutine DoRuRe_diag_stats
! | ! |
!=============================================================================== !===============================================================================
!=============================================================================== !===============================================================================
subroutine DoRuRe_leaf_stats (doDoRuRe,nleaves,e2d,e3d,p,q,istep,iter,iter_nl) subroutine DoRuRe_leaf_stats (doDoRuRe,nleaves,e2d,e3d,p,q,dilatrtemp,istep,iter,iter_nl)
implicit none implicit none
logical doDoRuRe logical doDoRuRe
integer nleaves integer nleaves
double precision :: e2d(nleaves),p(nleaves),q(nleaves),e3d(nleaves) double precision :: e2d(nleaves),p(nleaves),q(nleaves),e3d(nleaves),dilatrtemp(nleaves)
integer istep,iter,iter_nl integer istep,iter,iter_nl
integer ierr,iproc integer ierr,iproc
INCLUDE 'mpif.h' INCLUDE 'mpif.h'
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment