[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