[cig-commits] [commit] devel, master: Fix an unnecessarily inverted condition. (b9d571a)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Thu Nov 6 08:30:43 PST 2014
Repository : https://github.com/geodynamics/specfem3d_globe
On branches: devel,master
Link : https://github.com/geodynamics/specfem3d_globe/compare/bc58e579b3b0838a0968725a076f5904845437ca...be63f20cbb6f462104e949894dbe205d2398cd7f
>---------------------------------------------------------------
commit b9d571ac504e71a09422da9254ecc0963b7821fb
Author: Elliott Sales de Andrade <esalesde at physics.utoronto.ca>
Date: Thu Sep 11 03:06:05 2014 -0400
Fix an unnecessarily inverted condition.
>---------------------------------------------------------------
b9d571ac504e71a09422da9254ecc0963b7821fb
src/auxiliaries/combine_surf_data.f90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/auxiliaries/combine_surf_data.f90 b/src/auxiliaries/combine_surf_data.f90
index 6a337ee..6cae224 100644
--- a/src/auxiliaries/combine_surf_data.f90
+++ b/src/auxiliaries/combine_surf_data.f90
@@ -180,10 +180,10 @@ program combine_surf_data
close(27)
enddo
- if (.not. FILE_ARRAY_IS_3D) then
- allocate(data_2D(NGLLX,NGLLY,nspec_surf))
- else
+ if (FILE_ARRAY_IS_3D) then
allocate(data_3D(NGLLX,NGLLY,NGLLZ,NSPEC_CRUST_MANTLE))
+ else
+ allocate(data_2D(NGLLX,NGLLY,nspec_surf))
endif
! open Paraview output mesh file
More information about the CIG-COMMITS
mailing list