c˜k820309 919.00\®e  module_fr_fire_phys.f90MODULE_FR_FIRE_PHYS INIT_FUEL_CATSFIRE_ROSHEAT_FLUXESSET_NFUEL_CATSET_FIRE_PARAMSWRITE_FUELS_MFUEL_MOISTUREADVANCE_MOISTUREREAD_NAMELIST_FIREMOISTURE_CLASSESFUELMC_GFIRE_PARAMS  CPXLV#@ #INIT_FUEL_MOISTURE @#@ #ROS_BASE#ROS_WIND#ROS_SLOPE#PROPX #PROPY #I #J #FP D D@ D             @#FIRE_PARAMS#@ #DT#FP#IFMS#IFME#JFMS#JFME#IFTS#IFTE#JFTS#JFTE#IFFS#IFFE#JFFS#JFFE#FGIP#FUEL_FRAC_BURNT#GRNHFT #GRNQFT!   @#FIRE_PARAMS              Y5“pr5“pr5“prp5“pr&5“pr5“pr&5“pr5“pr5“pr5“prp5“pr5“prp  Z5“p r5“p r5“p rp5“p r&5“p r5“p r&5“p r5“pr5“p r5“p rp5“pr5“p rp D  [5“pr5“pr5“prp5“pr&5“pr5“pr&5“pr5“pr5“pr5“prp5“pr5“prp D! \5“pr5“pr5“prp5“pr&5“pr5“pr&5“pr5“pr5“pr5“prp5“pr5“prp#@ " #IFMS##IFME$#JFMS%#JFME&#IFTS'#IFTE(#JFTS)#JFTE*#IFUELREAD+#NFUEL_CAT0,#ZSF-#NFUEL_CAT. # $ % & ' ( ) * + @, - ]5“pr%5“pr$5“pr#p5“pr#&5“pr#5“pr$&5“pr%5“pr&5“pr$5“pr#p5“pr&5“pr%p D. ^5“pr%5“pr$5“pr#p5“pr#&5“pr#5“pr$&5“pr%5“pr&5“pr$5“pr#p5“pr&5“pr%p#@ /#IFDS0#IFDE1#JFDS2#JFDE3#IFMS4#IFME5#JFMS6#JFME7#IFTS8#IFTE9#JFTS:#JFTE;#FDX<#FDY=#NFUEL_CAT0>#NFUEL_CAT?#FUEL_TIME@#FPA 0 1 2 3 4 5 6 7 8 9 : ; <  =  > ? V5“pr65“pr55“pr4p5“pr4&5“pr45“pr5&5“pr65“pr75“pr55“pr4p5“pr75“pr6p D@ W5“pr65“pr55“pr4p5“pr4&5“pr45“pr5&5“pr65“pr75“pr55“pr4p5“pr75“pr6p DA@#FIRE_PARAMS#@ B#NSTEPSC#MAXWINDD#MAXSLOPEE @C D  E #@ F##IDG#NFMCH#IDSI#IDEJ#JDSK#JDEL#IMSM#IMEN#JMSO#JMEP#IPSQ#IPER#JPSS#JPET#ITSU#ITEV#JTSW#JTEX#IFDSY#IFDEZ#JFDS[#JFDE\#IFMS]#IFME^#JFMS_#JFME`#IFTSa#IFTEb#JFTSc#JFTEd#IRe#JRf#NFUEL_CATg#FMC_GCh#FMC_Gi @G H @I @J @K @L @M @N @O @P @Q @R @S @T @U @V @W @X @Y @Z @[ @\ @] @^ @_ @` @a @b @c @d @e @f g 35“pr_5“pr^5“pr]p5“pr]&5“pr]5“pr^&5“pr_5“pr`5“pr^5“pr]p5“pr`5“pr_p h 45“p rO5“prHp5“prN5“prMp5“prM&5“prM5“prN5“prH&5“p rO5“p rP5“prN5“prMp5“prH5“p rP5“p rOp D@i 55“pr_5“pr^5“pr]p5“pr]&5“pr]5“pr^&5“pr_5“pr`5“pr^5“pr]p5“pr`5“pr_p#@ j#INITIALIZEk#IMSl#IMEm#JMSn#JMEo#ITSp#ITEq#JTSr#JTEs#NFMCt#MOISTURE_DTu#FMEP_DECAY_TLAGv#RAINCw#RAINNCx#T2y#Q2z#PSFC{#RAIN_OLD|#T2_OLD}#Q2_OLD~#PSFC_OLD#RH_FIRE€#FMC_GC#FMEP‚#FMC_EQUIƒ#FMC_LAG„ k @l @m @n @o @p @q @r @s @t u  v  w ;5“prn5“prm5“prlp5“prl&5“prl5“prm&5“prn5“pro5“prm5“prlp5“pro5“prnp x <5“prn5“prm5“prlp5“prl&5“prl5“prm&5“prn5“pro5“prm5“prlp5“pro5“prnp @y 85“prn5“prm5“prlp5“prl&5“prl5“prm&5“prn5“pro5“prm5“prlp5“pro5“prnp @z 95“prn5“prm5“prlp5“prl&5“prl5“prm&5“prn5“pro5“prm5“prlp5“pro5“prnp @{ :5“prn5“prm5“prlp5“prl&5“prl5“prm&5“prn5“pro5“prm5“prlp5“pro5“prnp D| @5“prn5“prm5“prlp5“prl&5“prl5“prm&5“prn5“pro5“prm5“prlp5“pro5“prnp D} =5“prn5“prm5“prlp5“prl&5“prl5“prm&5“prn5“pro5“prm5“prlp5“pro5“prnp D~ >5“prn5“prm5“prlp5“prl&5“prl5“prm&5“prn5“pro5“prm5“prlp5“pro5“prnp D ?5“prn5“prm5“prlp5“prl&5“prl5“prm&5“prn5“pro5“prm5“prlp5“pro5“prnp D€ E5“prn5“prm5“prlp5“prl&5“prl5“prm&5“prn5“pro5“prm5“prlp5“pro5“prnp D@ A5“prn5“p rtp5“prm5“prlp5“prl&5“prl5“prm5“p rt&5“prn5“pro5“prm5“prlp5“p rt5“pro5“prnp D‚ B5“prnpp5“prm5“prlp5“prl&5“prl5“prmp&5“prn5“pro5“prm5“prlpp5“pro5“prnp D@ƒ C5“prn5“p rtp5“prm5“prlp5“prl&5“prl5“prm5“p rt&5“prn5“pro5“prm5“prlp5“p rt5“pro5“prnp D@„ D5“prn5“p rtp5“prm5“prlp5“prl&5“prl5“prm5“p rt&5“prn5“pro5“prm5“prlp5“p rt5“pro5“prnp#@ …#INIT_FUEL_MOISTURE† † D@@ ‡ D@@ ˆ @ '@#VX‰#VYŠ#ZSF‹#DZDXFŒ#DZDYF#BBBŽ#BETAFL#PHIWC#R_0‘#FGIP’#ISCHAP“#IBOROS”#FUEL_TIME•#FMC_G–$‰ &&$Š` &&$‹À &&$Œ  &&$€ &&$Žà &&$@ &&$  &&$‘ &&$’` &&$“À &&$”  &&$•€ &&$–à && 4fn#fn)Ô¸buapp(MODULE_FR_FIRE_PHYS$Œ@JMODULE_FR_FIRE_UTIL'ÌGJMODULE_MODEL_CONSTANTS`INIT_FUEL_CATS2s@aINIT_FUEL_CATS%INIT_FUEL_MOISTURE³ŸFIRE_ROS"R@aFIRE_ROS%ROS_BASE"’@aFIRE_ROS%ROS_WIND#Ò@aFIRE_ROS%ROS_SLOPE@aFIRE_ROS%PROPXR@aFIRE_ROS%PROPY’@aFIRE_ROS%IÒ@aFIRE_ROS%JYaFIRE_ROS%FPkHEAT_FLUXESr@aHEAT_FLUXES%DT²YaHEAT_FLUXES%FP! @aHEAT_FLUXES%IFMS!K@aHEAT_FLUXES%IFME!‹@aHEAT_FLUXES%JFMS!Ë@aHEAT_FLUXES%JFME! @aHEAT_FLUXES%IFTS!K@aHEAT_FLUXES%IFTE!‹@aHEAT_FLUXES%JFTS!Ë@aHEAT_FLUXES%JFTE! @aHEAT_FLUXES%IFFS!K @aHEAT_FLUXES%IFFE!‹ @aHEAT_FLUXES%JFFS!Ë @aHEAT_FLUXES%JFFE! aHEAT_FLUXES%FGIP, aHEAT_FLUXES%FUEL_FRAC_BURNT#3aHEAT_FLUXES%GRNHFT#GaHEAT_FLUXES%GRNQFT[ÏSET_NFUEL_CAT#*@aSET_NFUEL_CAT%IFMS#j@aSET_NFUEL_CAT%IFME#ª@aSET_NFUEL_CAT%JFMS#ê@aSET_NFUEL_CAT%JFME#*@aSET_NFUEL_CAT%IFTS#j@aSET_NFUEL_CAT%IFTE#ª@aSET_NFUEL_CAT%JFTS#ê@aSET_NFUEL_CAT%JFTE(*@aSET_NFUEL_CAT%IFUELREAD)j@aSET_NFUEL_CAT%NFUEL_CAT0"ªaSET_NFUEL_CAT%ZSF(¾aSET_NFUEL_CAT%NFUEL_CAT ÒSET_FIRE_PARAMS%Ú@aSET_FIRE_PARAMS%IFDS%@aSET_FIRE_PARAMS%IFDE%Z@aSET_FIRE_PARAMS%JFDS%š@aSET_FIRE_PARAMS%JFDE%Ú@aSET_FIRE_PARAMS%IFMS%@aSET_FIRE_PARAMS%IFME%Z@aSET_FIRE_PARAMS%JFMS%š@aSET_FIRE_PARAMS%JFME%Ú@aSET_FIRE_PARAMS%IFTS%@aSET_FIRE_PARAMS%IFTE%Z@aSET_FIRE_PARAMS%JFTS%š@aSET_FIRE_PARAMS%JFTE$Ú@aSET_FIRE_PARAMS%FDX$@aSET_FIRE_PARAMS%FDY+Z@aSET_FIRE_PARAMS%NFUEL_CAT0*šaSET_FIRE_PARAMS%NFUEL_CAT*® aSET_FIRE_PARAMS%FUEL_TIME#Â"YaSET_FIRE_PARAMS%FP#oWRITE_FUELS_M%Š#@aWRITE_FUELS_M%NSTEPS&Ê#@aWRITE_FUELS_M%MAXWIND' $@aWRITE_FUELS_M%MAXSLOPEJ$˜FUEL_MOISTURE!â%@aFUEL_MOISTURE%ID#"&@aFUEL_MOISTURE%NFMC"b&@aFUEL_MOISTURE%IDS"¢&@aFUEL_MOISTURE%IDE"â&@aFUEL_MOISTURE%JDS""'@aFUEL_MOISTURE%JDE"b'@aFUEL_MOISTURE%IMS"¢'@aFUEL_MOISTURE%IME"â'@aFUEL_MOISTURE%JMS""(@aFUEL_MOISTURE%JME"b(@aFUEL_MOISTURE%IPS"¢(@aFUEL_MOISTURE%IPE"â(@aFUEL_MOISTURE%JPS"")@aFUEL_MOISTURE%JPE"b)@aFUEL_MOISTURE%ITS"¢)@aFUEL_MOISTURE%ITE"â)@aFUEL_MOISTURE%JTS""*@aFUEL_MOISTURE%JTE#b*@aFUEL_MOISTURE%IFDS#¢*@aFUEL_MOISTURE%IFDE#â*@aFUEL_MOISTURE%JFDS#"+@aFUEL_MOISTURE%JFDE#b+@aFUEL_MOISTURE%IFMS#¢+@aFUEL_MOISTURE%IFME#â+@aFUEL_MOISTURE%JFMS#",@aFUEL_MOISTURE%JFME#b,@aFUEL_MOISTURE%IFTS#¢,@aFUEL_MOISTURE%IFTE#â,@aFUEL_MOISTURE%JFTS#"-@aFUEL_MOISTURE%JFTE!b-@aFUEL_MOISTURE%IR!¢-@aFUEL_MOISTURE%JR(â-aFUEL_MOISTURE%NFUEL_CAT%ö/„aFUEL_MOISTURE%FMC_GC$z2aFUEL_MOISTURE%FMC_G!Ž4sADVANCE_MOISTURE,6@aADVANCE_MOISTURE%INITIALIZE%A6@aADVANCE_MOISTURE%IMS%6@aADVANCE_MOISTURE%IME%Á6@aADVANCE_MOISTURE%JMS%7@aADVANCE_MOISTURE%JME%A7@aADVANCE_MOISTURE%ITS%7@aADVANCE_MOISTURE%ITE%Á7@aADVANCE_MOISTURE%JTS%8@aADVANCE_MOISTURE%JTE&A8@aADVANCE_MOISTURE%NFMC-8@aADVANCE_MOISTURE%MOISTURE_DT1Á8@aADVANCE_MOISTURE%FMEP_DECAY_TLAG'9aADVANCE_MOISTURE%RAINC(;aADVANCE_MOISTURE%RAINNC$)=aADVANCE_MOISTURE%T2$=?aADVANCE_MOISTURE%Q2&QAaADVANCE_MOISTURE%PSFC*eCaADVANCE_MOISTURE%RAIN_OLD(yEaADVANCE_MOISTURE%T2_OLD(GaADVANCE_MOISTURE%Q2_OLD*¡IaADVANCE_MOISTURE%PSFC_OLD)µKaADVANCE_MOISTURE%RH_FIRE(ÉM„aADVANCE_MOISTURE%FMC_GC&MPTaADVANCE_MOISTURE%FMEP*¡R„aADVANCE_MOISTURE%FMC_EQUI)%U„aADVANCE_MOISTURE%FMC_LAG#©W`READ_NAMELIST_FIRE6 X@aREAD_NAMELIST_FIRE%INIT_FUEL_MOISTURE!IX@MOISTURE_CLASSES‰X@FUELMC_GÉXäFIRE_PARAMS­Y¬aFIRE_PARAMS%VXYZ¬aFIRE_PARAMS%VY [¬aFIRE_PARAMS%ZSF"±[¬aFIRE_PARAMS%DZDXF"]\¬aFIRE_PARAMS%DZDYF ]¬aFIRE_PARAMS%BBB#µ]¬aFIRE_PARAMS%BETAFL"a^¬aFIRE_PARAMS%PHIWC _¬aFIRE_PARAMS%R_0!¹_¬aFIRE_PARAMS%FGIP#e`¬aFIRE_PARAMS%ISCHAP#a¬aFIRE_PARAMS%IBOROS&½a¬aFIRE_PARAMS%FUEL_TIME"ib¬aFIRE_PARAMS%FMC_G