cleanup

Author: sbryngelson

.github/workflows/lint-source.yml

@@ -34,15 +34,6 @@ jobs:
     - name: Ensure kind is specified
       run:  fortitude check --file-extensions=f90,fpp,fypp --select=P001 ./src/**
 
-  double-check:
-    name: Look for double intrinsics
-    runs-on: 'ubuntu-latest'
-
-    steps:
-    - uses: actions/checkout@v4
-
-    - name: Check for doubles via grep
+    - name: No double precision intrinsics
       run: |
-        cd src |
-        grep -iR 'dexp\|dlog\|dble\|dabs\|double\ precision\|real(8)\|real(4)\|dprod\|dmin\|dmax\|dfloat\|dreal\|dcos\|dsin\|dtan\|dsign\|dtanh\|dsinh\|dcosh\|\.d0\|\dd0' --exclude-dir=syscheck ./* || true |
-        grep -qiR 'dexp\|dlog\|dble\|dabs\|double\ precision\|real(8)\|real(4)\|dprod\|dmin\|dmax\|dfloat\|dreal\|dcos\|dsin\|dtan\|dsign\|dtanh\|dsinh\|dcosh\|\.d0\|\dd0' --exclude-dir=syscheck ./* 
+        ! grep -iR 'dexp\|dlog\|dble\|dabs\|double\ precision\|real(8)\|real(4)\|dprod\|dmin\|dmax\|dfloat\|dreal\|dcos\|dsin\|dtan\|dsign\|dtanh\|dsinh\|dcosh\|\.d0\|\dd0' --exclude-dir=syscheck ./src/*

src/common/m_helper.fpp

@@ -69,9 +69,6 @@ contains
 
         nR3 = dot_product(weights, nRtmp**3._wp)
         ntmp = sqrt((4._wp*pi/3._wp)*nR3/vftmp)
-        !ntmp = (3._wp/(4._wp*pi))*0.00001
-
-        !print *, "nbub", ntmp
 
     end subroutine s_comp_n_from_cons
 
@@ -82,15 +79,15 @@ contains
 
         integer :: i, j
         integer :: m, n
-        real :: c
+        real(wp) :: c
 
         m = size(A, 1)
         n = size(A, 2)
 
         if (present(div)) then
             c = div
         else
-            c = 1
+            c = 1._wp
         end if
 
         print *, m, n

src/simulation/m_mpi_proxy.fpp

@@ -74,10 +74,6 @@ module m_mpi_proxy
     !> @}
     !$acc declare create(v_size)
 
-    !real :: s_time, e_time
-    !real :: compress_time, mpi_time, decompress_time
-    !integer :: nCalls_time = 0
-
     integer :: nVars !< nVars for surface tension communication
     !$acc declare create(nVars)