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 / FMASS.FOR < prev    next >
Text File  |  1992-05-09  |  1KB  |  46 lines
  1.       SUBROUTINE FMASS(NRM,HIWPC,TIA,TFM,QCFM)
  2. C 
  3. C  FURNITURE MASS MODEL 
  4. CMDK NWL
  5. CMDK NZN
  6. CMDK NZW
  7. CMDK ENCBK1
  8. CMDK TEMP1
  9. CMDK TIMEB
  10. CMDK BLKFMI
  11.       DIMENSION TFM(NZN),TFMP(NZN),ASFM(NZN)
  12.       LOGICAL FIRST 
  13.       DATA FIRST/.TRUE./
  14.       IF(FIRST)THEN 
  15.         FIRST=.FALSE.
  16. C  NOTE::  FURNITURE DATA ARE READ IN STRCTL.FOR        
  17. C          THE CURRENT MODEL DOES NOT PARTICIPATE IN RADIATION HEAT
  18. C          EXCHANGE IN THE ZONE FROM WALLS,CEILING,AND FLOORS (CALC
  19. C          IN MRTSWF AND RESPECTIVE SUBPROGRAMS (OWALLS,IWALLS,CEIL,
  20. C          & FLOOR))
  21.         DO 10 J=1,NROOMS 
  22.         NRMJ=NRMA(J) 
  23.         IF(XMFM(NRMJ).NE.0.)THEN 
  24. C  2.4 IS 2.(SURFACES)*12.(INCH/FT)/10(TEN STEPS/TIMESTEP)        
  25.           ASFM(NRMJ)=2.4*XMFM(NRMJ)/(THKFM(NRMJ)*RHOFM)
  26.         ENDIF
  27.    10   CONTINUE
  28.       ENDIF 
  29.       IF(XMFM(NRM).EQ.0.)THEN 
  30.         QCFM=0.
  31.       ELSE
  32. C  QCFMC IS HEAT TRANSFER TO FURNITURE MASS!      
  33.         QCFMQ=0.
  34.         QCFM=0.
  35.         DO 20 IJ=1,10
  36.         QCFMC=HIWPC*ASFM(NRM)*(TIA - TFM(NRM))
  37.         QCFMQ=QCFMQ+QCFMC
  38.         TFMP(NRM)=TFM(NRM)+QCFMC*DTIME/(XMFM(NRM) * CPFM)
  39.         TFM(NRM)=TFMP(NRM) 
  40. C  QCFM IS HEAT TRANSFER TO AIR (OPPOSITE SIGN TO QCFMC!)        
  41.         QCFM = QCFM +  (-1. * QCFMC)
  42.    20   CONTINUE
  43.       ENDIF
  44.       RETURN
  45.       END 
  46.