From 901a5d2fd8975d7e9c3829a42b3fc5e12b9b1e18 Mon Sep 17 00:00:00 2001
From: Ben Wilfong <48168887+wilfonba@users.noreply.github.com>
Date: Fri, 7 Mar 2025 12:35:59 -0500
Subject: [PATCH] fix lint and spelling

---
 .fortitude.toml                          | 2 +-
 examples/1D_inert_shocktube/README.md    | 2 +-
 examples/1D_reactive_shocktube/README.md | 2 +-
 misc/acc_devices.f90                     | 2 +-
 src/common/m_nvtx.f90                    | 8 ++++----
 src/pre_process/m_perturbation.fpp       | 2 +-
 src/simulation/m_cbc.fpp                 | 2 +-
 7 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/.fortitude.toml b/.fortitude.toml
index 0d3dbcc7b..943d4f3cf 100644
--- a/.fortitude.toml
+++ b/.fortitude.toml
@@ -1,5 +1,5 @@
 [check]
 # Ignored Rules and justification:
-ignore = ["E001","S001","S101","M011","F001","S041","T001","S101","S102","T002","T011","T042","M001"]
+ignore = ["E001","S001","S101","C121","S091","MOD011","C001","S101","S102","C002","PORT011","C072","C003","C131","C141","C092"]
 file-extensions = ["f90","fpp","fypp"]
 output-format = "pylint"
diff --git a/examples/1D_inert_shocktube/README.md b/examples/1D_inert_shocktube/README.md
index 0ad895304..a0c4e5cfe 100644
--- a/examples/1D_inert_shocktube/README.md
+++ b/examples/1D_inert_shocktube/README.md
@@ -1,7 +1,7 @@
 # 1D Multi-Component Inert Shock Tube
 
 Reference: 
-> P. J. Martínez Ferrer, R. Buttay, G. Lehnasch, and A. Mura, “A detailed verification procedure for compressible reactive multicomponent Navier–Stokes solvers”, Comput. & Fluids, vol. 89, pp. 88–110, Jan. 2014. Accessed: Oct. 13, 2024. [Online]. Available: https://doi.org/10.1016/j.compfluid.2013.10.014
+> P. J. Martínez Ferrer, R. Buttay, G. Lehnasch, and A. Mura, “A detailed verification procedure for compressible reactive multicomponent Navier–Stokes solvers”, Computers & Fluids, vol. 89, pp. 88–110, Jan. 2014. Accessed: Oct. 13, 2024. [Online]. Available: https://doi.org/10.1016/j.compfluid.2013.10.014
 
 ## Initial Condition
 
diff --git a/examples/1D_reactive_shocktube/README.md b/examples/1D_reactive_shocktube/README.md
index fce3dadab..6b43d1451 100644
--- a/examples/1D_reactive_shocktube/README.md
+++ b/examples/1D_reactive_shocktube/README.md
@@ -1,7 +1,7 @@
 # 1D Multi-Component Reactive Shock Tube
 
 References:
-> P. J. Martínez Ferrer, R. Buttay, G. Lehnasch, and A. Mura, “A detailed verification procedure for compressible reactive multicomponent Navier–Stokes solvers”, Comput. & Fluids, vol. 89, pp. 88–110, Jan. 2014. Accessed: Oct. 13, 2024. [Online]. Available: https://doi.org/10.1016/j.compfluid.2013.10.014
+> P. J. Martínez Ferrer, R. Buttay, G. Lehnasch, and A. Mura, “A detailed verification procedure for compressible reactive multicomponent Navier–Stokes solvers”, Computers & Fluids, vol. 89, pp. 88–110, Jan. 2014. Accessed: Oct. 13, 2024. [Online]. Available: https://doi.org/10.1016/j.compfluid.2013.10.014
 
 > H. Chen, C. Si, Y. Wu, H. Hu, and Y. Zhu, “Numerical investigation of the effect of equivalence ratio on the propagation characteristics and performance of rotating detonation engine”, Int. J. Hydrogen Energy, Mar. 2023. Accessed: Oct. 13, 2024. [Online]. Available: https://doi.org/10.1016/j.ijhydene.2023.03.190
 
diff --git a/misc/acc_devices.f90 b/misc/acc_devices.f90
index be516adc2..709232d72 100644
--- a/misc/acc_devices.f90
+++ b/misc/acc_devices.f90
@@ -23,4 +23,4 @@ program main
         print '(" - "I3" : "A" | "F0.2" GB | "A"")', i, devvendor, devmem, devname
     end do
 
-end program
+end program main
diff --git a/src/common/m_nvtx.f90 b/src/common/m_nvtx.f90
index e2a493a49..ce3273751 100644
--- a/src/common/m_nvtx.f90
+++ b/src/common/m_nvtx.f90
@@ -32,7 +32,7 @@ module m_nvtx
         subroutine nvtxRangePushA(name) bind(C, name='nvtxRangePushA')
             use iso_c_binding
 
-            character(kind=c_char, len=*) :: name
+            character(kind=c_char, len=*), intent(IN) :: name
         end subroutine nvtxRangePushA
 
         ! push range with custom label and custom color
@@ -40,7 +40,7 @@ subroutine nvtxRangePushEx(event) bind(C, name='nvtxRangePushEx')
             use iso_c_binding
 
             import :: nvtxEventAttributes
-            type(nvtxEventAttributes) :: event
+            type(nvtxEventAttributes), intent(IN) :: event
         end subroutine nvtxRangePushEx
     end interface nvtxRangePush
 
@@ -54,8 +54,8 @@ end subroutine nvtxRangePop
 contains
 
     subroutine nvtxStartRange(name, id)
-        character(kind=c_char, len=*) :: name
-        integer, optional :: id
+        character(kind=c_char, len=*), intent(IN) :: name
+        integer, intent(IN), optional :: id
         type(nvtxEventAttributes) :: event
 
 #if defined(MFC_OpenACC) && defined(__PGI)
diff --git a/src/pre_process/m_perturbation.fpp b/src/pre_process/m_perturbation.fpp
index 7b0c01592..4381e6e2c 100644
--- a/src/pre_process/m_perturbation.fpp
+++ b/src/pre_process/m_perturbation.fpp
@@ -618,7 +618,7 @@ contains
 
     subroutine s_elliptic_smoothing(q_prim_vf)
 
-        type(scalar_field), dimension(sys_size) :: q_prim_vf
+        type(scalar_field), dimension(sys_size), intent(INOUT) :: q_prim_vf
         integer :: i, j, k, l, q
 
         do q = 1, elliptic_smoothing_iters
diff --git a/src/simulation/m_cbc.fpp b/src/simulation/m_cbc.fpp
index 278e4c055..8ab1a97eb 100644
--- a/src/simulation/m_cbc.fpp
+++ b/src/simulation/m_cbc.fpp
@@ -1500,7 +1500,7 @@ contains
             end if
         #:endfor
 
-    end subroutine
+    end subroutine s_any_cbc_boundaries
 
     !> Module deallocation and/or disassociation procedures
     subroutine s_finalize_cbc_module