undo

NOAA-GFDL · Nov 7, 2024 · 16f7ead · 16f7ead
1 parent a74f50c
commit 16f7ead
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/test_fms/diag_integral/test_diag_integral.F90 b/test_fms/diag_integral/test_diag_integral.F90
@@ -194,12 +194,12 @@ end subroutine test_sum_diag_integral_field
   subroutine read_diag_integral_file
 
     character(*), parameter :: di_file='diag_integral.out'
-    integer, parameter  :: iunit=100
+    integer, parameter  :: iunit
 
     character(100) :: cline1, cline2, cline3, cline4, cline5, clin6
 
     !> read in computed values
-    open(newunit=iunit,file=di_file)
+    open(newunit=iunit, file=di_file)
     read(iunit,*) cline1, cline2, cline3, cline4, cline5, clin6
     read(iunit,*) itime, field_avg2, field_avg3, field_avgw, field_avgh
     close(iunit)