Rename gradient -> gradient_p2v.

xcompact3d · Feb 19, 2024 · e5e6cfa · e5e6cfa
1 parent a4726d8
commit e5e6cfa
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/solver.f90 b/src/solver.f90
@@ -45,7 +45,7 @@ module m_solver
    contains
       procedure :: transeq
       procedure :: divergence_v2p
-      procedure :: gradient
+      procedure :: gradient_p2v
       procedure :: run
    end type solver_t
 
@@ -310,7 +310,7 @@ subroutine divergence_v2p(self, div_u, u, v, w)
 
    end subroutine divergence_v2p
 
-   subroutine gradient(self, dpdx, dpdy, dpdz, pressure)
+   subroutine gradient_p2v(self, dpdx, dpdy, dpdz, pressure)
       implicit none
 
       class(solver_t) :: self
@@ -387,7 +387,7 @@ subroutine gradient(self, dpdx, dpdy, dpdz, pressure)
       call self%backend%allocator%release_block(dpdy_sx_x)
       call self%backend%allocator%release_block(dpdz_sx_x)
 
-   end subroutine gradient
+   end subroutine gradient_p2v
 
    subroutine run(self, n_iter, u_out, v_out, w_out)
       implicit none
@@ -432,7 +432,7 @@ subroutine run(self, n_iter, u_out, v_out, w_out)
          dpdy => self%backend%allocator%get_block()
          dpdz => self%backend%allocator%get_block()
 
-         call self%gradient(dpdx, dpdy, dpdz, pressure)
+         call self%gradient_p2v(dpdx, dpdy, dpdz, pressure)
 
          call self%backend%allocator%release_block(pressure)