Skip to content

Commit e457a73

Browse files
sbryngelsonsbryngelson
committed
style: apply ffmt formatting (Ubuntu-specific line breaks)
1 parent fdc72da commit e457a73

2 files changed

Lines changed: 17 additions & 18 deletions

File tree

‎src/simulation/m_cbc.fpp‎

Lines changed: 16 additions & 16 deletions
Original file line numberDiff line numberDiff line change
@@ -725,15 +725,15 @@ contains
725725
726726
Ma = vel(dir_idx(1))/c
727727
728-
if ((cbc_loc == -1 .and. bc_${XYZ}$%beg == BC_CHAR_SLIP_WALL) &
729-
& .or. (cbc_loc == 1 .and. bc_${XYZ}$%end == BC_CHAR_SLIP_WALL)) then
728+
if ((cbc_loc == -1 .and. bc_${XYZ}$%beg == BC_CHAR_SLIP_WALL) .or. (cbc_loc == 1 &
729+
& .and. bc_${XYZ}$%end == BC_CHAR_SLIP_WALL)) then
730730
call s_compute_slip_wall_L(lambda, L, rho, c, dpres_ds, dvel_ds)
731-
else if ((cbc_loc == -1 .and. bc_${XYZ}$%beg == BC_CHAR_NR_SUB_BUFFER) &
732-
& .or. (cbc_loc == 1 .and. bc_${XYZ}$%end == BC_CHAR_NR_SUB_BUFFER)) then
731+
else if ((cbc_loc == -1 .and. bc_${XYZ}$%beg == BC_CHAR_NR_SUB_BUFFER) .or. (cbc_loc == 1 &
732+
& .and. bc_${XYZ}$%end == BC_CHAR_NR_SUB_BUFFER)) then
733733
call s_compute_nonreflecting_subsonic_buffer_L(lambda, L, rho, c, mf, dalpha_rho_ds, dpres_ds, &
734734
& dvel_ds, dadv_ds, dYs_ds)
735-
else if ((cbc_loc == -1 .and. bc_${XYZ}$%beg == BC_CHAR_NR_SUB_INFLOW) &
736-
& .or. (cbc_loc == 1 .and. bc_${XYZ}$%end == BC_CHAR_NR_SUB_INFLOW)) then
735+
else if ((cbc_loc == -1 .and. bc_${XYZ}$%beg == BC_CHAR_NR_SUB_INFLOW) .or. (cbc_loc == 1 &
736+
& .and. bc_${XYZ}$%end == BC_CHAR_NR_SUB_INFLOW)) then
737737
call s_compute_nonreflecting_subsonic_inflow_L(lambda, L, rho, c, dpres_ds, dvel_ds)
738738
! Add GRCBC for Subsonic Inflow
739739
if (bc_${XYZ}$%grcbc_in) then
@@ -759,8 +759,8 @@ contains
759759
& dir_idx(1))*sign(1, &
760760
& cbc_loc))/Del_in(${CBC_DIR}$) + c*(1._wp + Ma)*(pres - pres_in(${CBC_DIR}$))/Del_in(${CBC_DIR}$)
761761
end if
762-
else if ((cbc_loc == -1 .and. bc_${XYZ}$%beg == BC_CHAR_NR_SUB_OUTFLOW) &
763-
& .or. (cbc_loc == 1 .and. bc_${XYZ}$%end == BC_CHAR_NR_SUB_OUTFLOW)) then
762+
else if ((cbc_loc == -1 .and. bc_${XYZ}$%beg == BC_CHAR_NR_SUB_OUTFLOW) .or. (cbc_loc == 1 &
763+
& .and. bc_${XYZ}$%end == BC_CHAR_NR_SUB_OUTFLOW)) then
764764
call s_compute_nonreflecting_subsonic_outflow_L(lambda, L, rho, c, mf, dalpha_rho_ds, dpres_ds, &
765765
& dvel_ds, dadv_ds, dYs_ds)
766766
! Add GRCBC for Subsonic Outflow (Pressure)
@@ -773,19 +773,19 @@ contains
773773
& + vel_out(${CBC_DIR}$, dir_idx(1))*sign(1, cbc_loc))/Del_out(${CBC_DIR}$)
774774
end if
775775
end if
776-
else if ((cbc_loc == -1 .and. bc_${XYZ}$%beg == BC_CHAR_FF_SUB_OUTFLOW) &
777-
& .or. (cbc_loc == 1 .and. bc_${XYZ}$%end == BC_CHAR_FF_SUB_OUTFLOW)) then
776+
else if ((cbc_loc == -1 .and. bc_${XYZ}$%beg == BC_CHAR_FF_SUB_OUTFLOW) .or. (cbc_loc == 1 &
777+
& .and. bc_${XYZ}$%end == BC_CHAR_FF_SUB_OUTFLOW)) then
778778
call s_compute_force_free_subsonic_outflow_L(lambda, L, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, &
779779
& dadv_ds)
780-
else if ((cbc_loc == -1 .and. bc_${XYZ}$%beg == BC_CHAR_CP_SUB_OUTFLOW) &
781-
& .or. (cbc_loc == 1 .and. bc_${XYZ}$%end == BC_CHAR_CP_SUB_OUTFLOW)) then
780+
else if ((cbc_loc == -1 .and. bc_${XYZ}$%beg == BC_CHAR_CP_SUB_OUTFLOW) .or. (cbc_loc == 1 &
781+
& .and. bc_${XYZ}$%end == BC_CHAR_CP_SUB_OUTFLOW)) then
782782
call s_compute_constant_pressure_subsonic_outflow_L(lambda, L, rho, c, mf, dalpha_rho_ds, dpres_ds, &
783783
& dvel_ds, dadv_ds)
784-
else if ((cbc_loc == -1 .and. bc_${XYZ}$%beg == BC_CHAR_SUP_INFLOW) &
785-
& .or. (cbc_loc == 1 .and. bc_${XYZ}$%end == BC_CHAR_SUP_INFLOW)) then
784+
else if ((cbc_loc == -1 .and. bc_${XYZ}$%beg == BC_CHAR_SUP_INFLOW) .or. (cbc_loc == 1 &
785+
& .and. bc_${XYZ}$%end == BC_CHAR_SUP_INFLOW)) then
786786
call s_compute_supersonic_inflow_L(L)
787-
else if ((cbc_loc == -1 .and. bc_${XYZ}$%beg == BC_CHAR_SUP_OUTFLOW) &
788-
& .or. (cbc_loc == 1 .and. bc_${XYZ}$%end == BC_CHAR_SUP_OUTFLOW)) then
787+
else if ((cbc_loc == -1 .and. bc_${XYZ}$%beg == BC_CHAR_SUP_OUTFLOW) .or. (cbc_loc == 1 &
788+
& .and. bc_${XYZ}$%end == BC_CHAR_SUP_OUTFLOW)) then
789789
call s_compute_supersonic_outflow_L(lambda, L, rho, c, mf, dalpha_rho_ds, dpres_ds, dvel_ds, dadv_ds, &
790790
& dYs_ds)
791791
end if

‎src/simulation/m_hypoelastic.fpp‎

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -312,8 +312,7 @@ contains
312312
! S_rr -= rho * v/r * (tau_rr + 2/3*G)
313313
rhs_vf(eqn_idx%stress%beg + 2)%sf(k, l, q) = rhs_vf(eqn_idx%stress%beg + 2)%sf(k, l, q) - rho_K_field(k, &
314314
& l, q)*q_prim_vf(eqn_idx%mom%beg + 1)%sf(k, l, &
315-
& q)/y%cc(l)*(q_prim_vf(eqn_idx%stress%beg + 2)%sf(k, l, q) + (2._wp/3._wp)*G_K_field(k, l, &
316-
& q)) ! tau_rr + 2/3*G
315+
& q)/y%cc(l)*(q_prim_vf(eqn_idx%stress%beg + 2)%sf(k, l, q) + (2._wp/3._wp)*G_K_field(k, l, q)) ! tau_rr + 2/3*G
317316

318317
! S_thetatheta += rho * ( -(tau_thetatheta + 2/3*G)*(du/x%spacing + dv/dr + v/r) + 2*(tau_thetatheta +
319318
! G)*v/r )

0 commit comments

Comments
 (0)