Increased max possible number of input canopy files.

noaa-oar-arl · May 8, 2024 · a46841d · a46841d
1 parent 261a528
commit a46841d
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/src/Makefile b/src/Makefile
@@ -23,15 +23,15 @@ ifeq ($(DEBUG), 0)
 else ifeq ($(DEBUG), 1)
   ifeq ($(findstring gfortran,$(notdir $(FC))),gfortran)
     FCFLAGS := -g -Og -Wall -Wextra -Wconversion -pedantic \
-      -fcheck=bounds -fall-intrinsics -fmax-errors=5 \
+      -frecursive -fcheck=bounds -fall-intrinsics -fmax-errors=5 \
       -std=f2003
   else ifeq ($(FC),ifort)
     FCFLAGS := -g -O0 -warn all -check bounds -implicitnone -error-limit 5
   endif
 else ifeq ($(DEBUG), 2)
   ifeq ($(findstring gfortran,$(notdir $(FC))),gfortran)
     FCFLAGS := -g -Og -Wall -Wextra -Wconversion -pedantic \
-      -fcheck=all -fall-intrinsics -fmax-errors=0 \
+      -frecursive -fcheck=all -fall-intrinsics -fmax-errors=0 \
       -fbacktrace -ffpe-trap=invalid,zero,overflow -finit-real=snan -finit-integer=-99999999 \
       -std=f2003
   else ifeq ($(FC),ifort)

diff --git a/src/canopy_files_mod.F90 b/src/canopy_files_mod.F90
@@ -10,11 +10,13 @@ MODULE canopy_files_mod
     IMPLICIT NONE
 
     INTEGER                       :: cdfid_m
-    INTEGER,            PARAMETER :: max_mm       = 250
+    INTEGER,            PARAMETER :: max_mm       = 10000
     INTEGER,            PARAMETER :: iutnml       =  8
+
     CHARACTER(LEN=256)            :: file_vars    ( max_mm )
     CHARACTER(LEN=256)            :: file_canvars ( max_mm )
     CHARACTER(LEN=256)            :: file_out     ( 1 )
     CHARACTER(LEN=*), PARAMETER   :: file_nml     = 'input/namelist.canopy'
 
+
 END MODULE canopy_files_mod