resolved several comments

MFlowCode · Dec 21, 2024 · 87430b6 · 87430b6
1 parent ab772fd
commit 87430b6
Show file tree

Hide file tree

Showing 6 changed files with 4 additions and 8 deletions.
diff --git a/src/common/m_derived_types.fpp b/src/common/m_derived_types.fpp
@@ -178,8 +178,6 @@ module m_derived_types
 
         logical :: non_axis_sym
 
-        logical :: non_axis_sym
-
         real(wp) :: a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12 !<
         !! The parameters needed for the spherical harmonic patch
 

diff --git a/src/pre_process/include/3dHardcodedIC.fpp b/src/pre_process/include/3dHardcodedIC.fpp
@@ -109,7 +109,6 @@
         xi_cart(1) = xi_cart(1) + x_bcen
         xi_cart(2) = xi_cart(2) + y_bcen
         xi_cart(3) = xi_cart(3) + z_bcen
-!        print *, 'xi_cart(1) ::', xi_cart(1), 'xi_cart(2) ::', xi_cart(2), 'xi_cart(3) ::', xi_cart(3)
         ! assigning the reference map to the q_prim vector field
         do l = 1, 3
             q_prim_vf(l + xibeg - 1)%sf(i, j, k) = xi_cart(l)

diff --git a/src/pre_process/m_patches.fpp b/src/pre_process/m_patches.fpp
@@ -792,7 +792,7 @@ contains
                                      ((y_cc(j) - y_centroid)/b)**2) &
                                 - 1._wp))*(-0.5_wp) + 0.5_wp
                 end if
-                print *, "a :", a, "b :", b
+
                 if ((((x_cc(i) - x_centroid)/a)**2 + &
                      ((y_cc(j) - y_centroid)/b)**2 <= 1._wp &
                      .and. &
@@ -2245,7 +2245,7 @@ contains
 
     end subroutine s_convert_cylindrical_to_spherical_coord
 
-    !> Archimedes spiral function :: theta_cc, r, x_p, P2, P3, P4, P5, P6, P7
+    !> Archimedes spiral function
     !! @param myth Angle
     !! @param offset Thickness
     !! @param a Starting position

diff --git a/src/simulation/m_derived_variables.f90 b/src/simulation/m_derived_variables.f90
@@ -156,7 +156,6 @@ subroutine s_compute_derived_variables(t_step)
                     end do
                 end do
             end do
-            call s_derive_center_of_mass(q_prim_ts(3)%vf, c_mass)
 
             call s_derive_center_of_mass(q_prim_ts(3)%vf, c_mass)
 

diff --git a/src/simulation/m_rhs.fpp b/src/simulation/m_rhs.fpp
@@ -790,7 +790,7 @@ contains
             ! ===============================================================
 
             ! Computing Riemann Solver Flux and Source Flux =================
-            call nvtxStartRange("RHS_riemann_solver")
+            call nvtxStartRange("RHS-RIEMANN-SOLVER")
             call s_riemann_solver(qR_rsx_vf, qR_rsy_vf, qR_rsz_vf, &
                                   dqR_prim_dx_n(id)%vf, &
                                   dqR_prim_dy_n(id)%vf, &

diff --git a/toolchain/templates/delta.mako b/toolchain/templates/delta.mako
@@ -5,7 +5,7 @@
 % if engine == 'batch':
 #SBATCH --nodes=${nodes}
 #SBATCH --ntasks-per-node=${tasks_per_node}
-#SBATCH --cpus-per-task=16
+#SBATCH --cpus-per-task=1
 #SBATCH --job-name="${name}"
 #SBATCH --time=${walltime}
 % if partition:
-Original file line number
+Diff line change
@@ Expand Up / @@ -156,7 +156,6 @@ subroutine s_compute_derived_variables(t_step) @@
                         end do
                     end do
                 end do
-                call s_derive_center_of_mass(q_prim_ts(3)%vf, c_mass)
                 call s_derive_center_of_mass(q_prim_ts(3)%vf, c_mass)
@@ Expand Down @@