[CIG-SEISMO] bug fixes

[Dimitri Komatitsch]

Hi Michael,

I tried to fix the bug but noticed it was already fixed (at least in the 
"devel" branch of the code):

           else if (vsext(i,j,ispec) < TINYVAL) then
             ispec_is_acoustic(ispec) = .true.
           endif

Thus, if you are using a slightly older version of the code, you can 
switch to the "devel" branch and then type git pull.

On my side I am going to merge the "devel" branch into the main branch, 
to make sure that bug is fixed there as well.

Thanks,
Best regards,
Dimitri.

On 02/02/2018 03:05 PM, Dimitri Komatitsch wrote:
> 
> Hi Michael,
> 
> Thanks a lot. Very useful. I will commit the two changes to Git in a few 
> minutes.
> 
> Thanks again for your bug report,
> Best regards,
> Dimitri.
> 
> On 02/01/2018 12:05 PM, Michael Gineste wrote:
>> Hi SpecFem2D team,
>>
>> I encountered some issues which must be bugs and which has simple 
>> solutions. The diffs that fixes these are attached.
>>
>> The first is in get_simulation_domains.f90 and from reading the 
>> surrounding code, the line in question must be wrong. It got triggered 
>> when using model=default and supplying an external tomography model.
>>
>> The second in locate_receivers.f90 is bit more mysterious and I do not 
>> know the exact cause, but the modification in the attached diff file 
>> seemingly fixes it. It occured when IMAIN=42 and not 
>> =ISTANDARD_OUTPUT, i.e. output got written to file instead of screen.
>>
>> Don't know if these information are useful for anything, but I used 
>> gfortran v. 5.4.0 and openmpi 1.10.2.
>>
>> Best regards,
>> Michael Gineste
>>
>>
>>
>>
>> _______________________________________________
>> CIG-SEISMO mailing list
>> CIG-SEISMO at geodynamics.org
>> http://lists.geodynamics.org/cgi-bin/mailman/listinfo/cig-seismo
>>
> 

-- 
Dimitri Komatitsch, CNRS Research Director (DR CNRS)
Laboratory of Mechanics and Acoustics, Marseille, France
http://komatitsch.free.fr