added more module precision

Author: mrodrig6

src/common/m_variables_conversion.fpp

@@ -1045,10 +1045,10 @@ contains
 #ifdef MFC_POST_PROCESS
                     if (hyperelasticity) then
                     ! to save von Mises stress instead of elastic internal energy
-                    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) )
+                    qK_prim_vf(xiend+1)%sf(j, k, l) = sqrt((3_wp/2_wp)* (qK_prim_vf(strxb)%sf(j, k, l)**2_wp + &
+                                            2_wp*qK_prim_vf(strxb+1)%sf(j, k, l)**2_wp + qK_prim_vf(strxb+2)%sf(j, k, l)**2_wp + &
+                                            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 + &
+                                            qK_prim_vf(strxe)%sf(j, k, l)**2_wp) )
                     end if
 #endif
 

src/pre_process/m_patches.fpp

@@ -1444,7 +1444,6 @@ contains
         ! smoothed out, the pseudo volume fraction is set to 1 to make sure
         ! that only the current patch contributes to the fluid state in the
         ! cells that this patch covers.
-        eps = 1.d-32
         eta = 1._wp
         eps = 1.e-32_wp