From 02dee28b24519f711a9b48e245947f1449f37b85 Mon Sep 17 00:00:00 2001 From: Eyal Shimony Date: Wed, 20 Nov 2024 11:23:37 -0800 Subject: [PATCH] Fixed incorrect dimensionality in data variables in combine_vol_data --- src/auxiliaries/combine_vol_data.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/auxiliaries/combine_vol_data.F90 b/src/auxiliaries/combine_vol_data.F90 index 750c54cbc..11097279e 100644 --- a/src/auxiliaries/combine_vol_data.F90 +++ b/src/auxiliaries/combine_vol_data.F90 @@ -631,7 +631,7 @@ subroutine cvd_write_corners(NSPEC_AB,NGLOB_AB,ibool,xstore,ystore,zstore,data,n integer,intent(in) :: NSPEC_AB,NGLOB_AB integer,dimension(NGLLX,NGLLY,NGLLZ,NSPEC_AB),intent(in) :: ibool real(kind=CUSTOM_REAL),dimension(NGLOB_AB),intent(in) :: xstore, ystore, zstore - real(kind=CUSTOM_REAL),dimension(NGLLY,NGLLY,NGLLZ,NSPEC_AB),intent(in) :: data + real(kind=CUSTOM_REAL),dimension(NGLLX,NGLLY,NGLLZ,NSPEC_AB),intent(in) :: data integer, intent(inout) :: numpoin,np @@ -860,7 +860,7 @@ subroutine cvd_write_GLL_points(NSPEC_AB,NGLOB_AB,ibool,xstore,ystore,zstore,dat integer,intent(in) :: NSPEC_AB,NGLOB_AB integer,dimension(NGLLX,NGLLY,NGLLZ,NSPEC_AB),intent(in) :: ibool real(kind=CUSTOM_REAL),dimension(NGLOB_AB),intent(in) :: xstore, ystore, zstore - real(kind=CUSTOM_REAL),dimension(NGLLY,NGLLY,NGLLZ,NSPEC_AB),intent(in) :: data + real(kind=CUSTOM_REAL),dimension(NGLLX,NGLLY,NGLLZ,NSPEC_AB),intent(in) :: data integer,intent(inout) :: numpoin,np