[cig-commits] r15921 - seismo/3D/CPML/trunk
dkomati1 at geodynamics.org
dkomati1 at geodynamics.org
Tue Nov 3 12:12:50 PST 2009
Author: dkomati1
Date: 2009-11-03 12:12:49 -0800 (Tue, 03 Nov 2009)
New Revision: 15921
Modified:
seismo/3D/CPML/trunk/seismic_CPML_2D_anisotropic.f90
seismo/3D/CPML/trunk/seismic_CPML_2D_isotropic_fourth_order.f90
seismo/3D/CPML/trunk/seismic_CPML_2D_isotropic_second_order.f90
seismo/3D/CPML/trunk/seismic_CPML_2D_poroelastic_fourth_order.f90
seismo/3D/CPML/trunk/seismic_CPML_3D_isotropic_MPI_OpenMP.f90
seismo/3D/CPML/trunk/seismic_CPML_3D_viscoelastic_MPI.f90
seismo/3D/CPML/trunk/seismic_PML_Collino_2D_isotropic.f90
seismo/3D/CPML/trunk/seismic_PML_Collino_3D_isotropic_OpenMP.f90
Log:
commented out all the "call system(...)" by default.
Modified: seismo/3D/CPML/trunk/seismic_CPML_2D_anisotropic.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_CPML_2D_anisotropic.f90 2009-11-03 19:29:50 UTC (rev 15920)
+++ seismo/3D/CPML/trunk/seismic_CPML_2D_anisotropic.f90 2009-11-03 20:12:49 UTC (rev 15921)
@@ -572,7 +572,7 @@
if(Courant_number > 1.d0) stop 'time step is too large, simulation will be unstable'
! suppress old files (can be commented out if "call system" is missing in your compiler)
- call system('rm -f Vx_*.dat Vy_*.dat image*.pnm image*.gif')
+! call system('rm -f Vx_*.dat Vy_*.dat image*.pnm image*.gif')
! initialize arrays
vx(:,:) = ZERO
@@ -862,7 +862,7 @@
close(27)
! call the system to convert image to GIF (can be commented out if "call system" is missing in your compiler)
- call system(system_command)
+! call system(system_command)
end subroutine create_2D_image
Modified: seismo/3D/CPML/trunk/seismic_CPML_2D_isotropic_fourth_order.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_CPML_2D_isotropic_fourth_order.f90 2009-11-03 19:29:50 UTC (rev 15920)
+++ seismo/3D/CPML/trunk/seismic_CPML_2D_isotropic_fourth_order.f90 2009-11-03 20:12:49 UTC (rev 15921)
@@ -522,7 +522,7 @@
if(Courant_number > 1.d0) stop 'time step is too large, simulation will be unstable'
! suppress old files (can be commented out if "call system" is missing in your compiler)
- call system('rm -f Vx_*.dat Vy_*.dat image*.pnm image*.gif')
+! call system('rm -f Vx_*.dat Vy_*.dat image*.pnm image*.gif')
! initialize arrays
vx(:,:) = ZERO
@@ -999,7 +999,7 @@
close(27)
! call the system to convert image to GIF (can be commented out if "call system" is missing in your compiler)
- call system(system_command)
+! call system(system_command)
end subroutine create_2D_image
Modified: seismo/3D/CPML/trunk/seismic_CPML_2D_isotropic_second_order.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_CPML_2D_isotropic_second_order.f90 2009-11-03 19:29:50 UTC (rev 15920)
+++ seismo/3D/CPML/trunk/seismic_CPML_2D_isotropic_second_order.f90 2009-11-03 20:12:49 UTC (rev 15921)
@@ -521,7 +521,7 @@
if(Courant_number > 1.d0) stop 'time step is too large, simulation will be unstable'
! suppress old files (can be commented out if "call system" is missing in your compiler)
- call system('rm -f Vx_*.dat Vy_*.dat image*.pnm image*.gif')
+! call system('rm -f Vx_*.dat Vy_*.dat image*.pnm image*.gif')
! initialize arrays
vx(:,:) = ZERO
@@ -998,7 +998,7 @@
close(27)
! call the system to convert image to GIF (can be commented out if "call system" is missing in your compiler)
- call system(system_command)
+! call system(system_command)
end subroutine create_2D_image
Modified: seismo/3D/CPML/trunk/seismic_CPML_2D_poroelastic_fourth_order.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_CPML_2D_poroelastic_fourth_order.f90 2009-11-03 19:29:50 UTC (rev 15920)
+++ seismo/3D/CPML/trunk/seismic_CPML_2D_poroelastic_fourth_order.f90 2009-11-03 20:12:49 UTC (rev 15921)
@@ -1256,7 +1256,7 @@
close(27)
! call the system to convert image to JPEG
- call system(system_command)
+! call system(system_command)
end subroutine create_2D_image
Modified: seismo/3D/CPML/trunk/seismic_CPML_3D_isotropic_MPI_OpenMP.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_CPML_3D_isotropic_MPI_OpenMP.f90 2009-11-03 19:29:50 UTC (rev 15920)
+++ seismo/3D/CPML/trunk/seismic_CPML_3D_isotropic_MPI_OpenMP.f90 2009-11-03 20:12:49 UTC (rev 15921)
@@ -1493,7 +1493,7 @@
close(27)
! call the system to convert image to GIF (can be commented out if "call system" is missing in your compiler)
- call system(system_command)
+! call system(system_command)
end subroutine create_2D_image
Modified: seismo/3D/CPML/trunk/seismic_CPML_3D_viscoelastic_MPI.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_CPML_3D_viscoelastic_MPI.f90 2009-11-03 19:29:50 UTC (rev 15920)
+++ seismo/3D/CPML/trunk/seismic_CPML_3D_viscoelastic_MPI.f90 2009-11-03 20:12:49 UTC (rev 15921)
@@ -1705,7 +1705,7 @@
close(27)
! call the system to convert image to GIF (can be commented out if "call system" is missing in your compiler)
-! call system(system_command)
+! call system(system_command)
end subroutine create_2D_image
Modified: seismo/3D/CPML/trunk/seismic_PML_Collino_2D_isotropic.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_PML_Collino_2D_isotropic.f90 2009-11-03 19:29:50 UTC (rev 15920)
+++ seismo/3D/CPML/trunk/seismic_PML_Collino_2D_isotropic.f90 2009-11-03 20:12:49 UTC (rev 15921)
@@ -313,7 +313,7 @@
if(Courant_number > 1.d0/sqrt(2.d0)) stop 'time step is too large, simulation will be unstable'
! suppress old files (can be commented out if "call system" is missing in your compiler)
- call system('rm -f Vx_*.dat Vy_*.dat image*.pnm image*.gif')
+! call system('rm -f Vx_*.dat Vy_*.dat image*.pnm image*.gif')
! initialize arrays
vx_1(:,:) = 0.d0
@@ -797,7 +797,7 @@
close(27)
! call the system to convert image to GIF (can be commented out if "call system" is missing in your compiler)
- call system(system_command)
+! call system(system_command)
end subroutine create_2D_image
Modified: seismo/3D/CPML/trunk/seismic_PML_Collino_3D_isotropic_OpenMP.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_PML_Collino_3D_isotropic_OpenMP.f90 2009-11-03 19:29:50 UTC (rev 15920)
+++ seismo/3D/CPML/trunk/seismic_PML_Collino_3D_isotropic_OpenMP.f90 2009-11-03 20:12:49 UTC (rev 15921)
@@ -346,7 +346,7 @@
if(Courant_number > 1.d0/sqrt(3.d0)) stop 'time step is too large, simulation will be unstable'
! suppress old files (can be commented out if "call system" is missing in your compiler)
- call system('rm -f Vx_*.dat Vy_*.dat Vz_*.dat image*.pnm image*.gif timestamp*')
+! call system('rm -f Vx_*.dat Vy_*.dat Vz_*.dat image*.pnm image*.gif timestamp*')
! initialize arrays
vx_1(:,:,:) = 0.d0
@@ -1124,7 +1124,7 @@
close(27)
! call the system to convert image to GIF (can be commented out if "call system" is missing in your compiler)
- call system(system_command)
+! call system(system_command)
end subroutine create_2D_image
More information about the CIG-COMMITS
mailing list