Skip to content

Commit ab772fd

Browse files
mrodrig6mrodrig6
committed
ran the MFC format command for PR
1 parent 25bf4fe commit ab772fd

File tree

9 files changed

+177
-177
lines changed

9 files changed

+177
-177
lines changed

‎src/common/m_variables_conversion.fpp‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1044,11 +1044,11 @@ contains
10441044

10451045
#ifdef MFC_POST_PROCESS
10461046
if (hyperelasticity) then
1047-
! to save von Mises stress instead of elastic internal energy
1048-
qK_prim_vf(xiend+1)%sf(j, k, l) = sqrt((3_wp/2_wp)* (qK_prim_vf(strxb)%sf(j, k, l)**2_wp + &
1049-
2_wp*qK_prim_vf(strxb+1)%sf(j, k, l)**2_wp + qK_prim_vf(strxb+2)%sf(j, k, l)**2_wp + &
1050-
2_wp*qK_prim_vf(strxb+3)%sf(j, k, l)**2_wp + 2_wp*qK_prim_vf(strxb+4)%sf(j, k, l)**2_wp + &
1051-
qK_prim_vf(strxe)%sf(j, k, l)**2_wp) )
1047+
! to save von Mises stress instead of elastic internal energy
1048+
qK_prim_vf(xiend + 1)%sf(j, k, l) = sqrt((3_wp/2_wp)*(qK_prim_vf(strxb)%sf(j, k, l)**2_wp + &
1049+
2_wp*qK_prim_vf(strxb + 1)%sf(j, k, l)**2_wp + qK_prim_vf(strxb + 2)%sf(j, k, l)**2_wp + &
1050+
2_wp*qK_prim_vf(strxb + 3)%sf(j, k, l)**2_wp + 2_wp*qK_prim_vf(strxb + 4)%sf(j, k, l)**2_wp + &
1051+
qK_prim_vf(strxe)%sf(j, k, l)**2_wp))
10521052
end if
10531053
#endif
10541054

‎src/post_process/m_start_up.f90‎

Lines changed: 11 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -369,7 +369,7 @@ subroutine s_save_data(t_step, varname, pres, c, H)
369369
! Adding the elastic shear stresses to the formatted database file -----
370370
if (elasticity) then
371371
if (prim_vars_wrt) then
372-
do i = 1, stress_idx%end - stress_idx%beg + 1
372+
do i = 1, stress_idx%end - stress_idx%beg + 1
373373
q_sf = q_prim_vf(i - 1 + stress_idx%beg)%sf( &
374374
-offset_x%beg:m + offset_x%end, &
375375
-offset_y%beg:n + offset_y%end, &
@@ -378,12 +378,12 @@ subroutine s_save_data(t_step, varname, pres, c, H)
378378
call s_write_variable_to_formatted_database_file(varname, t_step)
379379

380380
varname(:) = ' '
381-
end do
381+
end do
382382
end if
383383
end if
384384
if (hyperelasticity) then
385385
if (prim_vars_wrt) then
386-
do i = 1, xiend - xibeg + 1
386+
do i = 1, xiend - xibeg + 1
387387
q_sf = q_prim_vf(i - 1 + xibeg)%sf( &
388388
-offset_x%beg:m + offset_x%end, &
389389
-offset_y%beg:n + offset_y%end, &
@@ -392,16 +392,16 @@ subroutine s_save_data(t_step, varname, pres, c, H)
392392
call s_write_variable_to_formatted_database_file(varname, t_step)
393393

394394
varname(:) = ' '
395-
end do
395+
end do
396396

397-
q_sf = q_prim_vf(xiend+1)%sf( &
398-
-offset_x%beg:m + offset_x%end, &
399-
-offset_y%beg:n + offset_y%end, &
400-
-offset_z%beg:p + offset_z%end)
397+
q_sf = q_prim_vf(xiend + 1)%sf( &
398+
-offset_x%beg:m + offset_x%end, &
399+
-offset_y%beg:n + offset_y%end, &
400+
-offset_z%beg:p + offset_z%end)
401401

402-
write (varname, '(A,I0)') 'vonMises'
403-
call s_write_variable_to_formatted_database_file(varname, t_step)
404-
varname(:) = ' '
402+
write (varname, '(A,I0)') 'vonMises'
403+
call s_write_variable_to_formatted_database_file(varname, t_step)
404+
varname(:) = ' '
405405

406406
end if
407407
end if

‎src/pre_process/include/3dHardcodedIC.fpp‎

Lines changed: 15 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -59,37 +59,37 @@
5959
q_prim_vf(advxb)%sf(i, j, k) = patch_icpp(1)%alpha(1)
6060
q_prim_vf(advxe)%sf(i, j, k) = patch_icpp(1)%alpha(2)
6161
end if
62-
62+
6363
case (302) ! (3D lung geometry in X direction - axisym, with smoothing)
64-
lam = 200.E-06_wp
64+
lam = 200.e-06_wp
6565
amp = patch_icpp(patch_id)%a2
6666
h = 0.125_wp*amp
67-
67+
6868
intH = amp/2._wp*(sin(2._wp*pi*y_cc(j)/lam + pi/2._wp) + sin(2._wp*pi*z_cc(k)/lam + pi/2._wp))
69-
70-
alph = patch_icpp(2)%alpha(1) + (patch_icpp(1)%alpha(1)-patch_icpp(2)%alpha(1))/(h)*(x_cc(i)-(intH-h/2._wp))
71-
69+
70+
alph = patch_icpp(2)%alpha(1) + (patch_icpp(1)%alpha(1) - patch_icpp(2)%alpha(1))/(h)*(x_cc(i) - (intH - h/2._wp))
71+
7272
if (x_cc(i) > intH + h/2) then
73-
73+
7474
q_prim_vf(advxb)%sf(i, j, k) = patch_icpp(1)%alpha(1)
7575
q_prim_vf(advxe)%sf(i, j, k) = patch_icpp(1)%alpha(2)
7676
q_prim_vf(contxb)%sf(i, j, k) = patch_icpp(1)%alpha_rho(1)
7777
q_prim_vf(contxe)%sf(i, j, k) = patch_icpp(1)%alpha_rho(2)
7878
q_prim_vf(E_idx)%sf(i, j, k) = patch_icpp(1)%pres
79-
80-
else if ((x_cc(i) .le. intH + h/2) .and. (x_cc(i) .ge. intH - h/2._wp)) then
81-
79+
80+
else if ((x_cc(i) <= intH + h/2) .and. (x_cc(i) >= intH - h/2._wp)) then
81+
8282
q_prim_vf(advxb)%sf(i, j, k) = alph !0.5
8383
q_prim_vf(advxe)%sf(i, j, k) = 1._wp - alph !0.5
8484
q_prim_vf(contxb)%sf(i, j, k) = patch_icpp(1)%alpha_rho(1)/patch_icpp(1)%alpha(1)*alph!0.5
85-
q_prim_vf(contxe)%sf(i, j, k) = patch_icpp(2)%alpha_rho(2)/patch_icpp(2)%alpha(2)*(1-alph)!0.5
85+
q_prim_vf(contxe)%sf(i, j, k) = patch_icpp(2)%alpha_rho(2)/patch_icpp(2)%alpha(2)*(1 - alph)!0.5
8686
q_prim_vf(E_idx)%sf(i, j, k) = patch_icpp(1)%pres
87-
87+
8888
end if
89-
89+
9090
case (303) ! pre_stress for hyperelasticity, bubble in material
9191

92-
R0ref = 30E-6_wp ! equilibrium radius
92+
R0ref = 30e-6_wp ! equilibrium radius
9393
Rinit = patch_icpp(3)%radius ! initial radius
9494
x_bcen = patch_icpp(3)%x_centroid
9595
y_bcen = patch_icpp(3)%y_centroid
@@ -101,7 +101,7 @@
101101
phi = atan2(y_ccs, x_ccs)
102102
theta = atan2(sqrt(x_ccs**2._wp + y_ccs**2._wp), z_ccs)
103103
!spherical coord, assuming Rmax=1
104-
xi_sph = (rcoord**3._wp - R0ref**3._wp + Rinit**3._wp)**(1._wp/3._wp)
104+
xi_sph = (rcoord**3._wp - R0ref**3._wp + Rinit**3._wp)**(1._wp/3._wp)
105105
xi_cart(1) = xi_sph*sin(theta)*cos(phi)
106106
xi_cart(2) = xi_sph*sin(theta)*sin(phi)
107107
xi_cart(3) = xi_sph*cos(theta)

‎src/pre_process/m_assign_variables.fpp‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -498,10 +498,10 @@ contains
498498
if (hyperelasticity .and. .not. pre_stress) then
499499
xi_cart(1) = x_cc(j)
500500
if (p > 0) then
501-
xi_cart(2) = y_cc(k)
502-
xi_cart(3) = z_cc(l)
501+
xi_cart(2) = y_cc(k)
502+
xi_cart(3) = z_cc(l)
503503
elseif (n > 0) then
504-
xi_cart(2) = y_cc(k)
504+
xi_cart(2) = y_cc(k)
505505
end if
506506
507507
! assigning the reference map to the q_prim vector field

‎src/pre_process/m_patches.fpp‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1527,17 +1527,17 @@ contains
15271527

15281528
if (x_cc(i) - x_centroid >= 0 &
15291529
.and. &
1530-
r - as(2)*Ps(2) - as(3)*Ps(3) - as(4)*Ps(4) - as(5)*Ps(5) - as(6)*Ps(6) &
1531-
- as(7)*Ps(7) - as(8)*Ps(8) - as(9)*Ps(9) <= radius .and. &
1530+
r - as(2)*Ps(2) - as(3)*Ps(3) - as(4)*Ps(4) - as(5)*Ps(5) - as(6)*Ps(6) &
1531+
- as(7)*Ps(7) - as(8)*Ps(8) - as(9)*Ps(9) <= radius .and. &
15321532
patch_icpp(patch_id)%alter_patch(patch_id_fp(i, j, 0))) &
15331533
then
15341534
call s_assign_patch_primitive_variables(patch_id, i, j, 0, &
15351535
eta, q_prim_vf, patch_id_fp)
15361536

15371537
elseif (x_cc(i) - x_centroid < 0 &
15381538
.and. &
1539-
r - as(2)*Ps(2) + as(3)*Ps(3) - as(4)*Ps(4) + as(5)*Ps(5) - as(6)*Ps(6) &
1540-
+ as(7)*Ps(7) - as(8)*Ps(8) + as(9)*Ps(9) <= radius &
1539+
r - as(2)*Ps(2) + as(3)*Ps(3) - as(4)*Ps(4) + as(5)*Ps(5) - as(6)*Ps(6) &
1540+
+ as(7)*Ps(7) - as(8)*Ps(8) + as(9)*Ps(9) <= radius &
15411541
.and. &
15421542
patch_icpp(patch_id)%alter_patch(patch_id_fp(i, j, 0))) &
15431543
then

0 commit comments

Comments
 (0)