Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
Ziz
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Iterations
Wiki
Code
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Locked files
Deploy
Releases
Model registry
Monitor
Incidents
Analyze
Value stream analytics
Contributor analytics
Repository analytics
Issue analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
astro
Ziz
Commits
2be65078
Commit
2be65078
authored
7 years ago
by
Messer II, Bronson
Browse files
Options
Downloads
Patches
Plain Diff
changed some output paths
parent
9526ca68
No related branches found
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
ziz.f90
+3
-17
3 additions, 17 deletions
ziz.f90
with
3 additions
and
17 deletions
ziz.f90
+
3
−
17
View file @
2be65078
...
...
@@ -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
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment