Fixed typo

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')