Clean up to address review comments

Author: abishekg7

src/core_atmosphere/dynamics/mpas_atm_time_integration.F

@@ -6386,7 +6386,6 @@ subroutine atm_rk_dynamics_substep_finish( state, diag, nVertLevels, dynamics_su
          !$acc end parallel
       end if
 
-
       if (dynamics_substep == 1) then
          !$acc parallel
          !$acc loop gang worker
@@ -6441,10 +6440,10 @@ subroutine atm_rk_dynamics_substep_finish( state, diag, nVertLevels, dynamics_su
          end do
          !$acc loop gang worker
          do iCell = cellStart,cellEnd
-         !$acc loop vector
-         do k = 1,nVertLevels           
-            rho_zz_1(k,iCell) = rho_zz_old_split(k,iCell)
-         end do
+            !$acc loop vector
+            do k = 1,nVertLevels           
+               rho_zz_1(k,iCell) = rho_zz_old_split(k,iCell)
+            end do
          end do
          !$acc end parallel
       end if