From 807137d21f1e2da4cd0891b0d119889c42f0f699 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Mon, 16 May 2011 17:32:14 +0000
Subject: [PATCH] Fixed typo
---
src/write_global_output.f90 | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/src/write_global_output.f90 b/src/write_global_output.f90
index 8caf2cf1..0b6a0f75 100644
--- a/src/write_global_output.f90
+++ b/src/write_global_output.f90
@@ -78,13 +78,13 @@ call mpi_comm_size (mpi_comm_world,nproc,ierr)
call mpi_comm_rank (mpi_comm_world,iproc,ierr)
if (iproc.eq.0) then
+ if (params%nest) then
+ outdir='NESTOUT'
+ else
+ outdir='OUT'
+ endif
call int_to_char (cistep,4,istep)
select case (outputtype)
- if (params%nest) then
- outdir='NESTOUT'
- else
- outdir='OUT'
- endif
case ('debug')
call int_to_char (citer,4,iter)
open (9,file=trim(outdir)//'/time_'//cistep//'_'//citer//'.bin',status='unknown',form='unformatted')
--
GitLab