Increase the length of varlist to hold more variables for recentering

NOAA-GSL · Nov 30, 2023 · d5e00e6 · d5e00e6
1 parent fb121e8
commit d5e00e6
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/ens_mean_recenter/ens_mean_recenter.f90 b/ens_mean_recenter/ens_mean_recenter.f90
@@ -43,11 +43,12 @@ 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=filename_len)  :: varlist(max_num_file)
+  character(len=varlist_len)  :: varlist(max_num_file)
   integer    :: ens_size
   logical    :: l_write_mean             ! if write ensmeble mean
   logical    :: l_recenter               ! if recenter

diff --git a/ens_mean_recenter/module_fv3lam_stats.f90 b/ens_mean_recenter/module_fv3lam_stats.f90
@@ -78,7 +78,7 @@ subroutine init(this,numfiles,filein,numvar,varlist)
     class(ncfile_stat) :: this
 !
     integer :: i,n1,n2
-    character(len=200) :: varlistlocal
+    character(len=500) :: varlistlocal
 !
     this%numfiles=numfiles
     this%numvar=0