[cig-commits] [commit] devel: Fix a couple type-conversion warnings. (2d2cce8)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d_globe

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d_globe/compare/c6e8e9a46f1a4bfcf8b3725426d1dd528b7dabea...44c2c95f23a37e3e2af17b5f784a8521c8197b8b

>---------------------------------------------------------------

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