[cig-commits] [commit] pluggable: Incredibly, Fortran 90/95 limits identifiers to 31 characters. Intel's ifort enforces this when given "-e03", which is included in FLAGS_(NO_)CHECK by 'flags.guess'. I renamed various pluggable earth model API routines accordingly. (af1ef2f)

[cig_noreply at geodynamics.org]

Repository : ssh://geoshell/specfem3d_globe

On branch  : pluggable
Link       : https://github.com/geodynamics/specfem3d_globe/compare/64e1b38f0c5ebb4056cce0b15d41c0b9f94ab6e5...099a4d330d5b173b21e51ad441f9f429e5d37842

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

commit af1ef2f9d5a51c071c13b24daf980e177475c69e
Author: Leif Strand <leif at geodynamics.org>
Date:   Mon Apr 6 20:56:19 2009 +0000

    Incredibly, Fortran 90/95 limits identifiers to 31 characters.
    Intel's ifort enforces this when given "-e03", which is included in
    FLAGS_(NO_)CHECK by 'flags.guess'.  I renamed various pluggable earth
    model API routines accordingly.


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

af1ef2f9d5a51c071c13b24daf980e177475c69e
 anisotropic_inner_core_model.f90 | 2 +-
 attenuation_model.f90            | 2 +-
 read_compute_parameters.f90      | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/anisotropic_inner_core_model.f90 b/anisotropic_inner_core_model.f90
index 1158752..e81c8e8 100644
--- a/anisotropic_inner_core_model.f90
+++ b/anisotropic_inner_core_model.f90
@@ -50,7 +50,7 @@
   double precision c66
   double precision scale_fac
 
-  call reference_1d_model_aniso_inner_core_model_setup(x,vp,vp0,vs,vs0,rho,rho0)
+  call aniso_inner_core_model_setup(x,vp,vp0,vs,vs0,rho,rho0)
 
 ! elastic tensor for hexagonal symmetry in reduced notation:
 !
diff --git a/attenuation_model.f90 b/attenuation_model.f90
index 744cb24..79ca5a6 100644
--- a/attenuation_model.f90
+++ b/attenuation_model.f90
@@ -138,7 +138,7 @@ subroutine attenuation_model_setup(AM_V,AM_S,AS_V)
   if(myrank > 0) return
 
   call define_reference_1d_model(.FALSE.)
-  call reference_1d_model_attenuation_model_setup(AM_V)
+  call ref1d_attenuation_model_setup(AM_V)
 
   do i = 1, AM_V%Qn
      call attenuation_conversion(AM_V%Qmu(i), AM_V%QT_c_source, AM_V%Qtau_s, tau_e, AM_V, AM_S,AS_V)
diff --git a/read_compute_parameters.f90 b/read_compute_parameters.f90
index b02f71f..488e655 100644
--- a/read_compute_parameters.f90
+++ b/read_compute_parameters.f90
@@ -474,7 +474,7 @@
       endif
     endif
 
-    call reference_1d_model_adjust_time_step(DT)
+    call adjust_time_step(DT)
 
     if( .not. ATTENUATION_RANGE_PREDEFINED ) then
        call auto_attenuation_periods(ANGULAR_WIDTH_XI_IN_DEGREES, NEX_MAX, &