From 5f8d812d6632d4d879b05e4435a249d5866321bc Mon Sep 17 00:00:00 2001 From: Samuel Levis Date: Fri, 24 Jan 2025 15:29:10 -0700 Subject: [PATCH] Add comment explaining the read_noscm flag --- src/init_interp/initInterp.F90 | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/init_interp/initInterp.F90 b/src/init_interp/initInterp.F90 index fb09e5b379..468c3207cd 100644 --- a/src/init_interp/initInterp.F90 +++ b/src/init_interp/initInterp.F90 @@ -959,6 +959,10 @@ subroutine read_var_double(ncid, varname, data, dim1name, use_glob, allow_scm) if (allow_scm) then readflag='read' else + ! Flag to distinguish the times during IC interpolation when running in single column mode but + ! need to read the full data grid. Normally single_column means + ! "read the data grid and extract the closest column" but + ! during IC interpolation you need to read in the full grid to be interpolated regardless of the single_column flag. readflag='read_noscm' endif @@ -985,6 +989,10 @@ subroutine read_var_int(ncid, varname, data, dim1name, use_glob, allow_scm) if (allow_scm) then readflag='read' else + ! Flag to distinguish the times during IC interpolation when running in single column mode but + ! need to read the full data grid. Normally single_column means + ! "read the data grid and extract the closest column" but + ! during IC interpolation you need to read in the full grid to be interpolated regardless of the single_column flag. readflag='read_noscm' endif