[cig-commits] [commit] devel: Update write_VTK_data.f90 (f316cd0)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/specfem3d

On branch  : devel
Link       : https://github.com/geodynamics/specfem3d/compare/47f703851338234f96397e7da9fbff63d8178b8a...f316cd07c78df8dab2d8fe8e063750d968439f66

>---------------------------------------------------------------

commit f316cd07c78df8dab2d8fe8e063750d968439f66
Author: emanuele casarotti <emanuele.casarotti at ingv.it>
Date:   Thu Jun 19 16:42:23 2014 +0200

    Update write_VTK_data.f90
    
    ON blue gene system with bgxlf90 compiler and -qsave on (default)
    
    if ATTENUATION and SAVE_MESH_FILES are TRUE, the code exits since the variables are already allocated.


>---------------------------------------------------------------

f316cd07c78df8dab2d8fe8e063750d968439f66
 src/shared/write_VTK_data.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/shared/write_VTK_data.f90 b/src/shared/write_VTK_data.f90
index 31f5e14..b1251a1 100644
--- a/src/shared/write_VTK_data.f90
+++ b/src/shared/write_VTK_data.f90
@@ -224,7 +224,8 @@
   write(IOVTK,*) ""
 
   ! iflag field on global nodeset
-  allocate(mask_ibool(nglob),flag_val(nglob),stat=ier)
+  !allocate(mask_ibool(nglob),flag_val(nglob),stat=ier)
+  if (.not. allocated(mask_ibool)) allocate(mask_ibool(nglob),flag_val(nglob),stat=ier)
   if( ier /= 0 ) stop 'error allocating mask'
 
   mask_ibool = .false.