Replace comment explaining allow_scm with the correct one

slevis-lmwg · Jan 24, 2025 · 6cf536b · 6cf536b
1 parent d013bf7
commit 6cf536b
Showing 1 changed file with 1 addition and 1 deletion.
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., use the 'glob' form of ncd_io
+      logical            , intent(in)    :: allow_scm ! if .true., allow scm data slice
 
       ! local
       character(16)                      :: readflag