From 9664239cf0ade3490d23c8d4e831cd6aa325c0d5 Mon Sep 17 00:00:00 2001 From: Matthew Harrison Date: Wed, 29 Dec 2021 14:58:05 -0500 Subject: [PATCH 1/2] set default scale factor to 1 --- src/framework/MOM_horizontal_regridding.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/framework/MOM_horizontal_regridding.F90 b/src/framework/MOM_horizontal_regridding.F90 index ecc86ea397..de511688a9 100644 --- a/src/framework/MOM_horizontal_regridding.F90 +++ b/src/framework/MOM_horizontal_regridding.F90 @@ -394,7 +394,7 @@ subroutine horiz_interp_and_extrap_tracer_record(filename, varnam, conversion, call read_attribute(trim(filename), "scale_factor", scale_factor, & varname=trim(varnam), found=found_attr) - if (.not. found_attr) scale_factor = 0. + if (.not. found_attr) scale_factor = 1. call read_attribute(trim(filename), "add_offset", add_offset, & varname=trim(varnam), found=found_attr) From c8e5a35dc251e21accb0ccfafeb2cc8f00e9bd51 Mon Sep 17 00:00:00 2001 From: Matthew Harrison Date: Mon, 3 Jan 2022 21:50:28 -0500 Subject: [PATCH 2/2] add missing start/count arguments --- src/framework/MOM_io.F90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/framework/MOM_io.F90 b/src/framework/MOM_io.F90 index 1fdb535d4d..f4c30e0237 100644 --- a/src/framework/MOM_io.F90 +++ b/src/framework/MOM_io.F90 @@ -928,8 +928,7 @@ subroutine read_variable_2d(filename, varname, var, start, nread, ncid_in) " Difficulties reading "//trim(varname)//" from "//trim(filename)) ! NOTE: We could check additional information here (type, size, ...) - - rc = nf90_get_var(ncid, varid, var) + rc = nf90_get_var(ncid, varid, var, start, nread) if (rc /= NF90_NOERR) call MOM_error(FATAL, hdr // trim(nf90_strerror(rc)) //& " Difficulties reading "//trim(varname)//" from "//trim(filename))