fix memory dimensions in call print_2d_stats on fmc_f

openwfm · Feb 5, 2019 · 8b3acf7 · 8b3acf7
1 parent 1fc8879
commit 8b3acf7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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