From 8b3acf710816d8e10a0d74e547c558483e8e062d Mon Sep 17 00:00:00 2001 From: Jan Mandel Date: Tue, 5 Feb 2019 16:25:38 -0700 Subject: [PATCH] fix memory dimensions in call print_2d_stats on fmc_f --- phys/module_fr_fire_phys.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/phys/module_fr_fire_phys.F b/phys/module_fr_fire_phys.F index d8f0811402..d7772c720c 100644 --- a/phys/module_fr_fire_phys.F +++ b/phys/module_fr_fire_phys.F @@ -271,7 +271,7 @@ subroutine fuel_moisture( & fmc_k, & ! atm grid arrays in fmc_f,0) ! fire grid arrays out - call print_2d_stats(ifts,ifte,jfts,jfte,ifts,ifte,jfts,jfte,fmc_f,'fuel_moisture: fmc_f') + call print_2d_stats(ifts,ifte,jfts,jfte,ifts-1,ifte+1,jfts-1,jfte+1,fmc_f,'fuel_moisture: fmc_f') ! add moisture contents for class k to the fuel moisture do j=jfts,jfte