From 993a0be57df50c8081c1d92f845bab6455152bd7 Mon Sep 17 00:00:00 2001 From: Andrew Brooks Date: Thu, 7 Nov 2024 10:55:58 -0500 Subject: [PATCH] undo --- test_fms/diag_integral/test_diag_integral.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test_fms/diag_integral/test_diag_integral.F90 b/test_fms/diag_integral/test_diag_integral.F90 index 51ccbbb56..2a1b2eecb 100644 --- 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