diff options
-rw-r--r-- | interface.ccl | 4 | ||||
-rw-r--r-- | param.ccl | 71 | ||||
-rw-r--r-- | schedule.ccl | 9 |
3 files changed, 84 insertions, 0 deletions
diff --git a/interface.ccl b/interface.ccl new file mode 100644 index 0000000..189dea2 --- /dev/null +++ b/interface.ccl @@ -0,0 +1,4 @@ +# Interface definition for thorn IDLinearWaves + +implements: idlinearwaves +inherits: einstein diff --git a/param.ccl b/param.ccl new file mode 100644 index 0000000..96c5868 --- /dev/null +++ b/param.ccl @@ -0,0 +1,71 @@ +# Parameter definitions for thorn IDLinearWaves + +friend:einstein + +EXTENDS KEYWORD intial_data "" +"teukwaves" : "lin. waves intialdata: Teukolsky waves" +"planewave" : "lin. waves intialdata: plane waves" +} + +private: + +REAL amplitude "Amplitdude of the wave: both for teuk and plane") +{ + 0: :: "positive amplitude" +} 0.001 + +INTEGER mvalue "m value for teukwaves waves: integer from -2 to 2" +{ + -2:2 :: "implemented : m = -2..2" +} 0 + +REAL wavecenter "linears waves thingie" +{ + : :: "" +} 0.0 + +REAL wavelength "linearwaves wave length" +{ + 0: :: "positive wavelength" +} 2.0 + +REAL wavepulse "planewaves thingy for the gaussian pulse" +{ + 0: :: "positive pulse" +} 1.0 + +REAL wavetheta "Theta angle for planewaves" +{ + : :: "" +} 0.0 + +REAL wavephi "Phi angle for planewaves" +{ + : :: "" +} 0.0 + +KEYWORD parity "Parity for teukwaves: even or odd" +{ + "even" :: "even parity" + "odd" :: "odd parity" +} "even" + +KEYWORD packet "Packet for teukwaves: eppley,evans,square" +{ + "eppley" :: "Eppley type" + "evans" :: "Evans type" + "square" :: "Square type" +} "eppley" + +KEYWORD wavesgoing "in and outgoing waves..." +{ + "in" :: "Ingoing wave" + "out" :: "Outgoing wave" + "both" :: "In and outgoing wave" +} "both" + +KEYWORD teuk_no_vee "Initialize Teuk. waves with V=0?" +{ + "no" : " Bona Masso setting" + "yes": " Bona Masso setting" +} "no" diff --git a/schedule.ccl b/schedule.ccl new file mode 100644 index 0000000..3111286 --- /dev/null +++ b/schedule.ccl @@ -0,0 +1,9 @@ +# Schedule definitions for thorn IDLinearWaves + +if (CCTK_Equals(initaldata,"linearwaves")) +{ + schedule LinearWaves at CACTUS_INITIAL + { + LANG: Fortran + } "Construct linear wave initial data" +} |