[cig-commits] r21892 - seismo/3D/SPECFEM3D/trunk/src/generate_databases

[danielpeter at geodynamics.org]

Author: danielpeter
Date: 2013-04-18 04:09:14 -0700 (Thu, 18 Apr 2013)
New Revision: 21892

Modified:
   seismo/3D/SPECFEM3D/trunk/src/generate_databases/pml_set_local_dampingcoeff.f90
Log:
fixes long lines (>132 characters) in pml_set_local_dampingcoeff.f90

Modified: seismo/3D/SPECFEM3D/trunk/src/generate_databases/pml_set_local_dampingcoeff.f90
===================================================================
--- seismo/3D/SPECFEM3D/trunk/src/generate_databases/pml_set_local_dampingcoeff.f90	2013-04-18 01:04:31 UTC (rev 21891)
+++ seismo/3D/SPECFEM3D/trunk/src/generate_databases/pml_set_local_dampingcoeff.f90	2013-04-18 11:09:14 UTC (rev 21892)
@@ -1067,7 +1067,9 @@
                  !---------------------------- XYZ-corner C-PML --------------------------------
                  !------------------------------------------------------------------------------
 
-                 if( xstore(iglob) - x_origin>0.d0 .and. ystore(iglob) - y_origin>0.d0 .and. zstore(iglob) - z_origin>0.d0 ) then
+                 if( xstore(iglob) - x_origin>0.d0 .and. &
+                     ystore(iglob) - y_origin>0.d0 .and. &
+                     zstore(iglob) - z_origin>0.d0 ) then
                     if( PML_INSTEAD_OF_FREE_SURFACE ) then
                        ! gets abscissa of current grid point along the damping profile
                        abscissa_in_PML_x = xstore(iglob) - xoriginright
@@ -1133,7 +1135,9 @@
                        endif
                     endif
 
-                 else if( xstore(iglob) - x_origin>0.d0 .and. ystore(iglob) - y_origin>0.d0 .and. zstore(iglob) - z_origin<0.d0 ) then
+                 else if( xstore(iglob) - x_origin>0.d0 .and. &
+                          ystore(iglob) - y_origin>0.d0 .and. &
+                          zstore(iglob) - z_origin<0.d0 ) then
                     ! gets abscissa of current grid point along the damping profile
                     abscissa_in_PML_x = xstore(iglob) - xoriginright
 
@@ -1198,7 +1202,9 @@
                     endif
 
 
-                 else if( xstore(iglob) - x_origin>0.d0 .and. ystore(iglob) - y_origin<0.d0 .and. zstore(iglob) - z_origin>0.d0 ) then
+                 else if( xstore(iglob) - x_origin>0.d0 .and. &
+                          ystore(iglob) - y_origin<0.d0 .and. &
+                          zstore(iglob) - z_origin>0.d0 ) then
                     if( PML_INSTEAD_OF_FREE_SURFACE ) then
                        ! gets abscissa of current grid point along the damping profile
                        abscissa_in_PML_x = xstore(iglob) - xoriginright
@@ -1266,7 +1272,9 @@
 
                     endif
 
-                 else if( xstore(iglob) - x_origin>0.d0 .and. ystore(iglob) - y_origin<0.d0 .and. zstore(iglob) - z_origin < 0.d0 ) then
+                 else if( xstore(iglob) - x_origin>0.d0 .and. &
+                          ystore(iglob) - y_origin<0.d0 .and. &
+                          zstore(iglob) - z_origin < 0.d0 ) then
                     ! gets abscissa of current grid point along the damping profile
                     abscissa_in_PML_x = xstore(iglob) - xoriginright
 
@@ -1332,7 +1340,9 @@
                        K_z = 1.d0
                     endif
 
-                 else if( xstore(iglob) - x_origin<0.d0 .and. ystore(iglob) - y_origin>0.d0 .and. zstore(iglob) - z_origin>0.d0 ) then
+                 else if( xstore(iglob) - x_origin<0.d0 .and. &
+                          ystore(iglob) - y_origin>0.d0 .and. &
+                          zstore(iglob) - z_origin>0.d0 ) then
                     if( PML_INSTEAD_OF_FREE_SURFACE ) then
                        ! gets abscissa of current grid point along the damping profile
                        abscissa_in_PML_x = xoriginleft - xstore(iglob)
@@ -1399,7 +1409,9 @@
 
                     endif
 
-                 else if( xstore(iglob) - x_origin<0.d0 .and. ystore(iglob) - y_origin>0.d0 .and. zstore(iglob) - z_origin<0.d0 ) then
+                 else if( xstore(iglob) - x_origin<0.d0 .and. &
+                          ystore(iglob) - y_origin>0.d0 .and. &
+                          zstore(iglob) - z_origin<0.d0 ) then
                     ! gets abscissa of current grid point along the damping profile
                     abscissa_in_PML_x = xoriginleft - xstore(iglob)
 
@@ -1463,7 +1475,9 @@
                        K_z = 1.d0
                     endif
 
-                 else if( xstore(iglob) - x_origin<0.d0 .and. ystore(iglob) - y_origin<0.d0 .and. zstore(iglob) - z_origin>0.d0 ) then
+                 else if( xstore(iglob) - x_origin<0.d0 .and. &
+                          ystore(iglob) - y_origin<0.d0 .and. &
+                          zstore(iglob) - z_origin>0.d0 ) then
                     if( PML_INSTEAD_OF_FREE_SURFACE ) then
                        ! gets abscissa of current grid point along the damping profile
                        abscissa_in_PML_x = xoriginleft - xstore(iglob)
@@ -1530,7 +1544,9 @@
 
                     endif
 
-                 else if( xstore(iglob) - x_origin<0.d0 .and. ystore(iglob) - y_origin<0.d0 .and. zstore(iglob) - z_origin < 0.d0 ) then
+                 else if( xstore(iglob) - x_origin<0.d0 .and. &
+                          ystore(iglob) - y_origin<0.d0 .and. &
+                          zstore(iglob) - z_origin < 0.d0 ) then
                     ! gets abscissa of current grid point along the damping profile
                     abscissa_in_PML_x = xoriginleft - xstore(iglob)