[cig-commits] [commit] devel: "Buildbot ran code beautifier." (c372685)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Mon Jan 5 04:17:14 PST 2015
Repository : https://github.com/geodynamics/specfem2d
On branch : devel
Link : https://github.com/geodynamics/specfem2d/compare/ab07bc52af96700aac5633340aecf9ec9b8a1058...c37268501b12d3e84b802daa642f25b9bde7ee3b
>---------------------------------------------------------------
commit c37268501b12d3e84b802daa642f25b9bde7ee3b
Author: buildbot <buildbot at seismobot.Princeton.EDU>
Date: Mon Jan 5 07:07:19 2015 -0500
"Buildbot ran code beautifier."
>---------------------------------------------------------------
c37268501b12d3e84b802daa642f25b9bde7ee3b
src/specfem2D/pml_init.F90 | 50 +++++++++++++++++++++++-----------------------
1 file changed, 25 insertions(+), 25 deletions(-)
diff --git a/src/specfem2D/pml_init.F90 b/src/specfem2D/pml_init.F90
index bda4830..833fbd2 100644
--- a/src/specfem2D/pml_init.F90
+++ b/src/specfem2D/pml_init.F90
@@ -664,7 +664,7 @@ end subroutine pml_init
lambdalplus2mul_relaxed = poroelastcoef(3,1,kmato(ispec))
rhol = density(1,kmato(ispec))
vpmax_acoustic=max(vpmax_acoustic,sqrt(lambdalplus2mul_relaxed/rhol))
- elseif(elastic(ispec))then
+ else if(elastic(ispec))then
! get relaxed elastic parameters of current spectral element
lambdalplus2mul_relaxed = poroelastcoef(3,1,kmato(ispec))
rhol = density(1,kmato(ispec))
@@ -765,7 +765,7 @@ end subroutine pml_init
!ZN d_z = d0_z_bottom / damping_modified_factor * abscissa_normalized**NPOWER
if(acoustic(ispec))then
d_z = d0_z_bottom_acoustic / damping_modified_factor_acoustic * abscissa_normalized**NPOWER
- elseif(elastic(ispec))then
+ else if(elastic(ispec))then
d_z = d0_z_bottom_elastic / damping_modified_factor_elastic * abscissa_normalized**NPOWER
else
stop 'PML only implemented for purely elastic or purely acoustic or acoustic/elastic simulation'
@@ -791,7 +791,7 @@ end subroutine pml_init
!ZN d_z = d0_z_top / damping_modified_factor * abscissa_normalized**NPOWER
if(acoustic(ispec))then
d_z = d0_z_top_acoustic / damping_modified_factor_acoustic * abscissa_normalized**NPOWER
- elseif(elastic(ispec))then
+ else if(elastic(ispec))then
d_z = d0_z_top_elastic / damping_modified_factor_elastic * abscissa_normalized**NPOWER
else
stop 'PML only implemented for purely elastic or purely acoustic or acoustic/elastic simulation'
@@ -818,7 +818,7 @@ end subroutine pml_init
!ZN d_x = d0_x_right / damping_modified_factor * abscissa_normalized**NPOWER
if(acoustic(ispec))then
d_x = d0_x_right_acoustic / damping_modified_factor_acoustic * abscissa_normalized**NPOWER
- elseif(elastic(ispec))then
+ else if(elastic(ispec))then
d_x = d0_x_right_elastic / damping_modified_factor_elastic * abscissa_normalized**NPOWER
else
stop 'PML only implemented for purely elastic or purely acoustic or acoustic/elastic simulation'
@@ -844,7 +844,7 @@ end subroutine pml_init
!ZN d_x = d0_x_left / damping_modified_factor * abscissa_normalized**NPOWER
if(acoustic(ispec))then
d_x = d0_x_left_acoustic / damping_modified_factor_acoustic * abscissa_normalized**NPOWER
- elseif(elastic(ispec))then
+ else if(elastic(ispec))then
d_x = d0_x_left_elastic / damping_modified_factor_elastic * abscissa_normalized**NPOWER
else
stop 'PML only implemented for purely elastic or purely acoustic or acoustic/elastic simulation'
@@ -928,14 +928,14 @@ end subroutine pml_init
d_z = d0_z_bottom_acoustic / damping_modified_factor_acoustic * abscissa_normalized**NPOWER
K_z = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_z = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
- elseif(elastic(ispec))then
+ else if(elastic(ispec))then
d_z = d0_z_bottom_elastic / damping_modified_factor_elastic * abscissa_normalized**NPOWER
K_z = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_z = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
else
stop 'PML only implemented for purely elastic or purely acoustic or acoustic/elastic simulation'
endif
- elseif(rough_estimate_incident_angle > 1.0d0 .and. &
+ else if(rough_estimate_incident_angle > 1.0d0 .and. &
rough_estimate_incident_angle <= 6.0d0 )then
damping_modified_factor_acoustic = 0.5d0
@@ -947,7 +947,7 @@ end subroutine pml_init
d_z = d0_z_bottom_acoustic / damping_modified_factor_acoustic * abscissa_normalized**NPOWER
K_z = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_z = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
- elseif(elastic(ispec))then
+ else if(elastic(ispec))then
d_z = d0_z_bottom_elastic / damping_modified_factor_elastic * abscissa_normalized**NPOWER
K_z = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_z = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
@@ -955,7 +955,7 @@ end subroutine pml_init
stop 'PML only implemented for purely elastic or purely acoustic or acoustic/elastic simulation'
endif
- elseif(rough_estimate_incident_angle > 6.0d0 )then
+ else if(rough_estimate_incident_angle > 6.0d0 )then
damping_modified_factor_acoustic = 0.4d0
damping_modified_factor_elastic = 0.8d0
@@ -966,7 +966,7 @@ end subroutine pml_init
d_z = d0_z_bottom_acoustic / damping_modified_factor_acoustic * abscissa_normalized**NPOWER
K_z = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_z = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
- elseif(elastic(ispec))then
+ else if(elastic(ispec))then
d_z = d0_z_bottom_elastic / damping_modified_factor_elastic * abscissa_normalized**NPOWER
K_z = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_z = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
@@ -1005,14 +1005,14 @@ end subroutine pml_init
d_z = d0_z_top_acoustic / damping_modified_factor_acoustic * abscissa_normalized**NPOWER
K_z = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_z = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
- elseif(elastic(ispec))then
+ else if(elastic(ispec))then
d_z = d0_z_top_elastic / damping_modified_factor_elastic * abscissa_normalized**NPOWER
K_z = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_z = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
else
stop 'PML only implemented for purely elastic or purely acoustic or acoustic/elastic simulation'
endif
- elseif(rough_estimate_incident_angle > 1.0d0 .and. &
+ else if(rough_estimate_incident_angle > 1.0d0 .and. &
rough_estimate_incident_angle <= 6.0d0 )then
damping_modified_factor_acoustic = 0.5d0
@@ -1024,7 +1024,7 @@ end subroutine pml_init
d_z = d0_z_top_acoustic / damping_modified_factor_acoustic * abscissa_normalized**NPOWER
K_z = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_z = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
- elseif(elastic(ispec))then
+ else if(elastic(ispec))then
d_z = d0_z_top_elastic / damping_modified_factor_elastic * abscissa_normalized**NPOWER
K_z = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_z = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
@@ -1032,7 +1032,7 @@ end subroutine pml_init
stop 'PML only implemented for purely elastic or purely acoustic or acoustic/elastic simulation'
endif
- elseif(rough_estimate_incident_angle > 6.0d0 )then
+ else if(rough_estimate_incident_angle > 6.0d0 )then
damping_modified_factor_acoustic = 0.4d0
damping_modified_factor_elastic = 0.8d0
@@ -1043,7 +1043,7 @@ end subroutine pml_init
d_z = d0_z_top_acoustic / damping_modified_factor_acoustic * abscissa_normalized**NPOWER
K_z = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_z = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
- elseif(elastic(ispec))then
+ else if(elastic(ispec))then
d_z = d0_z_top_elastic / damping_modified_factor_elastic * abscissa_normalized**NPOWER
K_z = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_z = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
@@ -1082,14 +1082,14 @@ end subroutine pml_init
d_x = d0_x_right_acoustic / damping_modified_factor_acoustic * abscissa_normalized**NPOWER
K_x = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_x = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
- elseif(elastic(ispec))then
+ else if(elastic(ispec))then
d_x = d0_x_right_elastic / damping_modified_factor_elastic * abscissa_normalized**NPOWER
K_x = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_x = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
else
stop 'PML only implemented for purely elastic or purely acoustic or acoustic/elastic simulation'
endif
- elseif(rough_estimate_incident_angle > 1.0d0 .and. &
+ else if(rough_estimate_incident_angle > 1.0d0 .and. &
rough_estimate_incident_angle <= 6.0d0 )then
damping_modified_factor_acoustic = 0.5d0
@@ -1101,7 +1101,7 @@ end subroutine pml_init
d_x = d0_x_right_acoustic / damping_modified_factor_acoustic * abscissa_normalized**NPOWER
K_x = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_x = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
- elseif(elastic(ispec))then
+ else if(elastic(ispec))then
d_x = d0_x_right_elastic / damping_modified_factor_elastic * abscissa_normalized**NPOWER
K_x = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_x = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
@@ -1109,7 +1109,7 @@ end subroutine pml_init
stop 'PML only implemented for purely elastic or purely acoustic or acoustic/elastic simulation'
endif
- elseif(rough_estimate_incident_angle > 6.0d0 )then
+ else if(rough_estimate_incident_angle > 6.0d0 )then
damping_modified_factor_acoustic = 0.4d0
damping_modified_factor_elastic = 0.8d0
@@ -1120,7 +1120,7 @@ end subroutine pml_init
d_x = d0_x_right_acoustic / damping_modified_factor_acoustic * abscissa_normalized**NPOWER
K_x = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_x = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
- elseif(elastic(ispec))then
+ else if(elastic(ispec))then
d_x = d0_x_right_elastic / damping_modified_factor_elastic * abscissa_normalized**NPOWER
K_x = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_x = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
@@ -1159,14 +1159,14 @@ end subroutine pml_init
d_x = d0_x_left_acoustic / damping_modified_factor_acoustic * abscissa_normalized**NPOWER
K_x = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_x = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
- elseif(elastic(ispec))then
+ else if(elastic(ispec))then
d_x = d0_x_left_elastic / damping_modified_factor_elastic * abscissa_normalized**NPOWER
K_x = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_x = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
else
stop 'PML only implemented for purely elastic or purely acoustic or acoustic/elastic simulation'
endif
- elseif(rough_estimate_incident_angle > 1.0d0 .and. &
+ else if(rough_estimate_incident_angle > 1.0d0 .and. &
rough_estimate_incident_angle <= 6.0d0 )then
damping_modified_factor_acoustic = 0.5d0
@@ -1178,7 +1178,7 @@ end subroutine pml_init
d_x = d0_x_left_acoustic / damping_modified_factor_acoustic * abscissa_normalized**NPOWER
K_x = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_x = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
- elseif(elastic(ispec))then
+ else if(elastic(ispec))then
d_x = d0_x_left_elastic / damping_modified_factor_elastic * abscissa_normalized**NPOWER
K_x = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_x = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
@@ -1186,7 +1186,7 @@ end subroutine pml_init
stop 'PML only implemented for purely elastic or purely acoustic or acoustic/elastic simulation'
endif
- elseif(rough_estimate_incident_angle > 6.0d0 )then
+ else if(rough_estimate_incident_angle > 6.0d0 )then
damping_modified_factor_acoustic = 0.4d0
damping_modified_factor_elastic = 0.8d0
@@ -1197,7 +1197,7 @@ end subroutine pml_init
d_x = d0_x_left_acoustic / damping_modified_factor_acoustic * abscissa_normalized**NPOWER
K_x = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_x = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
- elseif(elastic(ispec))then
+ else if(elastic(ispec))then
d_x = d0_x_left_elastic / damping_modified_factor_elastic * abscissa_normalized**NPOWER
K_x = K_MIN_PML + (K_MAX_PML - 1.0d0) * abscissa_normalized**NPOWER
alpha_x = ALPHA_MAX_PML * (1.0d0 - abscissa_normalized)
More information about the CIG-COMMITS
mailing list