[cig-commits] [commit] devel: fix bug for ifort (2877bfb)

[cig_noreply at geodynamics.org]

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

On branch  : devel
Link       : https://github.com/geodynamics/specfem2d/compare/5d5f2573e07aeb536dd2e704073fa6b1f6837b81...1fb9d5351b4f341a868301cbd0938aa6d5c0a5eb

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

commit 2877bfb0ae7ba9c3a004404d001f7a67bb464c6f
Author: EtienneBachmann <etiennebachmann at hotmail.fr>
Date:   Wed Jan 14 20:36:39 2015 +0100

    fix bug for ifort


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

2877bfb0ae7ba9c3a004404d001f7a67bb464c6f
 src/specfem2D/update_displacement_scheme.F90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/specfem2D/update_displacement_scheme.F90 b/src/specfem2D/update_displacement_scheme.F90
index 302bb99..ae7fa3e 100644
--- a/src/specfem2D/update_displacement_scheme.F90
+++ b/src/specfem2D/update_displacement_scheme.F90
@@ -102,7 +102,7 @@
     ! check
     if( SIMULATION_TYPE == 3 ) then
       if( PML_BOUNDARY_CONDITIONS )then
-        call exit_MPI(myrank,'acoustic time marching scheme with PML_CONDITIONS on GPU not implemented yet...')
+        call exit_MPI('acoustic time marching scheme with PML_CONDITIONS on GPU not implemented yet...')
       endif
     endif
 
@@ -160,7 +160,7 @@
     if( SIMULATION_TYPE == 3 ) then
       if( PML_BOUNDARY_CONDITIONS )then
        
-          call exit_MPI(myrank,'elastic time marching scheme with PML_CONDITIONS on GPU not implemented yet...')
+          call exit_MPI('elastic time marching scheme with PML_CONDITIONS on GPU not implemented yet...')
    
       endif
     endif
@@ -236,7 +236,7 @@
 
    else
     ! wavefields on GPU
-    call exit_MPI(myrank,'poroelastic time marching scheme on GPU not implemented yet...')
+    call exit_MPI('poroelastic time marching scheme on GPU not implemented yet...')
   endif ! GPU_MODE