Increase the length of varlist to hold more variables for recentering (…

…#54) * Increase the length of varlist to hold more variables for recentering * just use 500 for the varlist length
NOAA-GSL · Nov 30, 2023 · ca6b673 · ca6b673
1 parent fb121e8
commit ca6b673
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/ens_mean_recenter/ens_mean_recenter.f90 b/ens_mean_recenter/ens_mean_recenter.f90
@@ -47,7 +47,7 @@ PROGRAM ens_mean_recenter
   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=500)  :: 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