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 / CEIL.FOR < prev    next >
Text File  |  1992-04-17  |  3KB  |  103 lines
  1.       SUBROUTINE CEIL(NRM, IZW, KON, NZONC, IDBG)
  2. C 
  3. C  CEILING TEMPERATURES 
  4. C 
  5. C - - - PARAMETER CONSTANTS 
  6. C 
  7. CMDK NKONST
  8. CMDK NWL
  9. CMDK NWN
  10. CMDK NZN
  11. CMDK NZW
  12. CMDK BLKQS
  13. CMDK CNSTRK
  14. CMDK ENCBK2
  15. CMDK IZPART
  16. CMDK MRTBLK
  17. CMDK SURFAR
  18. CMDK TCNBLK
  19. CMDK TEMPB
  20. C 
  21. C  CEILING ENCLOSURE ELEMENT
  22.       K=KON 
  23.       IA=0
  24.       NLM=NLMP(K) 
  25.       IF(NZONC.GT.8)IA=3
  26.       IF(NZONC.EQ.4)IA=1
  27.       IF(NZONC.EQ.5)IA=2
  28. C 
  29.       IF(IA.EQ.0)STOP 'CEIL:NZONC NOT 4 OR 5 OR GT 8' 
  30.       IF(IA.EQ.3)THEN 
  31. C   CEILING IS PARTITION BETWEEN ZONES
  32. C     NOTE:: CODE BELOW IS LIKE CODE IN IWALLS FOR PART. BETWN ZONES
  33.           IZWO=IZSET(IZW) 
  34. C   CEILING TEMPS ALREADY CALC IN ANOTHER ZONE? (YES IF IZWO LT IZW)
  35.           IF(IZWO.LT.IZW)THEN 
  36.               IF(NLM.EQ.1)THEN
  37.                   TMPN(1,IZW)=TMPN(3,IZWO)
  38.                   TMPN(2,IZW)=TMPN(2,IZWO)
  39.                   TMPN(3,IZW)=TMPN(1,IZWO)
  40.                   QRMRT(IZW)=QRMRT(IZWO)
  41.                   GO TO 200 
  42.                   ENDIF 
  43.               IF(NLM.EQ.3)THEN
  44.                   TMPN(1,IZW)=TMPN(4,IZWO)
  45.                   TMPN(2,IZW)=TMPN(3,IZWO)
  46.                   TMPN(3,IZW)=TMPN(2,IZWO)
  47.                   TMPN(4,IZW)=TMPN(1,IZWO)
  48.                   QRMRT(IZW)=QRMRT(IZWO)
  49.                   GO TO 200 
  50.                   ENDIF 
  51.               ENDIF 
  52.           ENDIF 
  53. C 
  54. C  CEILING TEMPERATURES 
  55. C     MAKE SURE THAT LVG SPC ZONES ARE CALC BEFORE BSMT ZONE!!!!! 
  56. C       OR ELSE HEAT FLOW AT LVG SPC SIDE OF BSMT CEILING WILL BE 
  57. C       CALC WITH WRONG H AND QRFSUM VALUES 
  58.       IF(NRM.EQ.NZNBAS)STOP 'CEIL:ENTER BSMT-ZONE DATA LAST'
  59.       T1=TMP(1,IZW) 
  60.       T2=TMP(2,IZW) 
  61.       T3=TMP(3,IZW) 
  62.       T4=TMP(4,IZW) 
  63.       TC1=TCON(1,K) 
  64.       TC2=TCON(2,K) 
  65.       TC3=TCON(3,K) 
  66.       TC4=TCON(4,K) 
  67.       TC5=TCON(5,K) 
  68.       TC6=TCON(6,K) 
  69.       TC7=TCON(7,K) 
  70.       TC8=TCON(8,K) 
  71. C  QCEIL IS CALC IN TATTC;  ACEIL IS SET IN ROOFC 
  72. C  QRFSUM IS CALC IN ROOFC. 
  73.       TMPN(1,IZW)=TC1*(T2-T1)+TC2*(QCEIL(IA)/ACEIL(IA)
  74.      +                          -QRFSUM(IA))+T1 
  75.       TMPN(2,IZW)=TC3*(T1-T2)+TC4*(T3-T2)+T2
  76.       TMPN(3,IZW)=TC5*(T2-T3)+TC6*(T4-T3)+T3
  77.       QPRAD=HRI(IZW)*(TMR(NRM)-T4)
  78.       TMPN(4,IZW)=TC7*(T3-T4)+TC8*(QCSURF(IZW)/AWALLA(IZW)+ 
  79.      +            QPRAD)+T4 
  80.       IF(IDBG.NE.0)THEN 
  81.       WRITE(60,500)    NRM, IZW, KON, NZONC, QRFSUM(1),QRFSUM(2) 
  82.       WRITE(60,501)IA,TATTA,T1,TMPN(1,IZW),T2,TMPN(2,IZW), 
  83.      +T3,TMPN(3,IZW),T4,TMPN(4,IZW),
  84.      +TC1,TC2,TC3,TC4,TC5,TC6,TC7,TC8 
  85.       WRITE(60,502)QPRAD,HRI(IZW),TMR(NRM) 
  86.       ENDIF 
  87.       QRMRT(IZW)=QPRAD*AWALLA(IZW)
  88.   200 CONTINUE
  89.       RETURN
  90.   500 FORMAT(20X,'CEIL:NRM,IZW,KON,NZONC= ',4I5/
  91.      +20X,'QRFSUM(1-2)= ',2G13.5) 
  92.   501 FORMAT(25X,'IA,TATTA= ',I5,2G13.5/
  93.      +20X,'T1,T1N= ',2G13.5/
  94.      +20X,'T2,T2N= ',2G13.5/
  95.      +20X,'T3,T3N= ',2G13.5/
  96.      +20X,'T4,T4N= ',2G13.5/
  97.      +20X,'TC1= ',G13.5,' TC2= ',G13.5/ 
  98.      +20X,'TC3= ',G13.5,' TC4= ',G13.5/ 
  99.      +20X,'TC5= ',G13.5,' TC6= ',G13.5/ 
  100.      +20X,'TC7= ',G13.5,' TC8= ',G13.5) 
  101.   502 FORMAT(20X,'QPRAD,HRI,TMR= ',3G13.5)
  102.       END 
  103.