From 16f7ead65b8d827212c6760f2747a8deab6078b1 Mon Sep 17 00:00:00 2001 From: Andrew Brooks Date: Thu, 7 Nov 2024 10:51:37 -0500 Subject: [PATCH] undo --- test_fms/diag_integral/test_diag_integral.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test_fms/diag_integral/test_diag_integral.F90 b/test_fms/diag_integral/test_diag_integral.F90 index fc30bb821..51ccbbb56 100644 --- 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)