diff options
author | Erik Schnetter <schnetter@cct.lsu.edu> | 2006-04-17 22:28:00 +0000 |
---|---|---|
committer | Erik Schnetter <schnetter@cct.lsu.edu> | 2006-04-17 22:28:00 +0000 |
commit | 9df0e7a6b64885f7bb423aad76a496c2c1e7cc49 (patch) | |
tree | 2ad093b8130c95e1b80c3c1289b14aa4b61e30f1 /CarpetExtra/RegridSyncTest/src | |
parent | 3d0e8524c3900f53da9076993f0f1c34ad28270a (diff) |
RegridSyncTest: New thorn
Add a debugging thorn to test synchronisation with progressive mesh refinement.
darcs-hash:20060417222827-dae7b-f1356400e653649280494169c762eaa0528c43cc.gz
Diffstat (limited to 'CarpetExtra/RegridSyncTest/src')
-rw-r--r-- | CarpetExtra/RegridSyncTest/src/make.code.defn | 8 | ||||
-rw-r--r-- | CarpetExtra/RegridSyncTest/src/regridsynctest.F90 | 30 |
2 files changed, 38 insertions, 0 deletions
diff --git a/CarpetExtra/RegridSyncTest/src/make.code.defn b/CarpetExtra/RegridSyncTest/src/make.code.defn new file mode 100644 index 000000000..077fb16f1 --- /dev/null +++ b/CarpetExtra/RegridSyncTest/src/make.code.defn @@ -0,0 +1,8 @@ +# Main make.code.defn file for thorn RegridSyncTest +# $Header:$ + +# Source files in this directory +SRCS = regridsynctest.F90 + +# Subdirectories containing source files +SUBDIRS = diff --git a/CarpetExtra/RegridSyncTest/src/regridsynctest.F90 b/CarpetExtra/RegridSyncTest/src/regridsynctest.F90 new file mode 100644 index 000000000..a4c1e5dab --- /dev/null +++ b/CarpetExtra/RegridSyncTest/src/regridsynctest.F90 @@ -0,0 +1,30 @@ +#include "cctk.h" +#include "cctk_Parameters.h" +#include "cctk_Arguments.h" +#include "cctk_Functions.h" + + + +subroutine RegridSyncTest_setup(CCTK_ARGUMENTS) + + implicit none + DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS + + myregridtestgf = 0.9d0 + + +end subroutine RegridSyncTest_setup + + +subroutine RegridSyncTest_do_something(CCTK_ARGUMENTS) + + implicit none + DECLARE_CCTK_PARAMETERS + DECLARE_CCTK_ARGUMENTS + + myregridtestgf = 1.0d0 + + +end subroutine RegridSyncTest_do_something + |