Ran formatter

Author: prathi-wind

src/common/m_phase_change.fpp

@@ -162,18 +162,18 @@ contains
                             ! depleting the mass of liquid
                             q_cons_vf(lp + contxb - 1)%sf(j, k, l) = mixM*rM
 
-                        ! transferring the total mass to vapor
-                        q_cons_vf(vp + contxb - 1)%sf(j, k, l) = (1.0_wp - mixM)*rM
+                            ! transferring the total mass to vapor
+                            q_cons_vf(vp + contxb - 1)%sf(j, k, l) = (1.0_wp - mixM)*rM
 
                             ! calling pT-equilibrium for overheated vapor, which is MFL = 0
                             call s_infinite_pt_relaxation_k(j, k, l, 0, pSOV, p_infOV, q_cons_vf, rhoe, TSOV)
 
                             ! calculating Saturation temperature
                             call s_TSat(pSOV, TSatOV, TSOV)
 
-                        ! subcooled liquid case
-                        ! transferring the total mass to liquid
-                        q_cons_vf(lp + contxb - 1)%sf(j, k, l) = (1.0_wp - mixM)*rM
+                            ! subcooled liquid case
+                            ! transferring the total mass to liquid
+                            q_cons_vf(lp + contxb - 1)%sf(j, k, l) = (1.0_wp - mixM)*rM
 
                             ! depleting the mass of vapor
                             q_cons_vf(vp + contxb - 1)%sf(j, k, l) = mixM*rM

src/simulation/m_ibm.fpp

@@ -250,24 +250,24 @@ contains
                         end if
                     end if
 
-            ! Calculate velocity of ghost cell
-            if (gp%slip) then
-                norm(1:3) = levelset_norm%sf(gp%loc(1), gp%loc(2), gp%loc(3), gp%ib_patch_id, 1:3)
-                buf = sqrt(sum(norm**2))
-                norm = norm/buf
-                vel_norm_IP = sum(vel_IP*norm)*norm
-                vel_g = vel_IP - vel_norm_IP
-            else
-                if (patch_ib(patch_id)%moving_ibm == 0) then
-                    ! we know the object is not moving if moving_ibm is 0 (false)
-                    vel_g = 0._wp
-                else
-                    do q = 1, 3
-                        ! if mibm is 1 or 2, then the boundary may be moving
-                        vel_g(q) = patch_ib(patch_id)%vel(q)
-                    end do
-                end if
-            end if
+                    ! Calculate velocity of ghost cell
+                    if (gp%slip) then
+                        norm(1:3) = levelset_norm%sf(gp%loc(1), gp%loc(2), gp%loc(3), gp%ib_patch_id, 1:3)
+                        buf = sqrt(sum(norm**2))
+                        norm = norm/buf
+                        vel_norm_IP = sum(vel_IP*norm)*norm
+                        vel_g = vel_IP - vel_norm_IP
+                    else
+                        if (patch_ib(patch_id)%moving_ibm == 0) then
+                            ! we know the object is not moving if moving_ibm is 0 (false)
+                            vel_g = 0._wp
+                        else
+                            do q = 1, 3
+                                ! if mibm is 1 or 2, then the boundary may be moving
+                                vel_g(q) = patch_ib(patch_id)%vel(q)
+                            end do
+                        end if
+                    end if
 
                     ! Set momentum
                     $:GPU_LOOP(parallelism='[seq]')