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 / TAATTC.FOR < prev    next >
Text File  |  1992-05-08  |  2KB  |  88 lines
  1.       SUBROUTINE TAATTC(ATCDTS, QAVENT, QCEIL1, QWALL5, RARATS,
  2.      +                  TATTCN, TODDBR,  WODFAC,IDBG)
  3. C
  4. C  CALC AIR TEMPERATURE IN UP TO TWO ATTICS
  5. C
  6. C - - -CONSTANTS
  7. CMDK CPAIR
  8. CMDK FTR
  9. CMDK NWL
  10. CMDK NWN
  11. CMDK NZN
  12. CMDK NZW
  13. CMDK BLKQGS
  14. CMDK BLKQS
  15. CMDK ENCBK1
  16. CMDK IZZQ
  17. CMDK MZON1
  18. CMDK OWETHR
  19. CMDK QUAYLE
  20. CMDK STRUCA
  21. CMDK SURFAR
  22. CMDK TEMP1
  23. CMDK TEMPB
  24. CMDK TIMEB
  25. C - - -DIMENSIONS
  26.       REAL TATTCN(2)
  27.       CALL ZERV(3,QAVENT,QCEIL1,QWALL5,0.,0.,0.,0.,0.,0.,0.)
  28. C
  29.       DO 100 IA=1,NATC
  30.       IQZ=IZT+IA
  31.       HIQ=HIRDN*HIR
  32.       T4=TMP(4,IQZ)
  33.       IF(TATTC(IA).GT.T4)HIQ=HIRUP*HIR
  34.       HIRX=HIQ*ABS(T4-TATTC(IA))**.33
  35.       QROOFN=RAREA(IA)*HIRX*(T4-TATTC(IA))
  36.       QWALL5=QWALL5+QROOFN
  37.       QROOF(IA)=QROOF(IA)-QROOFN
  38. C
  39. C - - -CEILING HEAT FLOW
  40.       IZ=3+IA
  41.       QCELN=0.
  42.       DO 10 J=1,NROOMS
  43.       NRM=NRMA(J)
  44.       N2=NWALLA(NRM)
  45.       DO 10 K2=1,N2
  46.       IZW=NENC(NRM,K2)
  47.       ID=IDEXP(IZW)
  48.       NZONC=NZNC(IZW)
  49.       IF(ID.EQ.5.AND.NZONC.EQ.IZ)THEN
  50.           HAQ=HACUP*HAC
  51.           T1=TMP(1,IZW)
  52.           IF(TATTC(IA).GT.T1)HAQ=HACDN*HAC
  53.           HACX=HAQ*ABS(T1-TATTC(IA))**.33
  54.           QCEL1N=AWALLA(IZW)*HACX*(TATTC(IA)-T1)
  55.           QCEIL1=QCEIL1+QCEL1N
  56.           QCELN=QCELN+QCEL1N
  57.           ENDIF
  58.    10 CONTINUE
  59. C
  60.       QCEIL(IA)=QCEIL(IA)+QCELN
  61.       RAIRAT=WODFAC/(TATTC(IA)+FTR)
  62.       ATTCFH=VENATC(IA)*ATCVOL(IA)*CPAIR
  63.       QAVNTN=ATTCFH*(TODDBR-TATTC(IA)*RAIRAT)
  64.       QAVENT=QAVENT+QAVNTN
  65.       QVNTA=0.
  66.       IF(NATVNT.EQ.IA)QVNTA=QVENTA
  67.       ATCDT=DTIME/(CPAIR*ATCVOL(IA))
  68.       IF(IA.EQ.NATVNT)THEN
  69. C     GET RAIRAT AND ATCDT NEEDED IN LOOP
  70.           RARATS=RAIRAT
  71.           ATCDTS=ATCDT
  72.           ENDIF
  73.       TATTCN(IA)=(QROOFN+QAVNTN-QCELN+QVNTA)*ATCDT/RAIRAT
  74.      +           +TATTC(IA)
  75.       IF(IDBG.NE.0)THEN
  76.          WRITE(60,500)IA,HIRX,QROOFN,HACX,QCELN,QAVNTN,QVNTA,
  77.      +               TATTC(IA),TATTCN(IA)
  78.          ENDIF
  79.   100 CONTINUE
  80.       RETURN
  81.   500 FORMAT(11X,'TATTC:IA,HIRX,QROOFN= ',I4,2G13.5/
  82.      +18X,'HACX,QCELN= ',2G13.5/
  83.      +18X,'QAVNTN,QVNTA= ',2G13.5/
  84.      +18X,'TATTC(IA),TATTCN(IA)= ',2G13.5)
  85.       END
  86.  
  87.  
  88.