ok820309 919.0[e  module_sf_bem.f90MODULE_SF_BEM    fff?0.9   >0.3   ;0.006   m J2.268E+06   o:0.001   751.E-06#@G#NZCANM #NLEV #NHOURDAY #DT #BW #BL#DZLEV#NWAL#NFLO#NROF#NGRD#HSWALOUT#GSWAL#HSWINOUT#HSROF#GSROF#LATENT#SIGMA#ALBWAL#ALBWIN#ALBROF#EMROF#EMWAL#EMWIN #RSWAL!#RLWAL"#RAIR##CP$#RHOOUT%#TOUT&#HUMOUT'#PRESS(#RS)#RL*#DZWAL+#CSWAL,#KWAL-#PWIN.#COP/#BETA0#SW_COND1#TIMEON2#TIMEOFF3#TARGTEMP4#GAPTEMP5#TARGHUM6#GAPHUM7#PERFLO8#HSESF9#HSEQUIP:#DZFLO;#CSFLO<#KFLO=#DZGRD>#CSGRD?#KGRD@#DZROFA#CSROFB#KROFC#TLEVD#SHUMLEVE#TWALF#TWING#TFLOH#TGRDI#TROFJ#HSOUTK#HLOUTL#CONSUMPM#HSVENTN#HLVENTO D@ D@ D@  D@  D@  D@ D@  D@ D@ D@ D@  pp5pr p5pr  D "pp5pr p5pr   pp5pr p5pr  D D@ D@ D@ D@ D@ D@ D@ D@   D@! pp5pr p5pr  D@" pp5pr p5pr # $  D@% p5pr 5pr  D@& p5pr 5pr  D@' p5pr 5pr  ( p5pr 5pr D@) D@*  D@+ p5pr5pr D@, p5pr5pr D@- p5prn15prn1D@.  @/  @0  @@1 @2  @3  @4  @5  @6  @7  @8  @9  @: ppp D@; p5p r5p r D@< p5p r5p r D@= p5p rn15p rn1 D@> p5p r5p r D@? p5p r5p r D@@ p5p rn15p rn1 D@A p5p r5p r D@B p5p r5p r D@C p5p rn15p rn1 D@D p5pr 5pr  D@E p5pr 5pr  D@F p5prpppp5pr5pr p5pr5pr  D@G pp5pr p5pr  D@H p5p rp5p r5pr n15p r5pr n1 D@I p5p r5p r D@J p5p r5p r D@K p5pr 5pr  D@L p5pr 5pr  D@M p5pr 5pr  D@N p5pr 5pr  D@O !p5pr 5pr #@P #ALBWINQ#ALBWALR#PWINS#RSWALT#SURWALU#BWV#BLW#ZWX#RSINTYD@Q D@R D@S  T Rppp U SpppD@V D@W D@X  DY Tppp#@Z #EMWAL[#EMWIN\#SIGMA]#TWAL_INT^#TWIN_#PWIN`#BWa#BLb#ZWc#RLINTdD@[ D@\ D@]  D@^ Wppp D@_ XpppD@` D@a D@b D@c  Dd Yppp#@e#RADFLUXf#ALBg#RSh#EMi#RLj#SIGMAk#TWALlDf g h i j k l #@m#SWSURFn#SWWINo#TINp#TWq#HSINSrnop q Dr #@s#SWWALLt#NZu#DTv#DZw#Kx#CSy#FLUXz#TEMP{Dt D@uD@v  D@w @p5pru5pru D@x Bp5prun15prun1 D@y Ap5pru5pru z Cppp D@{ Dp5pru5pru#@|#NHOURDAY}#BW~#BL#PERFLO#HSESF#HSEQUIP#HSEQOCC#HLEQOCCD@} ~     @  @ gpppD D #@ #CPINT#RHOINT#VOLLEV#TLEV#TOUT#LATENT#HUMOUT#RHOOUT#HUMLEV#BETA#HSVENT#HLVENT           D D #@#HSWALINS#HSWININS#SURWAL#PWIN#HSCOND  hppp  ippp  jppp D #@#HSEQOCC#HLEQOCC#HSVENT#HLVENT#HSCOND#HSLEV#HLLEV     D D #@ #SWCOND#NHOURDAY#DT#QB#HSROO#TLEV#TIMEON#TIMEOFF#TARGTEMP#GAPTEMP#HSNEED             D #@ #SWCOND#NHOURDAY#DT#VOLROO#RHOINT#LATENT#HLROO#SHUMROO#TIMEON#TIMEOFF#TARGHUM#GAPHUM#HLNEED               D #@#HSNEED#HLNEED#DT#HSOUT#HLOUT#CONSUMP#COP@ D@  D D D   #@#NZCANM#NLEV#CONSUMPBUILD#HSOUTBUILD#HSOUT#CONSUMP D D   kp5pr5pr  lp5pr5pr#@#NZ#DT#DZ#CS#K#K1#K2#KC    Jp5pr5pr  Kp5pr5pr  Lp5prn15prn1 D Nppp D Oppp D Pppp#@#N#A#B#X  D mp&pp5prp5pr D np5pr5pr D op5pr5pr#@ #RSTR#ALBWAL#ALBWIN#AW#BW#ZW#PWIN#A#B        D$ \ppppp D ]ppp#@#A#N#B#NP D pp5prp5pr5pr5pr5pr D qp5pr5pr #@ #EMWAL#EMWIN#SIGMA#TWALINT#TWININT#PWIN#AW#BW#ZW#A#B     ^ppp  _ppp     D$ appppp D `ppp#@#FPRL_INT#VX#VYD @ @ #@#FNRM_INT#WX#WY#WZD   @ #@#NHOURDAY#ROCC D #@#NHOURDAY#HSESF#HSEQUIP#HSEQU@     fpppD (fn#fn!@JMODULE_WRF_ERRORsEMINS{sALBINSuTHICKWINcyCSWINuTEMP_RATQvHUM_RATTBEM@aBEM%NZCANM[@aBEM%NLEV@aBEM%NHOURDAY@aBEM%DT@aBEM%BW[@aBEM%BL@aBEM%DZLEV@aBEM%NWAL @aBEM%NFLO[ @aBEM%NROF @aBEM%NGRD aBEM%HSWALOUT aBEM%GSWAL aBEM%HSWINOUTW @aBEM%HSROF @aBEM%GSROF @aBEM%LATENT @aBEM%SIGMAW @aBEM%ALBWAL @aBEM%ALBWIN @aBEM%ALBROF@aBEM%EMROFW@aBEM%EMWAL@aBEM%EMWINaBEM%RSWALaBEM%RLWAL@aBEM%RAIR@aBEM%CPaBEM%RHOOUTaBEM%TOUTgaBEM%HUMOUTaBEM%PRESS@aBEM%RS@aBEM%RLOaBEM%DZWALaBEM%CSWAL&aBEM%KWAL@aBEM%PWIN@aBEM%COP]@aBEM%BETA@aBEM%SW_COND@aBEM%TIMEON@aBEM%TIMEOFF]@aBEM%TARGTEMP@aBEM%GAPTEMP@aBEM%TARGHUM@aBEM%GAPHUM]@aBEM%PERFLO@aBEM%HSESFaBEM%HSEQUIPqaBEM%DZFLO%aBEM%CSFLO&aBEM%KFLOaBEM%DZGRDaBEM%CSGRDg&aBEM%KGRDaBEM%DZROFA aBEM%CSROF &aBEM%KROF"aBEM%TLEV"aBEM%SHUMLEV#daBEM%TWAL$aBEM%TWIN%aBEM%TFLOQ'aBEM%TGRD(aBEM%TROF(aBEM%HSOUTm)aBEM%HLOUT!*aBEM%CONSUMP*aBEM%HSVENT+aBEM%HLVENT=,INT_RSRAD!,@aINT_RSRAD%ALBWIN!!-@aINT_RSRAD%ALBWALa-@aINT_RSRAD%PWIN -aINT_RSRAD%RSWAL!5.aINT_RSRAD%SURWAL.@aINT_RSRAD%BW /@aINT_RSRAD%BLI/@aINT_RSRAD%ZW /aINT_RSRAD%RSINT0INT_RLRAD 0@aINT_RLRAD%EMWAL 1@aINT_RLRAD%EMWIN K1@aINT_RLRAD%SIGMA#1aINT_RLRAD%TWAL_INT2aINT_RLRAD%TWIN2@aINT_RLRAD%PWIN2@aINT_RLRAD%BW33@aINT_RLRAD%BLs3@aINT_RLRAD%ZW 3aINT_RLRAD%RLINTG4RADFLUXS!4@aRADFLUXS%RADFLUX5@aRADFLUXS%ALBR5@aRADFLUXS%RS5@aRADFLUXS%EM5@aRADFLUXS%RL6@aRADFLUXS%SIGMAR6@aRADFLUXS%TWAL6{HSINSFLUX! 7@aHSINSFLUX%SWSURF M7@aHSINSFLUX%SWWIN7@aHSINSFLUX%TIN7@aHSINSFLUX%TW 8@aHSINSFLUX%HSINSM8WALL8@aWALL%SWWALL9@aWALL%NZ\9@aWALL%DT9aWALL%DZP:&aWALL%Kv;aWALL%CS*<aWALL%FLUX<aWALL%TEMPr=FLUXEQOCC#>@aFLUXEQOCC%NHOURDAYV>@aFLUXEQOCC%BW>@aFLUXEQOCC%BL!>@aFLUXEQOCC%PERFLO ?@aFLUXEQOCC%HSESF"V?aFLUXEQOCC%HSEQUIP"?@aFLUXEQOCC%HSEQOCC"*@@aFLUXEQOCC%HLEQOCCj@FLUXVENT;A@aFLUXVENT%CPINT {A@aFLUXVENT%RHOINT A@aFLUXVENT%VOLLEVA@aFLUXVENT%TLEV;B@aFLUXVENT%TOUT {B@aFLUXVENT%LATENT B@aFLUXVENT%HUMOUT B@aFLUXVENT%RHOOUT ;C@aFLUXVENT%HUMLEV{C@aFLUXVENT%BETA C@aFLUXVENT%HSVENT C@aFLUXVENT%HLVENT;DFLUXCOND"DaFLUXCOND%HSWALINS"UEaFLUXCOND%HSWININS EaFLUXCOND%SURWAL}F@aFLUXCOND%PWIN F@aFLUXCOND%HSCONDFFLUXROO G@aFLUXROO%HSEQOCC G@aFLUXROO%HLEQOCCH@aFLUXROO%HSVENTYH@aFLUXROO%HLVENTH@aFLUXROO%HSCONDH@aFLUXROO%HSLEVI@aFLUXROO%HLLEVYIREGTEMP J@aREGTEMP%SWCOND!`J@aREGTEMP%NHOURDAYJ@aREGTEMP%DTJ@aREGTEMP%QB K@aREGTEMP%HSROO`K@aREGTEMP%TLEVK@aREGTEMP%TIMEON K@aREGTEMP%TIMEOFF! L@aREGTEMP%TARGTEMP `L@aREGTEMP%GAPTEMPL@aREGTEMP%HSNEEDLREGHUMM@aREGHUM%SWCOND N@aREGHUM%NHOURDAYDN@aREGHUM%DTN@aREGHUM%VOLROON@aREGHUM%RHOINTO@aREGHUM%LATENTDO@aREGHUM%HLROOO@aREGHUM%SHUMROOO@aREGHUM%TIMEONP@aREGHUM%TIMEOFFDP@aREGHUM%TARGHUMP@aREGHUM%GAPHUMP@aREGHUM%HLNEEDQAIR_COND Q@aAIR_COND%HSNEED Q@aAIR_COND%HLNEEDR@aAIR_COND%DTXR@aAIR_COND%HSOUTR@aAIR_COND%HLOUT!R@aAIR_COND%CONSUMPS@aAIR_COND%COPXSCONSUMP_TOTAL%S@aCONSUMP_TOTAL%NZCANM#0T@aCONSUMP_TOTAL%NLEV+pT@aCONSUMP_TOTAL%CONSUMPBUILD)T@aCONSUMP_TOTAL%HSOUTBUILD$TaCONSUMP_TOTAL%HSOUT&UaCONSUMP_TOTAL%CONSUMPXVWALL_COEFFV@aWALL_COEFF%NZW@aWALL_COEFF%DT_WaWALL_COEFF%DZXaWALL_COEFF%CSX&aWALL_COEFF%KYaWALL_COEFF%K1ZaWALL_COEFF%K2[aWALL_COEFF%KC[dTRIDIA \@aTRIDIA%NM\aTRIDIA%A1]aTRIDIA%B]aTRIDIA%X^ALGEBRA_SHORT#3_@aALGEBRA_SHORT%RSTR%s_@aALGEBRA_SHORT%ALBWAL%_@aALGEBRA_SHORT%ALBWIN!_@aALGEBRA_SHORT%AW!3`@aALGEBRA_SHORT%BW!s`@aALGEBRA_SHORT%ZW#`@aALGEBRA_SHORT%PWIN `aALGEBRA_SHORT%A aaALGEBRA_SHORT%B;beGAUSSJBEMb$aGAUSSJBEM%Ac@aGAUSSJBEM%NdaGAUSSJBEM%Bd@aGAUSSJBEM%NPdALGEBRA_LONG#e@aALGEBRA_LONG%EMWAL#e@aALGEBRA_LONG%EMWIN#+f@aALGEBRA_LONG%SIGMA%kfaALGEBRA_LONG%TWALINT%faALGEBRA_LONG%TWININT"g@aALGEBRA_LONG%PWIN g@aALGEBRA_LONG%AW h@aALGEBRA_LONG%BW Sh@aALGEBRA_LONG%ZWhaALGEBRA_LONG%AGiaALGEBRA_LONG%BifFPRL_INTS#Aj@aFPRL_INTS%FPRL_INTj@aFPRL_INTS%VXj@aFPRL_INTS%VYknFNRM_INTS#ok@aFNRM_INTS%FNRM_INTk@aFNRM_INTS%WXk@aFNRM_INTS%WY/l@aFNRM_INTS%WZol`PHIRAT l@aPHIRAT%NHOURDAYm@aPHIRAT%ROCCOmyPHIEQU m@aPHIEQU%NHOURDAYn@aPHIEQU%HSESFHnaPHIEQU%HSEQUIPn@aPHIEQU%HSEQU