fix: remove struct-member copyin from GPU loop; fix I2 overflow and uppercase keywords in indices.dat

Author: Spencer Bryngelson

src/pre_process/m_data_output.fpp

@@ -612,7 +612,7 @@ contains
             s_write_data_files => s_write_parallel_data_files
         end if
 
-        open (newunit=iu, FILE='indices.dat', STATUS='unknown')
+        open (newunit=iu, file='indices.dat', status='unknown')
 
         write (iu, '(A)') "Warning: The creation of file is currently experimental."
         write (iu, '(A)') "This file may contain errors and not support all features."
@@ -672,7 +672,7 @@ contains
             integer, intent(in)      :: beg, end
             character(*), intent(in) :: label
 
-            if (beg /= 0) write (iu, '("[",I2,",",I2,"]",A)') beg, end, label
+            if (beg /= 0) write (iu, '("[",I0,",",I0,"]",A)') beg, end, label
 
         end subroutine write_range
 

src/simulation/m_ibm.fpp

@@ -165,7 +165,7 @@ contains
 
         ! set the Moving IBM interior conservative variables
 
-        $:GPU_PARALLEL_LOOP(private='[i, j, k, patch_id, rho]', copyin='[eqn_idx%E, eqn_idx%mom%beg]', collapse=3)
+        $:GPU_PARALLEL_LOOP(private='[i, j, k, patch_id, rho]', collapse=3)
         do l = 0, p
             do k = 0, n
                 do j = 0, m