From a48250fd93434cd6219a1999a5c9fac0f7f6fb32 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 25 May 2011 16:48:40 +0000
Subject: [PATCH] Removed unused declared variables; Added dilatation rate
stats to list of output files
---
src/DoRuRe.f90 | 16 ++++++++++++----
1 file changed, 12 insertions(+), 4 deletions(-)
diff --git a/src/DoRuRe.f90 b/src/DoRuRe.f90
index 831c669d..6a94c363 100644
--- a/src/DoRuRe.f90
+++ b/src/DoRuRe.f90
@@ -20,7 +20,6 @@ include 'mpif.h'
type(parameters) params
character(*) aktion
-character*40 :: string
character*2 :: cis
integer iproc,ierr,is,us
@@ -52,6 +51,7 @@ if (params%doDoRuRe .and. iproc.eq.0) then
open (828,file='./DORURE/temp_stats.dat',status='replace') ; close(828)
open (829,file='./DORURE/e3d_stats.dat',status='replace') ; close(829)
open (830,file='./DORURE/dt_stats.dat',status='replace') ; close(830)
+ open (831,file='./DORURE/dilatrtemp_stats.dat',status='replace') ; close(831)
do is=1,params%ns
call int_to_char(cis,2,is)
! us=600+is
@@ -174,7 +174,7 @@ logical doDoRuRe
integer sizediag
double precision diag(sizediag)
integer ndof,istep,iter,iter_nl
-integer ierr,iproc,nproc
+integer ierr,iproc
call mpi_comm_rank (mpi_comm_world,iproc,ierr)
if (doDoRuRe .and. iproc.eq.0) then
@@ -260,6 +260,14 @@ if (doDoRuRe .and. iproc.eq.0) then
write(805,'(3es13.4)') istep+dble(iter)*.01d0+dble(iter_nl)*.0001d0,minval(q),maxval(q)
close(805)
+ open (831,file ='./DORURE/dilatrtemp_stats.dat', &
+ position='append', &
+ form ='formatted', &
+ access ='sequential', &
+ status ='old')
+ write(831,'(3es13.4)') istep+dble(iter)*.01d0+dble(iter_nl)*.0001d0,minval(dilatrtemp),maxval(dilatrtemp)
+ close(831)
+
end if
end subroutine DoRuRe_leaf_stats
@@ -335,7 +343,7 @@ implicit none
include 'mpif.h'
logical doDoRuRe
-integer istep,iter,iter_nl,nl,n,nz,infog,nb
+integer istep,iter,iter_nl,n,nz,infog,nb
double precision rinfog
real time1,time2,time3
integer iproc,ierr
@@ -522,7 +530,7 @@ include 'mpif.h'
type (octreesolve) osolve
type (parameters) params
integer istep,iter,iter_nl
-integer ierr,iproc,i,ie,k,il,nlev,err
+integer ierr,iproc,i,k,err
integer,dimension(:),allocatable::levs
integer,dimension(:),allocatable::levelstat
double precision phi(8),vol,voltot
--
GitLab