[CIG-SEISMO] SPECFEM3D_GLOBE - Compile error in create_movie_AVS_DX.f90

[Dimitri Komatitsch]

Hi Elliott,

Thanks for your feedback. I have just fixed the problem. You can run 
'svn update'.

(that part of the routine was unused therefore I simply deleted it)

Thank you,
Dimitri.

On 04/05/2012 08:11 PM, Elliott Sales de Andrade wrote:
> Hi SPECFEM3D_GLOBE developers,
>
> In create_movie_AVS_DX.f90, in the `read_params_and_create_movie`
> subroutine, there is a call to `create_movie_AVS_DX` that is missing the
> final parameter `USE_COMPONENT`.
>
> I am not entirely certain of the source for component, but assuming it
> is determined from the same as the other parameters, then a change along
> the lines of the following patch will fix it:
>
> diff --git a/src/auxiliaries/create_movie_AVS_DX.f90
> b/src/auxiliaries/create_movie_AVS_DX.f90
> --- a/src/auxiliaries/create_movie_AVS_DX.f90
> +++ b/src/auxiliaries/create_movie_AVS_DX.f90
> @@ -769,6 +769,7 @@
>
>     integer it1,it2
>     integer iformat
> +  integer component
>
>   ! parameters read from parameter file
>     integer NEX_XI,NEX_ETA
> @@ -790,13 +791,17 @@
>     if(err_occurred() /= 0) stop 'an error occurred while reading the
> parameter file'
>     call read_value_integer(it2, 'end')
>     if(err_occurred() /= 0) stop 'an error occurred while reading the
> parameter file'
> +  call read_value_integer(component, 'component')
> +  if(err_occurred() /= 0) stop 'an error occurred while reading the
> parameter file'
> +  if( component<  1 .or. component>  3 ) stop 'component must be 1, 2
> or 3'
>
>   ! run the main program
>     call create_movie_AVS_DX(iformat,it1,it2,&
>              NEX_XI,NEX_ETA,&
>              NSTEP,NTSTEP_BETWEEN_FRAMES,&
>              NCHUNKS,&
> -           NPROCTOT,NEX_PER_PROC_XI,NEX_PER_PROC_ETA)
> +           NPROCTOT,NEX_PER_PROC_XI,NEX_PER_PROC_ETA,&
> +           component)
>
>     end subroutine read_params_and_create_movie
>

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