From c6de9ffa02cb76fdff5a6217e5a5882b2cc0ba8c Mon Sep 17 00:00:00 2001 From: "Benjamin T. Johnson" Date: Mon, 19 Aug 2024 20:12:01 +0000 Subject: [PATCH] removed version optional from SpcCoeff_netcdf_to_binary -- there's no reason to change version number when converting from netcdf to binary --- src/Coefficients/SpcCoeff/SpcCoeff_NC2BIN/SpcCoeff_NC2BIN.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Coefficients/SpcCoeff/SpcCoeff_NC2BIN/SpcCoeff_NC2BIN.f90 b/src/Coefficients/SpcCoeff/SpcCoeff_NC2BIN/SpcCoeff_NC2BIN.f90 index 2fe0b5c..64c3dbe 100644 --- a/src/Coefficients/SpcCoeff/SpcCoeff_NC2BIN/SpcCoeff_NC2BIN.f90 +++ b/src/Coefficients/SpcCoeff/SpcCoeff_NC2BIN/SpcCoeff_NC2BIN.f90 @@ -60,8 +60,8 @@ PROGRAM SpcCoeff_NC2BIN CALL Display_Message( PROGRAM_NAME, msg, FAILURE ); STOP END IF - ! Perform the conversion - err_stat = SpcCoeff_netCDF_to_Binary( nc_filename, bin_filename, Version = version ) + ! Perform the conversion (no change to version) + err_stat = SpcCoeff_netCDF_to_Binary( nc_filename, bin_filename ) IF ( err_stat /= SUCCESS ) THEN msg = 'SpcCoeff netCDF -> Binary conversion failed!' CALL Display_Message( PROGRAM_NAME, msg, FAILURE ); STOP