[cig-commits] [commit] devel, master: Fix a couple type-conversion warnings. (2d2cce8)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Thu Nov 6 08:31:00 PST 2014
Repository : https://github.com/geodynamics/specfem3d_globe
On branches: devel,master
Link : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f
>---------------------------------------------------------------
commit 2d2cce8b16994efc2250573d161724b993d7961b
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date: Thu Sep 11 01:54:46 2014 -0400
Fix a couple type-conversion warnings.
>---------------------------------------------------------------
2d2cce8b16994efc2250573d161724b993d7961b
src/meshfem3D/create_mass_matrices.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/meshfem3D/create_mass_matrices.f90 b/src/meshfem3D/create_mass_matrices.f90
index 85019c7..3349053 100644
--- a/src/meshfem3D/create_mass_matrices.f90
+++ b/src/meshfem3D/create_mass_matrices.f90
@@ -253,9 +253,9 @@
endif
! use the non-dimensional time step to make the mass matrix correction
- deltat = DT*dsqrt(PI*GRAV*RHOAV)
+ deltat = real(DT*dsqrt(PI*GRAV*RHOAV), kind=CUSTOM_REAL)
- scale_t_inv = dsqrt(PI*GRAV*RHOAV)
+ scale_t_inv = real(dsqrt(PI*GRAV*RHOAV), kind=CUSTOM_REAL)
two_omega_earth_dt = 0._CUSTOM_REAL
b_two_omega_earth_dt = 0._CUSTOM_REAL
More information about the CIG-COMMITS
mailing list