remove unused import and length variable

NOAA-GFDL · Aug 2, 2024 · 7a66a59 · 7a66a59
1 parent 1049e1d
commit 7a66a59
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 3 deletions.
diff --git a/data_override/include/data_override.inc b/data_override/include/data_override.inc
@@ -48,7 +48,6 @@ use fms2_io_mod,     only : FmsNetcdfFile_t, open_file, close_file, &
                             get_mosaic_tile_file, file_exists
 use get_grid_version_mod, only: get_grid_version_1, get_grid_version_2
 use fms_string_utils_mod, only: string
-use platform_mod
 
 implicit none
 private

diff --git a/mpp/include/mpp_util.inc b/mpp/include/mpp_util.inc
@@ -1348,7 +1348,6 @@ end function rarray_to_char
     integer, dimension(2) :: get_ascii_file_num_lines_and_length !< number of lines (1) and
                                                                  !! max line length (2)
     integer :: num_lines, max_length
-    integer, parameter :: LENGTH=FMS_FILE_LEN
     character(len=FMS_FILE_LEN) :: str_tmp
     character(len=5) :: text
     integer :: status, f_unit, from_pe
@@ -1390,7 +1389,7 @@ end function rarray_to_char
                         ' in file '//trim(FILENAME)//'.')
                 end if
                 if ( len_trim(str_tmp) == FMS_FILE_LEN ) then
-                   write(UNIT=text, FMT='(I5)') length
+                   write(UNIT=text, FMT='(I5)') FMS_FILE_LEN
                    call mpp_error(FATAL, 'get_ascii_file_num_lines: Length of output string ('//trim(text)//&
                                        & ' is too small. Increase the FMS_MAX_FILE_LEN cpp value.')
                 end if