[cig-commits] [commit] devel: Fix an unnecessarily inverted condition. (b9d571a)
cig_noreply at geodynamics.org
cig_noreply at geodynamics.org
Thu Sep 18 16:18:17 PDT 2014
Repository : https://github.com/geodynamics/specfem3d_globe
On branch : devel
Link : https://github.com/geodynamics/specfem3d_globe/compare/c6e8e9a46f1a4bfcf8b3725426d1dd528b7dabea...44c2c95f23a37e3e2af17b5f784a8521c8197b8b
>---------------------------------------------------------------
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