small bug fixes

flash2d/src/options-sphere/IO_vtu_stacked.F90

@@ -186,7 +186,7 @@ SUBROUTINE plot_vtu(p_mesh, c_filename, &
 
 #if defined VTU_OUTPUTSTC
   i_numberofvtucells = p_mesh%i_enumfine* (i_lay-1)
-  i_numberoffvtuaces = p_mesh%i_gnumfine* i_lay + p_mesh%i_nnumber* (i_lay-1)
+  i_numberofvtufaces = p_mesh%i_gnumfine* i_lay + p_mesh%i_nnumber* (i_lay-1)
 #endif
 
   IF(l_continuous_data) THEN
@@ -394,7 +394,7 @@ SUBROUTINE plot_vtu(p_mesh, c_filename, &
 	END IF
     DO i_cnt = 1, i_nodedata
       IF (p_nodedata(i_cnt)%c_name(1:5) == 'layer') THEN
-        READ(i_hcnt,'I8') p_nodedata(i_cnt)%c_name(6:32)
+        READ(i_hcnt,('I8')) p_nodedata(i_cnt)%c_name(6:32)
         i_stcbeg = p_mesh%i_nnumber*(i_hcnt-1)+1
         i_stcend = p_mesh%i_nnumber*i_hcnt
         r_stcval(1:1,i_stcbeg:i_stcend) = p_nodedata(i_cnt)%p_vdata(1:1,:)
@@ -404,6 +404,7 @@ SUBROUTINE plot_vtu(p_mesh, c_filename, &
     p_stcnodedata(1)%i_size = 1
     p_stcnodedata(1)%p_vdata=>r_stcval
     CALL write_vtu_data(i_fhandle, p_stcnodedata(1))
+    DEALLOCATE(r_stcval)
 #endif
   END IF
 
@@ -434,7 +435,6 @@ SUBROUTINE plot_vtu(p_mesh, c_filename, &
   END IF
 #elif defined VTU_OUTPUTSTC
   ! at this time we assign the same cell values to the whole column of stacked cells
-  IF(ALLOCATED(r_stcval)) DEALLOCATE(r_stcval)
   ALLOCATE(r_stcval(1,i_numberofvtucells), stat=i_alct)
   IF(i_alct /= 0) THEN
 	CALL grid_error(c_error='[plot_vtu]: could not allocate aux. stc values arrays')
@@ -443,13 +443,14 @@ SUBROUTINE plot_vtu(p_mesh, c_filename, &
       DO i_hcnt=1,i_numberofcells
         i_stcbeg = (i_hcnt-1)*(i_lay-1)+1
         i_stcend = i_hcnt*(i_lay-1)
-        r_stcval(i_stcbeg:i_stcend) = p_celldata(i_cnt)%p_vdata(i_hct)
+        r_stcval(i_stcbeg:i_stcend) = p_celldata(i_cnt)%p_vdata(i_hcnt)
       END DO
       p_stcnodedata(1)%c_name = p_celldata(i_cnt)%c_name
       p_stcnodedata(1)%i_size = p_celldata(i_cnt)%i_size
       p_stcnodedata(1)%p_vdata=>r_stcval
       CALL write_vtu_data(i_fhandle, p_celldata(i_cnt))
     END DO
+    DEALLOCATE(r_stcval)
 #endif
 
   ! write the end of cell data and the footer.
@@ -461,9 +462,6 @@ SUBROUTINE plot_vtu(p_mesh, c_filename, &
   ! tidy up
   CLOSE(i_fhandle)
   DEALLOCATE(r_nodecoor, i_cellnodes)
-#if defined VTU_OUTPUTSTC
-  IF(ALLOCATED(r_stcval)) DEALLOCATE(r_stcval)
-#endif
 END SUBROUTINE plot_vtu