filter improved with all 10th compact filter across all nodes, in a new module filter

Author: fangjian

Makefile

@@ -5,7 +5,7 @@
 #FC=mpif90
 FC=h5pfc
 
-SRCDIR = /mnt/d/ASTR/astr/src /mnt/d/ASTR/astr/user_define_module
+SRCDIR = ./astr/src ./astr/user_define_module
 OBJDIR = obj
 BINDIR = bin
 CTRDIR = cma
@@ -31,9 +31,9 @@ VPATH = $(SRCDIR):$(OBJDIR)
 srs=  strings.F90 fdnn.F90 singleton.F90 commtype.F90 stlaio.F90 constdef.F90 tecio.F90     \
       vtkio.F90 interp.F90 commvar.F90 utility.F90 thermchem.F90 commarray.F90 fludyna.F90  \
       parallel.F90 hdf5io.F90 cmdefne.F90 commfunc.F90 commcal.F90 models.F90 statistic.F90 \
-      userdefine.F90 bc.F90 readwrite.F90 geom.F90 ibmethod.F90 gridgeneration.F90          \
-      riemann.F90 comsolver.F90 solver.F90 udf_pp.F90 pp.F90 initialisation.F90            \
-      mainloop.F90 test.F90 astr.F90
+      userdefine.F90 filter.F90 bc.F90 readwrite.F90 geom.F90 ibmethod.F90                  \
+      gridgeneration.F90 riemann.F90 comsolver.F90 solver.F90 udf_pp.F90 pp.F90             \
+      initialisation.F90  mainloop.F90 test.F90 astr.F90
 
 OBJS=$(srs:.F90=.o)
 

src/CMakeLists.txt

@@ -14,6 +14,7 @@ add_executable(astr
                     commvar.F90
                     constdef.F90
                     fdnn.F90
+                    filter.F90
                     fludyna.F90
                     geom.F90
                     gridgeneration.F90

src/bc.F90

@@ -3664,7 +3664,8 @@ subroutine farfield_nscbc(ndir)
     !
     use commvar,   only : xmin,xmax,ymin,ymax,mach
     use fludyna,   only : thermal,fvar2q,q2fvar,sos
-    use commfunc,  only : deriv,ddfc,spafilter6exp
+    use commfunc,  only : deriv,ddfc
+    use filter,    only : spafilter6exp
     !
     ! arguments
     integer,intent(in) :: ndir
@@ -4687,7 +4688,8 @@ subroutine outflow_nscbc(ndir)
     !
     use commvar,   only : xmin,xmax,mach,nondimen
     use fludyna,   only : thermal,fvar2q,q2fvar,sos
-    use commfunc,  only : deriv,ddfc,spafilter6exp
+    use commfunc,  only : deriv,ddfc
+    use filter,    only : spafilter6exp
     use parallel,  only : psum,mpi_imax
 #ifdef COMB
     use thermchem, only : aceval