From af8cd5470d792e05c9e82b40caddcfd52a13ba26 Mon Sep 17 00:00:00 2001 From: Samuel Levis Date: Fri, 24 Jan 2025 13:55:11 -0700 Subject: [PATCH] Improve `allow_scm` comment further --- src/init_interp/initInterp.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/init_interp/initInterp.F90 b/src/init_interp/initInterp.F90 index 2f12fbc1ca..fb09e5b379 100644 --- a/src/init_interp/initInterp.F90 +++ b/src/init_interp/initInterp.F90 @@ -951,7 +951,7 @@ subroutine read_var_double(ncid, varname, data, dim1name, use_glob, allow_scm) real(r8), pointer , intent(inout) :: data(:) character(len=*) , intent(in) :: dim1name logical , intent(in) :: use_glob ! if .true., use the 'glob' form of ncd_io - logical , intent(in) :: allow_scm ! if .true., allow scm data slice + logical , intent(in) :: allow_scm ! if .true., allow single column model subset of data ! local character(16) :: readflag @@ -977,7 +977,7 @@ subroutine read_var_int(ncid, varname, data, dim1name, use_glob, allow_scm) integer, pointer , intent(inout) :: data(:) character(len=*) , intent(in) :: dim1name logical , intent(in) :: use_glob ! if .true., use the 'glob' form of ncd_io - logical , intent(in) :: allow_scm ! if .true., allow scm data slice + logical , intent(in) :: allow_scm ! if .true., allow single column model subset of data ! local character(16) :: readflag