[cig-commits] [commit] devel, master: added topo_bathy/topo_bathy_etopo2_original_unmodified_unsmoothed.dat and topo_bathy/topo_bathy_etopo2_smoothed_window_3.dat and updated topo_bathy/smooth_topo_bathy_PPM_image.f90 (5304f2e)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d_globe

On branches: devel,master
Link       : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f

>---------------------------------------------------------------

commit 5304f2eb58cc50bec52649dc8cd332dd98ef5488
Author: Dimitri Komatitsch <see_my_GitHub_web_page>
Date:   Fri May 9 00:22:07 2014 +0200

    added topo_bathy/topo_bathy_etopo2_original_unmodified_unsmoothed.dat and topo_bathy/topo_bathy_etopo2_smoothed_window_3.dat and updated topo_bathy/smooth_topo_bathy_PPM_image.f90


>---------------------------------------------------------------

5304f2eb58cc50bec52649dc8cd332dd98ef5488
 topo_bathy/smooth_topo_bathy_PPM_image.f90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/topo_bathy/smooth_topo_bathy_PPM_image.f90 b/topo_bathy/smooth_topo_bathy_PPM_image.f90
index 6e1ee04..90356f2 100644
--- a/topo_bathy/smooth_topo_bathy_PPM_image.f90
+++ b/topo_bathy/smooth_topo_bathy_PPM_image.f90
@@ -38,11 +38,11 @@
 
   implicit none
 
-  include "../../constants.h"
+  include "../../setup/constants.h"
 
 ! filter final surface using box filter
   logical, parameter :: SMOOTH_THE_MODEL = .true.
-  integer, parameter :: SIZE_FILTER_ONE_SIDE = 7
+  integer, parameter :: SIZE_FILTER_ONE_SIDE = 3 !! 7
 
 ! use integer array to store values
   integer ibathy_topo(NX_BATHY,NY_BATHY)
@@ -62,7 +62,7 @@
   print *
   print *,'reading topo file'
 
-  open(unit=13,file='topo_bathy_etopo4_from_etopo2_subsampled.dat',status='old')
+  open(unit=13,file='topo_bathy_etopo2_original_unmodified_unsmoothed.dat',status='old')
   do iy=1,NY_BATHY
     do ix=1,NX_BATHY
       read(13,*) ibathy_topo_ori(ix,iy)
@@ -148,7 +148,7 @@
   if(SMOOTH_THE_MODEL) then
     print *
     print *,'saving the smoothed model'
-    open(unit=13,file='topo_bathy_etopo4_smoothed_window_7.dat',status='unknown')
+    open(unit=13,file='topo_bathy_etopo2_smoothed_window_3.dat',status='unknown')
     do iy=1,NY_BATHY
       do ix=1,NX_BATHY
         write(13,*) ibathy_topo(ix,iy)