diff --git a/src/write_global_output.f90 b/src/write_global_output.f90 index 8caf2cf16de01f42e20c69f84c8b827258746882..0b6a0f7567567fe24c029e0c4fa00db4fb388d0f 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')