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 / HC.FOR < prev    next >
Text File  |  1992-04-14  |  4KB  |  129 lines
  1.       FUNCTION HC(NRM,IZW,IC,IFN,TWI,TIA) 
  2. C                                                            MULTIPLIER 
  3. C  SET CONVECTION COEF AT INTERIOR SURFACES                (SET IN STRCTL)
  4. C    IC - 1  CEILING                                        (-- HIC)
  5. C       - 2  FLOOR (BSMT SIDE OF LVG SPC FLOOR)             (-- H1F)
  6. C       - 3  WALLS (OUTSIDE AND INTERIOR)                   (-- HIW)
  7. C       - 4  BASEMENT WALLS                                 (-- H3B)
  8. C       - 5  GARAGE                                         (-- HIG)
  9. C       - 6  FLOOR (LVG SPC SIDE OF LVG SPC FLOOR)          (-- H3F)
  10. C       - 7  FLOOR (BASEMENT)                               (-- H3FB) 
  11. C   IFN - TRUE IF ZONE IS HEATED AND BLOWER IS ON 
  12. C   TWI - WALL SURFACE TEMP,F 
  13. C   TIA - AIR TEMP, F 
  14. C  IHCOLD = 0  H=F(DT, SURF ORIENTATION,HT FLOW DIR ,BLWR OPERATION) 
  15. C         = 1  H=F(SURF ORIENTATION, HT FLOW DIR(HORIZ SURF)) 
  16. C         = 2  H'S USED AS INPUTTED (I.E. USE HIC,H1F,....)
  17. C 
  18. CMDK NZN
  19. CMDK IZZQ
  20. CMDK STRUCA
  21. CMDK TIMEB
  22. C 
  23.       LOGICAL IFN 
  24. C  HVW,HHU,HHD FROM TABLE 1. HOF 1981, P.23.12
  25. C   H ON VERTICAL WALL(1.46-0.891)
  26.       DATA HVW/0.569/ 
  27. C   H ON HORIZ SURF WITH HEAT FLOW UP (1.63-0.891)
  28.       DATA HHU/0.739/ 
  29. C   H ON HORIZ SURF WITH HEAT FLOW DOWN (1.08-0.891)
  30.       DATA HHD/0.189/ 
  31.       DATA ICLD/0/
  32.       IF(ICLD.EQ.0.AND.IHCOLD.LT.2)THEN
  33.         ICLD=1
  34.         WRITE(60,*)' ****************************************'
  35.         WRITE(60,*)'   YOU HAVE CHOSEN IHCOLD=0 OR 1!'
  36.         WRITE(60,*)'    * DID YOU SET HIC,H1F,HIW,H3B,HIG,H3F,H3FB'
  37.         WRITE(60,*)'      TO 1.0 OR OTHER MULTIPLIER IN STRMZA1.DAT'
  38.         WRITE(60,*)'      (WHICH IS READ IN STRCTL.FOR)?'
  39.         IF(IHCOLD.EQ.0)THEN
  40.           WRITE(60,*)'  YOU HAVE CHOSEN IHCOLD=0, SO YOU MAY SET'
  41.           WRITE(60,*)'  HIBLWR= 1.08 (TARP VALUE) OR WHATEVER '
  42.           WRITE(60,*)'  IN CNTRLXXX.DAT TO FIX H AT WALLS WITH '
  43.           WRITE(60,*)'  BLOWER ON. IF YOU DONT SET HIBLWR, THE OPTION'
  44.           WRITE(60,*)'  FOR CONST H AT WALLS WITH BLOWER OPERATION WILL'
  45.           WRITE(60,*)'  BE DEACTIVATED(SEE HC.FOR)'
  46.           ENDIF
  47.         ENDIF
  48.       IF(IHCOLD.EQ.1)THEN 
  49.          IF(IC.LE.2)THEN
  50.             HIP=HHD 
  51.             IF(TIA.GT.TWI)HIP=HHU 
  52.             IF(IC.EQ.1)HCU=HIP*HIC 
  53.             IF(IC.EQ.2)HCU=HIP*H1F 
  54.             GO TO 100 
  55.             ENDIF 
  56.          IF(IC.GT.2.AND.IC.LE.5)THEN
  57.             IF(IC.EQ.3)HCU=HVW*HIW 
  58.             IF(IC.EQ.4)HCU=HVW*H3B 
  59.             IF(IC.EQ.5)HCU=HVW*HIG 
  60.             GO TO 100 
  61.             ENDIF 
  62.          IF(IC.GT.5)THEN
  63.             HIP=HHU 
  64.             IF(TIA.GT.TWI)HIP=HHD 
  65.             IF(IC.EQ.6)HCU=HIP*H3F 
  66.             IF(IC.EQ.7)HCU=HIP*H3FB
  67.             IF(IC.GT.7)STOP ' HC: IC MUST BE < 8! '
  68.             GO TO 100 
  69.             ENDIF
  70.          ENDIF
  71.       IF(IC.LE.2)THEN 
  72.          IF(IC.EQ.1)HIP=HIC 
  73.          IF(IC.EQ.2)HIP=H1F 
  74.          IF(IHCOLD.EQ.2)GO TO 200 
  75. C  CEILING - - - - -
  76.          IF(IFN.AND.HIBLWR.GT.0.)THEN
  77.             HCU=HIP*HIBLWR 
  78.          ELSE 
  79.             DTI=TIA-TWI 
  80.             CH1=0.22
  81.             IF(TWI.GT.TIA)CH1=0.09
  82.             HCU=HIP*CH1*(ABS(DTI))**.33
  83.             ENDIF 
  84.          GO TO 100
  85.          ENDIF
  86. C  WALLS - - - - -
  87.       IF(IC.GE.3.AND.IC.LE.5)THEN 
  88.          IF(IC.EQ.3)HIP=HIW 
  89.          IF(IC.EQ.4)HIP=H3B 
  90.          IF(IC.EQ.5)HIP=HIG 
  91.          IF(IHCOLD.EQ.2)GO TO 200 
  92.          IF(IFN.AND.HIBLWR.GT.0.)THEN
  93.             HCU=HIP*HIBLWR 
  94.          ELSE 
  95.             DTI=TIA-TWI 
  96.             HCU=HIP*0.19*(ABS(DTI))**.33 
  97.             ENDIF 
  98.          GO TO 100
  99.          ENDIF
  100. C  FLOOR - - - - - -
  101.       IF(IC.GE.6.AND.IC.LE.7)THEN 
  102.          IF(IC.EQ.6)HIP=H3F 
  103.          IF(IC.EQ.7)HIP=H3FB
  104.          IF(IHCOLD.EQ.2)GO TO 200 
  105.          IF(IFN.AND.HIBLWR.GT.0.)THEN
  106.             HCU=HIP*HIBLWR 
  107.          ELSE 
  108.             DTI=TIA-TWI 
  109.             CH1=0.09
  110.             IF(TWI.GT.TIA)CH1=0.22
  111.             HCU=HIP*CH1*(ABS(DTI))**.33
  112.             ENDIF 
  113.          GO TO 100
  114.          ENDIF
  115.        WRITE(*,*)' HC 1:  IC= ',IC
  116.        STOP ' HC 1: IC MUST BE < 8!'
  117.   100 CONTINUE
  118.       DATA IPRQ/800/
  119.       IF(IPRQ.LT.700)THEN
  120.         IPRQ=IPRQ+1
  121.         WRITE(60,522)TIME*60.,NRM,IZW,IC,IFN,HCU
  122.   522 FORMAT(1X,' TIME,NRM,IZW,IC,IFN,HC= ',F8.3,1X,3(I5),2X,L2,2X,F8.3)        
  123.       ENDIF
  124.       HC=HCU
  125.       RETURN
  126.   200 HCU=HIP
  127.       GO TO 100 
  128.       END 
  129.