Skip to content
Snippets Groups Projects
Commit 2be65078 authored by Messer II, Bronson's avatar Messer II, Bronson
Browse files

changed some output paths

parent 9526ca68
No related branches found
No related tags found
No related merge requests found
......@@ -100,23 +100,9 @@ program ziz
!--------------------------------------------------------------------------
! The Virginia Numerical Bull Session ideal hydrodynamics PPMLR
!
! Version 3.1 July 2008
! Cleaned up code, minor changes to algorithm, 2/3D output
! Diced MPI version uses a 'julienne' domain decomposition for better scaling
! Version 3.0 c. 2003
! Converted to F90 free-format, use netcdf for binary output
! Version 2.0 July 1997
! Many small modifications, mainly brought BCs into only one call to sweepbc
! Version 1.0 October 1991
! This version was removed from the ``loop'' in the continued development
! of VH-1 on Sep 1 1990, but has followed a similar evolution until this
! release date.
!
! Output channels:
! 4 = aaaaadaa.####, binary dump files for restarting
! 8 = aaaaa.hst, history file
! aaaaaXY.nc, netCDF movie of XY slice
! aaaaa_1000.NNN, netCDF output of dataset (all variables) for slab NNN
!-------------------------------------------------------------------------------
! GLOBALS
......@@ -279,7 +265,7 @@ if ((rstrt == 'NO').or.(rstrt == 'no')) then ! Initialize variables for new prob
if (mype == 0) then
hstfile = 'output/' // trim(prefix) // '.hst'
hstfile = trim(prefix) // '.hst'
open (unit=8,file=hstfile,form='formatted')
call date_and_time(todayis)
write (8,*) 'History File for Ziz run on ', todayis(5:6), ' / ', todayis(7:8), ' / ', todayis(1:4)
......@@ -308,7 +294,7 @@ else ! Restart from old dumpfile... This is here only for completeness: Most per
dmpfile = 'd' // rstrt(1:2) // dmpfile(4:8)
if (mype == 0) then
hstfile = 'output/' // trim(prefix) // '.hst'
hstfile = trim(prefix) // '.hst'
open (unit=8,file=hstfile,form='formatted',position='append')
call date_and_time(todayis)
write (8,*) 'Restarting run on ', todayis(5:6), ' / ', todayis(7:8), ' / ', todayis(1:4)
......@@ -403,7 +389,7 @@ if(mype == 0) then
close( 8 )
if (ndim==3) then ! open up a file to store data needed for post-processing
open(9,file='output/postprocess')
open(9,file='postprocess')
write(9,*) trim(prefix)
write(9,*) nfile_start
write(9,*) nfile - nfile_start
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment