From a46841dc05d094c8e774f1274165e249c1b0bcf8 Mon Sep 17 00:00:00 2001 From: drnimbusrain Date: Tue, 7 May 2024 20:59:50 -0400 Subject: [PATCH] Increased max possible number of input canopy files. --- src/Makefile | 4 ++-- src/canopy_files_mod.F90 | 4 +++- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/src/Makefile b/src/Makefile index cc945f5b..57bce4ea 100644 --- a/src/Makefile +++ b/src/Makefile @@ -23,7 +23,7 @@ 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 @@ -31,7 +31,7 @@ else ifeq ($(DEBUG), 1) 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 index d6ab1e0d..953d62d2 100644 --- 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