home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / h / house_ii.zip / FOR / WIZONE.FOR < prev    next >
Text File  |  1992-04-08  |  2KB  |  61 lines
  1.       SUBROUTINE WIZONE(AIRMAS, FINFB, FLOC, FLOW10, FLOW14,
  2.      +             WIN, WIM, WINF, WINFC, WINFS, WINFSS, WINT, IDBG)
  3. C
  4. C COMPUTE ZONE MOISTURE BALANCE
  5. C
  6. C    WIM IS MEAN MOISTURE IN ZONES(CALC IN LOOP)
  7. CMDK NWL
  8. CMDK NZW
  9. CMDK NZN
  10. CMDK NZN7
  11. C - - -COMMON BLOCKS
  12. CMDK ACND
  13. CMDK BLKGS2
  14. CMDK DUCTS2
  15. CMDK DUCTS4
  16. CMDK ENCBK1
  17. CMDK ENCBLK
  18. CMDK MZON1
  19. CMDK OWETHR
  20. CMDK STRUCA
  21. CMDK WIBLK
  22. C - - -DIMENSIONS OF FORMAL PARAMETERS
  23.       INTEGER FLOC(NZN7)
  24.       REAL AIRMAS(NZN), WIN(NZN), WINFC(NZN), WINFN(NZN),
  25.      +     WINFSS(NZN)
  26.       WINF=0.
  27. C
  28.       IF(IBRP.GT.0)WMIX=WBAS
  29.       IF(IBRP.EQ.0)WMIX=WIM
  30.       WAC=WMIX-WMOIST/FLOW14
  31.       WHUM=FLOW10*(WAC-WIM)
  32. C
  33.       FLCSM1=FLOC(1)+FLOC(2)
  34.       IF(NROOMS.GT.1)THEN
  35.           DO 10 J=2,NROOMS
  36.    10     FLCSM1=FLCSM1+FLOC(7+J)
  37.           ENDIF
  38.       FINFB=PHI*WAIRB*FLCSM1
  39.       WINFS=0.
  40.       DO 20 J=1,NROOMS
  41.       NRM=NRMA(J)
  42.       FLC=FLOC(NRM)
  43.       IF(NRM.GT.1)FLC=FLOC(NRM+7)
  44. C
  45. C  WINFS IS ADDITIONAL INFILTRATION DUE TO COMB AIR OF FURNACE IN
  46. C        LIVING SPACE CLOSET
  47.       WINFSN=FINFB*(WODHUM-WIM)*FLC
  48.       WINFN(NRM)=WINFC(NRM)-WI(NRM)*WINFSS(NRM)
  49.       WSUM=WINFN(NRM)+WINT*RWINT(NRM)+WHUM*RWSDCT(NRM)+WINFSN
  50.       WIN(NRM)=WSUM/AIRMAS(NRM)+WI(NRM)
  51. C  FURNACE CAN ONLY BE IN ONE ZONE, SO WINFSN WILL NOT BE ZERO IN
  52. C      ONLY ONE ZONE
  53.       IF(WINFSN.NE.0.)WINFS=WINFSN
  54.    20 CONTINUE
  55.       WINF=AVGWV(WINFN,NROOMS,ROMVOL)
  56.       IF(IDBG.NE.0)THEN
  57.         WRITE(60,*)' LEAVING WIZONE HERE!'
  58.         ENDIF
  59.       RETURN
  60.       END
  61.