Added code to copy the original parameter file to 'IO::outdir' or generate

a new one with a sorted list of all parameters set in the original parfile.
See description of parameters 'IO::parfile_write' and 'IO::parfile_name'
for details.
Closes Cactus-237 and Cactus-315.


git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/IOUtil/trunk@141 b32723a9-ab3a-4a60-88e2-2e5d99d7c17a

1 files changed, 62 insertions, 49 deletions

diff --git a/param.ccl b/param.ccl
index 5117187..51d747f 100644
--- a/param.ccl
+++ b/param.ccl
@@ -154,93 +154,106 @@ BOOLEAN recover_and_remove "Remove checkpoint file after successful recovery ?"
 } "no"
 
 
+###################################
+# Parameter file writing parameters
+###################################
+KEYWORD parfile_write "Write a parameter file to 'IO::outdir'" STEERABLE = recovery
+{
+  "no"               :: "Do not write a parameter file"
+  "copy"             :: "Copy the original parameter file"
+  "generate"         :: "Generate a parameter file from the current settings"
+#  "verbose generate" :: "Like \"generate\" but describe all parameters in detail"
+} "copy"
+STRING parfile_name "Filename for the parameter file to be written" STEERABLE = recovery
+{
+  ".*" :: "a valid filename, or an empty string if the original parameter "   \
+          "filename should be used"
+} ""
+INT parfile_update_every "How often to update the parameter file for steered parameters" STEERABLE = always
+{
+  0:*:: "Update every so many iterations (zero disables updating)"
+} 0
 
-CCTK_REAL out_xline_y "y-coord for 1D lines in x-direction"
+
+#######################################
+# 1D line slice center setup parameters
+#######################################
+REAL out_xline_y "y-coord for 1D lines in x-direction"
 {
- *:* :: ""
+  *:* :: ""
 } 0.0
-CCTK_REAL out_xline_z "z-coord for 1D lines in x-direction"
+REAL out_xline_z "z-coord for 1D lines in x-direction"
 {
- *:* :: ""
+  *:* :: ""
 } 0.0
-
-CCTK_REAL out_yline_x "x-coord for 1D lines in y-direction"
+REAL out_yline_x "x-coord for 1D lines in y-direction"
 {
- *:* :: ""
+  *:* :: ""
 } 0.0
-CCTK_REAL out_yline_z "z-coord for 1D lines in y-direction"
+REAL out_yline_z "z-coord for 1D lines in y-direction"
 {
- *:* :: ""
+  *:* :: ""
 } 0.0 
-
-CCTK_REAL out_zline_x "x-coord for 1D lines in z-direction"
+REAL out_zline_x "x-coord for 1D lines in z-direction"
 {
- *:* :: ""
+  *:* :: ""
 } 0.0
-CCTK_REAL out_zline_y "y-coord for 1D lines in z-direction"
+REAL out_zline_y "y-coord for 1D lines in z-direction"
 {
- *:* :: ""
+  *:* :: ""
 } 0.0
 
-CCTK_INT out_xline_yi "y-index (from 0) for 1D lines in x-direction"
+INT out_xline_yi "y-index (from 0) for 1D lines in x-direction"
 {
- 0:* :: ""
+  0:* :: ""
 } 0
-CCTK_INT out_xline_zi "z-index (from 0) for 1D lines in x-direction"
+INT out_xline_zi "z-index (from 0) for 1D lines in x-direction"
 {
- 0:* :: ""
+  0:* :: ""
 } 0
-
-CCTK_INT out_yline_xi "x-index (from 0) for 1D lines in y-direction"
+INT out_yline_xi "x-index (from 0) for 1D lines in y-direction"
 {
- 0:* :: ""
+  0:* :: ""
 } 0
-CCTK_INT out_yline_zi "z-index (from 0) for 1D lines in y-direction"
+INT out_yline_zi "z-index (from 0) for 1D lines in y-direction"
 {
- 0:* :: ""
+  0:* :: ""
 } 0
-
-CCTK_INT out_zline_xi "x-index (from 0) for 1D lines in z-direction"
+INT out_zline_xi "x-index (from 0) for 1D lines in z-direction"
 {
- 0:* :: ""
+  0:* :: ""
 } 0
-CCTK_INT out_zline_yi "y-index (from 0) for 1D lines in z-direction"
+INT out_zline_yi "y-index (from 0) for 1D lines in z-direction"
 {
- 0:* :: ""
+  0:* :: ""
 } 0
 
 
-############################
-# Specific to 2D output
-# Choosing what output to do
-############################
-CCTK_REAL out_yzplane_x "x-coord for 2D planes in yz"
+##################################
+# 2D plane center setup parameters
+##################################
+REAL out_yzplane_x "x-coord for 2D planes in yz"
 {
- *:* :: ""
+  *:* :: ""
 } 0.0
-
-CCTK_REAL out_xzplane_y "y-coord for 2D planes in xz"
+REAL out_xzplane_y "y-coord for 2D planes in xz"
 {
- *:* :: ""
+  *:* :: ""
 } 0.0
-
-CCTK_REAL out_xyplane_z "z-coord for 2D planes in xy"
+REAL out_xyplane_z "z-coord for 2D planes in xy"
 {
- *:* :: "" 
+  *:* :: "" 
 } 0.0
 
-CCTK_INT out_xyplane_zi "z-index (from 0) for 2D planes in xy"
+INT out_xyplane_zi "z-index (from 0) for 2D planes in xy"
 {
- 0:* :: ""
+  0:* :: ""
 } 0
-
-CCTK_INT out_xzplane_yi "y-index (from 0) for 2D planes in xz"
+INT out_xzplane_yi "y-index (from 0) for 2D planes in xz"
 {
- 0:* :: ""
+  0:* :: ""
 } 0
-
-CCTK_INT out_yzplane_xi "x-index (from 0) for 2D planes in yz"
+INT out_yzplane_xi "x-index (from 0) for 2D planes in yz"
 {
- 0:* :: ""
+  0:* :: ""
 } 0
-