issues in vonMises addressed

Author: mcarcana

src/common/m_variables_conversion.fpp

@@ -1032,12 +1032,12 @@ contains
                             qK_prim_vf(i)%sf(j, k, l) = qK_cons_vf(i)%sf(j, k, l)/rho_K
                         end do
                     end if
-#ifndef POST_PROCESS
+#ifndef MFC_POST_PROCESS
                     ! to save von Mises stress instead of elastic internal energy
-                    qK_prim_vf(xiend+1)%sf(j, k, l) = sqrt((3/2)*qK_prim_vf(1)%sf(j, k, l)**2 + &
-                                            2*qK_prim_vf(2)%sf(j, k, l)**2 + qK_prim_vf(3)%sf(j, k, l)**2 + &
-                                            2*qK_prim_vf(4)%sf(j, k, l)**2 + 2*qK_prim_vf(5)%sf(j, k, l)**2 + &
-                                            qK_prim_vf(6)%sf(j, k, l)**2)
+                    qK_prim_vf(xiend+1)%sf(j, k, l) = sqrt((3d0/2d0)*(qK_prim_vf(strxb)%sf(j, k, l)**2d0 + &
+                                            2d0*qK_prim_vf(strxb+1)%sf(j, k, l)**2d0 + qK_prim_vf(strxb+2)%sf(j, k, l)**2d0 + &
+                                            2d0*qK_prim_vf(strxb+3)%sf(j, k, l)**2d0 + 2d0*qK_prim_vf(strxb+4)%sf(j, k, l)**2d0 + &
+                                            qK_prim_vf(strxe)%sf(j, k, l)**2d0))
 #endif
 
                     !$acc loop seq

src/post_process/m_start_up.f90

@@ -394,7 +394,10 @@ subroutine s_save_data(t_step, varname, pres, c, H)
                     call s_write_variable_to_formatted_database_file(varname, t_step)
                 end if
                 if (prim_vars_wrt) then
-                    q_sf = q_prim_vf(xiend+1)%sf(j, k, l)
+                    q_sf = q_prim_vf(xiend+1)%sf( &
+                            -offset_x%beg:m + offset_x%end, &
+                           -offset_y%beg:n + offset_y%end, &
+                           -offset_z%beg:p + offset_z%end)
                     write (varname, '(A,I0)') 'vonMises'
                     call s_write_variable_to_formatted_database_file(varname, t_step)
                 end if

submit_hyper.sh

@@ -1,7 +1,4 @@
 #!/bin/bash
 
-./mfc.sh run ./examples/3D_hyperelasticity/hyper_gel.py -p batch -N 1 -n 4 -g 0 -w 01:00:00 -# test1 -t pre_process -c oscar
-./mfc.sh run ./examples/3D_hyperelasticity/hyper_gel.py -p batch -N 1 -n 4 -g 0 -w 01:00:00 -# test1 -t simulation -c oscar
 #./mfc.sh run /scratch/bciv/rodrigu1/cav2024/hyper/hyper_gel.py -p gpuA40x4 -N 1 -n 1 -g 1 -w 01:00:00 -# test1 -t post_process -a bciv-delta-gpu -c delta
-
-
+./mfc.sh run /projects/bciv/mcarcanabarbosa/kymo/geldef.py -p gpuA100x4 -N 1 -n 4 -g 1 -w 01:00:00 -# test1 -t post_process -a bciv-delta-gpu -c delta