From 9683e8dc1de6a04291cd5d596ddc343e55aa7504 Mon Sep 17 00:00:00 2001 From: Joern Behrens <joern.behrens@uni-hamburg.de> Date: Thu, 27 Jan 2022 22:33:57 +0100 Subject: [PATCH] still struggling --- flash2d/src/options-sphere/IO_vtu_stacked.F90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/flash2d/src/options-sphere/IO_vtu_stacked.F90 b/flash2d/src/options-sphere/IO_vtu_stacked.F90 index cb83bae..7ec16c9 100644 --- a/flash2d/src/options-sphere/IO_vtu_stacked.F90 +++ b/flash2d/src/options-sphere/IO_vtu_stacked.F90 @@ -132,6 +132,7 @@ SUBROUTINE plot_vtu(p_mesh, c_filename, & REAL (KIND = GRID_SR), DIMENSION(:,:), POINTER :: r_stcval INTEGER( KIND = GRID_SI) :: i_stcbeg INTEGER( KIND = GRID_SI) :: i_stcend + CHARACTER (len=12) :: c_layer #endif INTEGER (KIND = GRID_SI), DIMENSION(:,:), ALLOCATABLE :: i_cellnodes @@ -394,7 +395,8 @@ 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) + 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_stcend = p_mesh%i_nnumber*i_hcnt r_stcval(1:1,i_stcbeg:i_stcend) = p_nodedata(i_cnt)%p_vdata(1:1,:) -- GitLab