From fdf114792d3ba49aff2891af9c88da23a9aa2467 Mon Sep 17 00:00:00 2001 From: Dave Whipp <dwhipp@dal.ca> Date: Wed, 18 Jan 2012 20:33:29 +0000 Subject: [PATCH] Tweaked output --- src/VTK/input_of_outputs.txt | 3 +- src/VTK/post.f90 | 62 ++++++++++++++++++------------------ 2 files changed, 32 insertions(+), 33 deletions(-) diff --git a/src/VTK/input_of_outputs.txt b/src/VTK/input_of_outputs.txt index b8bb8a81..bcf04636 100644 --- a/src/VTK/input_of_outputs.txt +++ b/src/VTK/input_of_outputs.txt @@ -1,5 +1,4 @@ -! DOUAR post-processor input file version listed below -0.2a +0.2a ! Post-processor input file version (MUST BE 8 CHARACTERS; PAD WITH SPACES) 0 ! output u scalar field 0 ! output v scalar field 0 ! output w scalar field diff --git a/src/VTK/post.f90 b/src/VTK/post.f90 index d1424995..1f11217d 100644 --- a/src/VTK/post.f90 +++ b/src/VTK/post.f90 @@ -219,7 +219,7 @@ if (vernum /= input_vernum) then stop endif write(*,'(a)') '--------------------------------------------------------------------------' -read(77,*) output_u_field +read(77,*) output_u_field read(77,*) output_v_field read(77,*) output_w_field read(77,*) output_velo_vect @@ -250,36 +250,36 @@ read(77,*) output_rivers read(77,*) output_regular read(77,*) output_zisodisp -write(*,'(a)') 'output u field ->',(output_u_field==1) -write(*,'(a)') 'output v field ->',(output_v_field==1) -write(*,'(a)') 'output w field ->',(output_w_field==1) -write(*,'(a)') 'output velo vectors ->',(output_velo_vect==1) -write(*,'(a)') 'output preiso velo vectors->',(output_preiso_velo_vect==1) -write(*,'(a)') 'output iso velo vectors ->',(output_preiso_velo_vect==1) -write(*,'(a)') 'output disp field ->',(output_disp_field==1) -write(*,'(a)') 'output node press field ->',(output_press_fieldn==1) -write(*,'(a)') 'output raw press field ->',(output_press_fielde==1) -write(*,'(a)') 'output smooth press field ->',(output_smooth_press_fielde==1) -write(*,'(a)') 'output countnode field ->',(output_countnode_field==1) -write(*,'(a)') 'output temp field ->',(output_temp_field==1) -write(*,'(a)') 'output elem material # ->',(output_elem_matnum==1) -write(*,'(a)') 'output elemental e2d field->',(output_e2d_fielde==1) -write(*,'(a)') 'output nodal e2d field ->',(output_e2d_fieldn==1) -write(*,'(a)') 'output elem eff viscosity ->',(output_eviscosity_fielde==1) -write(*,'(a)') 'output element is plastic ->',(output_is_plastic_fielde==1) -write(*,'(a)') 'output element yield ratio->',(output_yield_ratio_fielde==1) -write(*,'(a)') 'output elem friction angle->',(output_frict_angle_fielde==1) -write(*,'(a)') 'output element dilat rate ->',(output_dilatr_fielde==1) -write(*,'(a)') 'output crit field ->',(output_crit_field==1) -write(*,'(a)') 'output strain field ->',(output_strain_field==1) -write(*,'(a)') 'output lsf field ->',(output_lsf_field==1) -write(*,'(a)') 'output surfaces icon ->',(output_surface_icon==1) -write(*,'(a)') 'output strain tensor ->',(output_strain_tensor==1) -write(*,'(a)') 'output principal stresses ->',(output_ps==1) -write(*,'(a)') 'output elemental fields ->',(output_cubes==1) -write(*,'(a)') 'output rivers ->',(output_rivers==1) -write(*,'(a)') 'output regular ->',(output_regular==1) -write(*,'(a)') 'output zisodisp ->',(output_zisodisp==1) +write(*,'(a,l)') 'output u field ->',(output_u_field==1) +write(*,'(a,l)') 'output v field ->',(output_v_field==1) +write(*,'(a,l)') 'output w field ->',(output_w_field==1) +write(*,'(a,l)') 'output velo vectors ->',(output_velo_vect==1) +write(*,'(a,l)') 'output preiso velo vectors->',(output_preiso_velo_vect==1) +write(*,'(a,l)') 'output iso velo vectors ->',(output_preiso_velo_vect==1) +write(*,'(a,l)') 'output disp field ->',(output_disp_field==1) +write(*,'(a,l)') 'output node press field ->',(output_press_fieldn==1) +write(*,'(a,l)') 'output raw press field ->',(output_press_fielde==1) +write(*,'(a,l)') 'output smooth press field ->',(output_smooth_press_fielde==1) +write(*,'(a,l)') 'output countnode field ->',(output_countnode_field==1) +write(*,'(a,l)') 'output temp field ->',(output_temp_field==1) +write(*,'(a,l)') 'output elem material # ->',(output_elem_matnum==1) +write(*,'(a,l)') 'output elemental e2d field->',(output_e2d_fielde==1) +write(*,'(a,l)') 'output nodal e2d field ->',(output_e2d_fieldn==1) +write(*,'(a,l)') 'output elem eff viscosity ->',(output_eviscosity_fielde==1) +write(*,'(a,l)') 'output element is plastic ->',(output_is_plastic_fielde==1) +write(*,'(a,l)') 'output element yield ratio->',(output_yield_ratio_fielde==1) +write(*,'(a,l)') 'output elem friction angle->',(output_frict_angle_fielde==1) +write(*,'(a,l)') 'output element dilat rate ->',(output_dilatr_fielde==1) +write(*,'(a,l)') 'output crit field ->',(output_crit_field==1) +write(*,'(a,l)') 'output strain field ->',(output_strain_field==1) +write(*,'(a,l)') 'output lsf field ->',(output_lsf_field==1) +write(*,'(a,l)') 'output surfaces icon ->',(output_surface_icon==1) +write(*,'(a,l)') 'output strain tensor ->',(output_strain_tensor==1) +write(*,'(a,l)') 'output principal stresses ->',(output_ps==1) +write(*,'(a,l)') 'output elemental fields ->',(output_cubes==1) +write(*,'(a,l)') 'output rivers ->',(output_rivers==1) +write(*,'(a,l)') 'output regular ->',(output_regular==1) +write(*,'(a,l)') 'output zisodisp ->',(output_zisodisp==1) write(*,'(a)') '--------------------------------------------------------------------------' !==============================================================================! -- GitLab