add git blame

Author: wilfonba

examples/2D_lungwave_horizontal/case.py

@@ -138,7 +138,6 @@
     'acoustic(1)%mag'                   : 100.0*patmos_n,# magnitude
     'acoustic(1)%length'                : 45.0*dlengy,   # pulse length
     'acoustic(1)%support'               : 2,             # 2D semi infinite plane (x: -inf,inf; y:-len/2, len/2)
-    'acoustic(1)%support_width'         : 30,
     'acoustic(1)%loc(1)'                : 0.7*dlengy,    # x_center of the domain
     'acoustic(1)%loc(2)'                : dlengy/2,      # upper boundary of the domain
     'acoustic(1)%dir'                   : -math.pi,      # direction: -pi/2

examples/3D_lungwave/case.py

@@ -196,7 +196,7 @@
     'patch_icpp(2)%length_x'       : 2000,#dlengx,#dlengx/2.+2,   #
     'patch_icpp(2)%length_y'       : dlengy,
     'patch_icpp(2)%length_z'       : dlengz,
-    'patch_icpp(2)%a2)'             : interface_amp,
+    'patch_icpp(2)%a(2)'             : interface_amp,
     'patch_icpp(2)%vel(1)'         : 0.E+00,
     'patch_icpp(2)%vel(2)'         : 0.0,
     'patch_icpp(2)%vel(3)'         : 0.0,

src/simulation/m_derived_variables.f90

@@ -156,9 +156,11 @@ subroutine s_compute_derived_variables(t_step)
                     end do
                 end do
             end do
+
             call s_derive_center_of_mass(q_prim_ts(3)%vf, c_mass)
 
             call s_write_probe_files(t_step, q_cons_ts(1)%vf, accel_mag)
+
             call s_write_com_files(t_step, c_mass)
         end if