diff options
-rw-r--r-- | src/teukwaves.F | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/teukwaves.F b/src/teukwaves.F index eb65488..e5df827 100644 --- a/src/teukwaves.F +++ b/src/teukwaves.F @@ -81,8 +81,9 @@ c the parameter variables to the variables of CAC3.0, to allow for c easy portation (wavepulse stays wavepulse btw). (GERD) amp = amplitude - m = mvalue - wave= wavelength + m = mvalue + wave = wavelength + ra = wavecenter c to be consistent with Evans & Abrahams, rescale the amplitude c by kappa, because they use that in the packet and |