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

[Elliott Sales de Andrade]

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
 
-- 
Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
University of Toronto (Physics)