minor fix, adding registry entries for moisure HALOs and cleanup

openwfm · Feb 24, 2012 · fa7d4b9 · fa7d4b9
1 parent 7510876
commit fa7d4b9
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/wrfv2_fire/Registry/registry.fire b/wrfv2_fire/Registry/registry.fire
@@ -58,7 +58,6 @@ state    real     t2_old    ij       fire        1         z     hr   "T2_OLD" "
 state    real     q2_old    ij       fire        1         z     hr   "Q2_OLD" "previous value of accumulated rain" "mm"
 state    real     psfc_old  ij       fire        1         z     hr   "PSFC_OLD" "previous value of accumulated rain" "mm"
 rconfig  integer  fuel_moisture_steps  namelist,fire  max_domains 0    -      "fuel_moisture_steps" "0=moisture model off, >0 run moisture model every x timesteps"
-i1    real        ffmc_gc  *i*j      fire        1         -    
 
 # diagnostics
 # for the actual modeled fire
@@ -241,6 +240,8 @@ halo      HALO_FIRE_LONGLAT dyn_em 24:xlong,xlat
 halo      HALO_FIRE_WIND_A dyn_em 8:u_2,v_2
 halo      HALO_FIRE_ZSF dyn_em 24:zsf
 halo      HALO_FIRE_FUEL dyn_em 8:fuel_frac,fuel_time,bbb,phiwc,phisc,r_0,fgip,ischap,nfuel_cat,dzdxf,dzdyf,fz0,fwh
+halo	  HALO_FIRE_MOISTURE_FIREGRID dyn_em 8:fmc_g
+halo	  HALO_FIRE_MOISTURE_ATMGRID dyn_em 8:fmc_gc
 #
 # ----------------------------------------
 #  end fire variables and configuration

diff --git a/wrfv2_fire/phys/module_fr_sfire_phys.F b/wrfv2_fire/phys/module_fr_sfire_phys.F
@@ -258,7 +258,7 @@ subroutine fuel_moisture(                &
     ! interpolate moisture contents in the class k to the fire mesh
     call interpolate_z2fire(id,          & ! for debug output, <= 0 no output
     ids,ide,jds,jde,                     & ! atm grid dimensions
-    its-1,ite+1,jms-1,jme+1,             &
+    its-1,ite+1,jts-1,jte+1,             & ! memory dimensions
     ips,ipe,jps,jpe,                     &
     its,ite,jts,jte,                     &
     ifds, ifde, jfds, jfde,              & ! fire grid dimensions