undo

NOAA-GFDL · Nov 7, 2024 · 993a0be · 993a0be
1 parent 16f7ead
commit 993a0be
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test_fms/diag_integral/test_diag_integral.F90 b/test_fms/diag_integral/test_diag_integral.F90
@@ -194,7 +194,7 @@ end subroutine test_sum_diag_integral_field
   subroutine read_diag_integral_file
 
     character(*), parameter :: di_file='diag_integral.out'
-    integer, parameter  :: iunit
+    integer :: iunit
 
     character(100) :: cline1, cline2, cline3, cline4, cline5, clin6