Skip to content
Snippets Groups Projects
Commit 9683e8dc authored by Behrens, Prof. Dr. Jörn's avatar Behrens, Prof. Dr. Jörn
Browse files

still struggling

parent fd4c2408
No related branches found
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
flash2d/src/options-sphere/IO_vtu_stacked.F90
+ 3
− 1
View file @ 9683e8dc
...@@ -132,6 +132,7 @@ SUBROUTINE plot_vtu(p_mesh, c_filename, & ...@@ -132,6 +132,7 @@ SUBROUTINE plot_vtu(p_mesh, c_filename, &
REAL (KIND = GRID_SR), DIMENSION(:,:), POINTER :: r_stcval REAL (KIND = GRID_SR), DIMENSION(:,:), POINTER :: r_stcval
INTEGER( KIND = GRID_SI) :: i_stcbeg INTEGER( KIND = GRID_SI) :: i_stcbeg
INTEGER( KIND = GRID_SI) :: i_stcend INTEGER( KIND = GRID_SI) :: i_stcend
CHARACTER (len=12) :: c_layer
#endif #endif
INTEGER (KIND = GRID_SI), DIMENSION(:,:), ALLOCATABLE :: i_cellnodes INTEGER (KIND = GRID_SI), DIMENSION(:,:), ALLOCATABLE :: i_cellnodes
...@@ -394,7 +395,8 @@ SUBROUTINE plot_vtu(p_mesh, c_filename, & ...@@ -394,7 +395,8 @@ SUBROUTINE plot_vtu(p_mesh, c_filename, &
END IF END IF
DO i_cnt = 1, i_nodedata DO i_cnt = 1, i_nodedata
IF (p_nodedata(i_cnt)%c_name(1:5) == 'layer') THEN IF (p_nodedata(i_cnt)%c_name(1:5) == 'layer') THEN
READ(i_hcnt,'(I8)') p_nodedata(i_cnt)%c_name(6:32) c_layer = p_nodedata(i_cnt)%c_name(6:15)
READ(i_hcnt,'(I8)') c_layer
i_stcbeg = p_mesh%i_nnumber*(i_hcnt-1)+1 i_stcbeg = p_mesh%i_nnumber*(i_hcnt-1)+1
i_stcend = p_mesh%i_nnumber*i_hcnt i_stcend = p_mesh%i_nnumber*i_hcnt
r_stcval(1:1,i_stcbeg:i_stcend) = p_nodedata(i_cnt)%p_vdata(1:1,:) r_stcval(1:1,i_stcbeg:i_stcend) = p_nodedata(i_cnt)%p_vdata(1:1,:)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment