just use 500 for the varlist length

NOAA-GSL · Nov 30, 2023 · 9903a7a · 9903a7a
1 parent d5e00e6
commit 9903a7a
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/ens_mean_recenter/ens_mean_recenter.f90 b/ens_mean_recenter/ens_mean_recenter.f90
@@ -43,12 +43,11 @@ PROGRAM ens_mean_recenter
 ! namelist
   integer, parameter    :: max_num_file = 10
   integer, parameter    :: filename_len=200
-  integer, parameter    :: varlist_len=500
   integer :: fv3_io_layout_y
   character(len=filename_len)  :: filebase
   character(len=filename_len)  :: filetail(max_num_file)
   integer                      :: numvar(max_num_file)
-  character(len=varlist_len)  :: varlist(max_num_file)
+  character(len=500)  :: varlist(max_num_file)
   integer    :: ens_size
   logical    :: l_write_mean             ! if write ensmeble mean
   logical    :: l_recenter               ! if recenter