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 / TWISET.FOR < prev    next >
Text File  |  1992-04-14  |  987b  |  32 lines
  1.       SUBROUTINE TWISET(ICOD,QCSURF,TBAS,TWI)
  2. C
  3. C  SET TEMP OF INSIDE SURF OF BSMT WALL DURING PRECONDITIONING
  4. C   ICOD  7 FOR FLOOR, 4 FOR WALL 
  5. C   QCSURF - HEAT FLOW INTO BASMT WALL SEGMENT PER UNIT AREA, BTU/HR-FT2
  6. C   TBAS - BASEMENT AIR TEMP (SET BY INPUT VALUE OF TI(NZNBAS))
  7. C   TWI  - ON INPUT:  INITIAL GUESS FOR INSIDE SURF TEMP, F
  8. C          ON OUTPUT:  INSIDE SURFACE TEMP, F
  9. CMDK SIGMA
  10. CMDK FTR
  11.       DATA EPSW/.95/,NRM/6/,IZW/80/
  12. C         NRM,IZW HERE ARE NONSENSE VALUES!      
  13.       JAN=0      
  14.       TB=(TBAS+FTR)*.01     
  15.       TB2=TB**2
  16.       TWIG=TWI
  17.   10  HIWBGC=HC(NRM,IZW,ICOD,.FALSE.,TWIG,TBAS)
  18.       TW=(TWIG+FTR)*.01
  19.       TW2=TW**2
  20.       HIR=SIGMA*EPSW*(TB2+TW2)*(TB+TW)
  21.       TWI=TBAS-QCSURF/(HIWBGC+HIR)
  22.       DIF=ABS(TWIG-TWI)
  23.       IF(DIF.GT..01)THEN
  24.         JAN=JAN+1
  25.         IF(JAN.GT.20)STOP 'TWISET: TWI WONT CONVERGE'
  26.         TWIG=TWIG+0.5*(TWI-TWIG)
  27.         GO TO 10
  28.       ENDIF
  29.       TWI=TWIG
  30.       RETURN
  31.       END
  32.