Improve allow_scm comment further

slevis-lmwg · Jan 24, 2025 · af8cd54 · af8cd54
1 parent 6cf536b
commit af8cd54
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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