diff options
Diffstat (limited to 'src/ADMConstraints.F')
-rw-r--r-- | src/ADMConstraints.F | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/ADMConstraints.F b/src/ADMConstraints.F index cb8db2f..f896b37 100644 --- a/src/ADMConstraints.F +++ b/src/ADMConstraints.F @@ -111,6 +111,14 @@ c Calculate constraints. do j=2,ny-1 do i=2,nx-1 + if ( (i<3).or.(i>cctk_lsh(1)-2).or. + . (j<3).or.(j>cctk_lsh(2)-2).or. + . (k<3).or.(k>cctk_lsh(3)-2) ) then + local_spatial_order = 2 + else + local_spatial_order = spatial_order + end if + docalc = .TRUE. if (use_mask .eq. 1) then |