Clean up some fortls issues

I think it was fortls giving some lint-like warnings...

Author: mnlevy1981

.gitignore

@@ -32,6 +32,7 @@ swm_c/shallow_swap.acc
 swm_c/shallow_swap.acc.Tile
 swm_fortran/swm_fortran
 swm_fortran/swm_fortran_driver
+swm_fortran/swm_fortran_amrex_driver
 
 # Output
 *.out

swm_fortran/Makefile

@@ -15,7 +15,7 @@ endif
 LDLIBS = -lm
 
 # Default target
-all: swm_fortran
+all: swm_fortran swm_fortran_driver
 
 swm_fortran: swm_fortran.F90
 	$(FC) $(FFLAGS) -o $@ swm_fortran.F90

swm_fortran/swm_fortran.F90

@@ -309,23 +309,23 @@ Program SWM_Fortran
 contains
 
   ! This is a copy, not a pointer shuffle
-  subroutine dswap(a, b)
+  subroutine dswap(swp1, swp2)
 
-    real, dimension(:,:), pointer :: a, b
+    real, dimension(:,:), pointer :: swp1, swp2
 
-    real, dimension(:,:), pointer :: c
+    real, dimension(:,:), pointer :: swp_tmp
 
-    c => a
-    a => b
-    b => c
+    swp_tmp => swp1
+    swp1 => swp2
+    swp2 => swp_tmp
 
   end subroutine dswap
 
   subroutine write_to_file(array, filename)
     real, dimension(M_LEN,N_LEN), intent(in) :: array
     character(len=*),             intent(in) :: filename
 
-    integer :: i, j, id
+    integer :: id
 
     open(newunit=id, access='stream', status='replace', file=filename)
     ! Write this out in C ordering of array

swm_fortran/swm_fortran_amrex_driver.F90

@@ -300,23 +300,23 @@ Program SWM_Fortran_Driver
 contains
 
   ! This is a copy, not a pointer shuffle
-  subroutine dswap(a, b)
+  subroutine dswap(swp1, swp2)
 
-    real, dimension(:,:,:), pointer :: a, b
+    real, dimension(:,:,:), pointer :: swp1, swp2
 
-    real, dimension(:,:,:), pointer :: c
+    real, dimension(:,:,:), pointer :: swp_tmp
 
-    c => a
-    a => b
-    b => c
+    swp_tmp => swp1
+    swp1 => swp2
+    swp2 => swp_tmp
 
   end subroutine dswap
 
   subroutine write_to_file(array, filename)
     real, dimension(M_LEN,N_LEN,1), intent(in) :: array
     character(len=*),               intent(in) :: filename
 
-    integer :: i, j, id
+    integer :: id
 
     open(newunit=id, access='stream', status='replace', file=filename)
     ! Write this out in C ordering of array

swm_fortran/swm_fortran_driver.F90

@@ -288,23 +288,23 @@ Program SWM_Fortran_Driver
 contains
 
   ! This is a copy, not a pointer shuffle
-  subroutine dswap(a, b)
+  subroutine dswap(swp1, swp2)
 
-    real, dimension(:,:), pointer :: a, b
+    real, dimension(:,:), pointer :: swp1, swp2
 
-    real, dimension(:,:), pointer :: c
+    real, dimension(:,:), pointer :: swp_tmp
 
-    c => a
-    a => b
-    b => c
+    swp_tmp => swp1
+    swp1 => swp2
+    swp2 => swp_tmp
 
   end subroutine dswap
 
   subroutine write_to_file(array, filename)
     real, dimension(M_LEN,N_LEN), intent(in) :: array
     character(len=*),             intent(in) :: filename
 
-    integer :: i, j, id
+    integer :: id
 
     open(newunit=id, access='stream', status='replace', file=filename)
     ! Write this out in C ordering of array