[cig-commits] [commit] devel: Fix string length with ifort. (14f0a7b)

[cig_noreply at geodynamics.org]

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

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d/compare/2696d80a7675a7c5a89fec3acdc11ca82439a18f...1a2f0a3f482f155db8320c64b4eae070bba090a2

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

commit 14f0a7bf9989208dcb939239d3e773d4fbc99ff7
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date:   Wed May 21 15:37:27 2014 -0400

    Fix string length with ifort.
    
    It doesn't like actual arguments that are shorter than the dummy
    argument.


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

14f0a7bf9989208dcb939239d3e773d4fbc99ff7
 setup/constants.h.in             | 2 +-
 src/auxiliaries/model_update.f90 | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/setup/constants.h.in b/setup/constants.h.in
index c360b0b..1c73714 100644
--- a/setup/constants.h.in
+++ b/setup/constants.h.in
@@ -378,7 +378,7 @@
   double precision, parameter :: ORIG_LAT_TOPO = 32.d0
   double precision, parameter :: ORIG_LONG_TOPO = -121.d0
   double precision, parameter :: DEGREES_PER_CELL_TOPO = 5.d0 / 1000.d0
-  character(len=100), parameter :: TOPO_FILE = 'DATA/la_topography/topo_bathy_final.dat'
+  character(len=*), parameter :: TOPO_FILE = 'DATA/la_topography/topo_bathy_final.dat'
 
 ! ! size of topography and bathymetry file for Piero Basini's model
 !   integer, parameter :: NX_TOPO_FILE = 787, NY_TOPO_FILE = 793
diff --git a/src/auxiliaries/model_update.f90 b/src/auxiliaries/model_update.f90
index 8929590..050d72a 100644
--- a/src/auxiliaries/model_update.f90
+++ b/src/auxiliaries/model_update.f90
@@ -38,7 +38,7 @@ program model_update
   ! USER PARAMETERS
 
   ! directory where the mesh files for the NEW model will be written
-  character(len=*), parameter :: &
+  character(len=MAX_STRING_LEN), parameter :: &
     LOCAL_PATH_NEW = trim(LOCAL_PATH_Q)//'/mesh_files_m01'
 
   ! directory where the output files of model_update will be written