[cig-commits] r18508 - in seismo/3D/CPML: tags/v1.1.3 trunk

dkomati1 at geodynamics.org dkomati1 at geodynamics.org
Tue May 31 08:51:32 PDT 2011


Author: dkomati1
Date: 2011-05-31 08:51:32 -0700 (Tue, 31 May 2011)
New Revision: 18508

Modified:
   seismo/3D/CPML/tags/v1.1.3/seismic_ADEPML_2D_RK4_eighth_order.f90
   seismo/3D/CPML/tags/v1.1.3/seismic_CPML_2D_anisotropic.f90
   seismo/3D/CPML/tags/v1.1.3/seismic_CPML_2D_isotropic_fourth_order.f90
   seismo/3D/CPML/tags/v1.1.3/seismic_CPML_2D_isotropic_second_order.f90
   seismo/3D/CPML/tags/v1.1.3/seismic_CPML_2D_poroelastic_fourth_order.f90
   seismo/3D/CPML/tags/v1.1.3/seismic_CPML_3D_isotropic_MPI_OpenMP.f90
   seismo/3D/CPML/tags/v1.1.3/seismic_CPML_3D_viscoelastic_MPI.f90
   seismo/3D/CPML/tags/v1.1.3/seismic_PML_Collino_2D_anisotropic_fourth.f90
   seismo/3D/CPML/tags/v1.1.3/seismic_PML_Collino_2D_isotropic.f90
   seismo/3D/CPML/tags/v1.1.3/seismic_PML_Collino_3D_isotropic_OpenMP.f90
   seismo/3D/CPML/trunk/seismic_ADEPML_2D_RK4_eighth_order.f90
   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_anisotropic_fourth.f90
   seismo/3D/CPML/trunk/seismic_PML_Collino_2D_isotropic.f90
   seismo/3D/CPML/trunk/seismic_PML_Collino_3D_isotropic_OpenMP.f90
Log:
added a comment about the fact that all of our CPML codes work fine in single precision as well


Modified: seismo/3D/CPML/tags/v1.1.3/seismic_ADEPML_2D_RK4_eighth_order.f90
===================================================================
--- seismo/3D/CPML/tags/v1.1.3/seismic_ADEPML_2D_RK4_eighth_order.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/tags/v1.1.3/seismic_ADEPML_2D_RK4_eighth_order.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -162,6 +162,10 @@
 !   then " display allfiles_Vy.gif " or " gimp allfiles_Vy.gif "
 !
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 ! total number of grid points in each direction of the grid

Modified: seismo/3D/CPML/tags/v1.1.3/seismic_CPML_2D_anisotropic.f90
===================================================================
--- seismo/3D/CPML/tags/v1.1.3/seismic_CPML_2D_anisotropic.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/tags/v1.1.3/seismic_CPML_2D_anisotropic.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -152,6 +152,10 @@
 !   then " display allfiles_Vy.gif " or " gimp allfiles_Vy.gif "
 !
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 ! total number of grid points in each direction of the grid

Modified: seismo/3D/CPML/tags/v1.1.3/seismic_CPML_2D_isotropic_fourth_order.f90
===================================================================
--- seismo/3D/CPML/tags/v1.1.3/seismic_CPML_2D_isotropic_fourth_order.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/tags/v1.1.3/seismic_CPML_2D_isotropic_fourth_order.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -132,6 +132,10 @@
 !   then " display allfiles_Vy.gif " or " gimp allfiles_Vy.gif "
 !
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 ! total number of grid points in each direction of the grid

Modified: seismo/3D/CPML/tags/v1.1.3/seismic_CPML_2D_isotropic_second_order.f90
===================================================================
--- seismo/3D/CPML/tags/v1.1.3/seismic_CPML_2D_isotropic_second_order.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/tags/v1.1.3/seismic_CPML_2D_isotropic_second_order.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -138,6 +138,10 @@
 !   then " display allfiles_Vy.gif " or " gimp allfiles_Vy.gif "
 !
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 ! total number of grid points in each direction of the grid

Modified: seismo/3D/CPML/tags/v1.1.3/seismic_CPML_2D_poroelastic_fourth_order.f90
===================================================================
--- seismo/3D/CPML/tags/v1.1.3/seismic_CPML_2D_poroelastic_fourth_order.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/tags/v1.1.3/seismic_CPML_2D_poroelastic_fourth_order.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -145,6 +145,10 @@
 !   " gs vect*.ps "
 !
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 ! total number of grid points in each direction of the grid

Modified: seismo/3D/CPML/tags/v1.1.3/seismic_CPML_3D_isotropic_MPI_OpenMP.f90
===================================================================
--- seismo/3D/CPML/tags/v1.1.3/seismic_CPML_3D_isotropic_MPI_OpenMP.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/tags/v1.1.3/seismic_CPML_3D_isotropic_MPI_OpenMP.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -121,6 +121,10 @@
 !   then " display allfiles_Vy.gif " or " gimp allfiles_Vy.gif "
 !
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 ! header which contains standard MPI declarations

Modified: seismo/3D/CPML/tags/v1.1.3/seismic_CPML_3D_viscoelastic_MPI.f90
===================================================================
--- seismo/3D/CPML/tags/v1.1.3/seismic_CPML_3D_viscoelastic_MPI.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/tags/v1.1.3/seismic_CPML_3D_viscoelastic_MPI.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -124,6 +124,10 @@
 !   then " display allfiles_Vy.gif " or " gimp allfiles_Vy.gif "
 !
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 ! header which contains standard MPI declarations

Modified: seismo/3D/CPML/tags/v1.1.3/seismic_PML_Collino_2D_anisotropic_fourth.f90
===================================================================
--- seismo/3D/CPML/tags/v1.1.3/seismic_PML_Collino_2D_anisotropic_fourth.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/tags/v1.1.3/seismic_PML_Collino_2D_anisotropic_fourth.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -47,6 +47,10 @@
 
   program seismic_PML_Collino_2D_ani_4th
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 !

Modified: seismo/3D/CPML/tags/v1.1.3/seismic_PML_Collino_2D_isotropic.f90
===================================================================
--- seismo/3D/CPML/tags/v1.1.3/seismic_PML_Collino_2D_isotropic.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/tags/v1.1.3/seismic_PML_Collino_2D_isotropic.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -37,6 +37,10 @@
 
   program seismic_PML_Collino_2D_iso
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 !

Modified: seismo/3D/CPML/tags/v1.1.3/seismic_PML_Collino_3D_isotropic_OpenMP.f90
===================================================================
--- seismo/3D/CPML/tags/v1.1.3/seismic_PML_Collino_3D_isotropic_OpenMP.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/tags/v1.1.3/seismic_PML_Collino_3D_isotropic_OpenMP.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -38,6 +38,10 @@
 
   program seismic_PML_Collino_3D_iso
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 !

Modified: seismo/3D/CPML/trunk/seismic_ADEPML_2D_RK4_eighth_order.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_ADEPML_2D_RK4_eighth_order.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/trunk/seismic_ADEPML_2D_RK4_eighth_order.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -162,6 +162,10 @@
 !   then " display allfiles_Vy.gif " or " gimp allfiles_Vy.gif "
 !
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 ! total number of grid points in each direction of the grid

Modified: seismo/3D/CPML/trunk/seismic_CPML_2D_anisotropic.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_CPML_2D_anisotropic.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/trunk/seismic_CPML_2D_anisotropic.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -152,6 +152,10 @@
 !   then " display allfiles_Vy.gif " or " gimp allfiles_Vy.gif "
 !
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 ! total number of grid points in each direction of the grid

Modified: seismo/3D/CPML/trunk/seismic_CPML_2D_isotropic_fourth_order.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_CPML_2D_isotropic_fourth_order.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/trunk/seismic_CPML_2D_isotropic_fourth_order.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -132,6 +132,10 @@
 !   then " display allfiles_Vy.gif " or " gimp allfiles_Vy.gif "
 !
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 ! total number of grid points in each direction of the grid

Modified: seismo/3D/CPML/trunk/seismic_CPML_2D_isotropic_second_order.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_CPML_2D_isotropic_second_order.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/trunk/seismic_CPML_2D_isotropic_second_order.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -138,6 +138,10 @@
 !   then " display allfiles_Vy.gif " or " gimp allfiles_Vy.gif "
 !
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 ! total number of grid points in each direction of the grid

Modified: seismo/3D/CPML/trunk/seismic_CPML_2D_poroelastic_fourth_order.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_CPML_2D_poroelastic_fourth_order.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/trunk/seismic_CPML_2D_poroelastic_fourth_order.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -145,6 +145,10 @@
 !   " gs vect*.ps "
 !
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 ! total number of grid points in each direction of the grid

Modified: seismo/3D/CPML/trunk/seismic_CPML_3D_isotropic_MPI_OpenMP.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_CPML_3D_isotropic_MPI_OpenMP.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/trunk/seismic_CPML_3D_isotropic_MPI_OpenMP.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -121,6 +121,10 @@
 !   then " display allfiles_Vy.gif " or " gimp allfiles_Vy.gif "
 !
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 ! header which contains standard MPI declarations

Modified: seismo/3D/CPML/trunk/seismic_CPML_3D_viscoelastic_MPI.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_CPML_3D_viscoelastic_MPI.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/trunk/seismic_CPML_3D_viscoelastic_MPI.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -124,6 +124,10 @@
 !   then " display allfiles_Vy.gif " or " gimp allfiles_Vy.gif "
 !
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 ! header which contains standard MPI declarations

Modified: seismo/3D/CPML/trunk/seismic_PML_Collino_2D_anisotropic_fourth.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_PML_Collino_2D_anisotropic_fourth.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/trunk/seismic_PML_Collino_2D_anisotropic_fourth.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -47,6 +47,10 @@
 
   program seismic_PML_Collino_2D_ani_4th
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 !

Modified: seismo/3D/CPML/trunk/seismic_PML_Collino_2D_isotropic.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_PML_Collino_2D_isotropic.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/trunk/seismic_PML_Collino_2D_isotropic.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -37,6 +37,10 @@
 
   program seismic_PML_Collino_2D_iso
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 !

Modified: seismo/3D/CPML/trunk/seismic_PML_Collino_3D_isotropic_OpenMP.f90
===================================================================
--- seismo/3D/CPML/trunk/seismic_PML_Collino_3D_isotropic_OpenMP.f90	2011-05-31 15:41:50 UTC (rev 18507)
+++ seismo/3D/CPML/trunk/seismic_PML_Collino_3D_isotropic_OpenMP.f90	2011-05-31 15:51:32 UTC (rev 18508)
@@ -38,6 +38,10 @@
 
   program seismic_PML_Collino_3D_iso
 
+! IMPORTANT : all our CPML codes work fine in single precision as well (which is significantly faster).
+!             If you want you can thus force automatic conversion to single precision at compile time 
+!             or change all the declarations and constants in the code from double precision to single.
+
   implicit none
 
 !



More information about the CIG-COMMITS mailing list