fixing wp issues

Author: mrodrig6

src/post_process/m_data_output.fpp

@@ -1241,9 +1241,9 @@ contains
     subroutine s_write_kymo_data_file(q_prim_vf)
         type(scalar_field), dimension(sys_size), intent(IN) :: q_prim_vf
         integer :: j, k, l, t !< Generic loop iterators
-        real(kind(0d0)) :: vonMises_d, vonMises_h1  !< selected planes for kymograph comparison
-        real(kind(0d0)) :: vonMises_h2, vonMises_h3 !<kymograph plane comparison continued
-        real(kind(0d0)) :: i !< counting integer
+        real(wp) :: vonMises_d, vonMises_h1  !< selected planes for kymograph comparison
+        real(wp) :: vonMises_h2, vonMises_h3 !<kymograph plane comparison continued
+        real(wp) :: i !< counting integer
 
         do t = 0, t_stop
             do j = 0, m
@@ -1254,7 +1254,7 @@ contains
             end do
         end do
 
-        i = m/4d0
+        i = m/4.0_wp
         do t = 0, t_stop
             do k = 0, n
                 !xcen_bub is roughly +/- m/4