PMVを算出するFORTRANコードを下記のとおり作成し計算してみました。
この内容をhotRoomのチュートリアルで実装してみたいと思っているのですが、
0,const,systemのどのフォルダーのどのファイルにどのように記載して実施
すれば良いのか分かりませんでした。
ご教授頂けると有難いです。
記
REAL FAI,V0,RM,RMET,CLO,TA,TMRT,XA,FCL,PMV,PPD
C
open(2,file='result.csv')
C
WRITE(*,'(A\)') ' 室内気温(℃)?===>'
READ(*,*) TA
C
WRITE(*,'(A\)') ' 室内相対湿度(%)?===>'
READ(*,*) FAI
C
WRITE(*,'(A\)') ' 室内気流速度(m/s)?===>'
READ(*,*) V0
C
WRITE(*,'(A\)') ' 代謝量(met)?===>'
READ(*,*) RMET
C///////////////////////////////////////
C
C 代謝量 1met=50(kcal/m2h)
C
C///////////////////////////////////////
C
WRITE(*,'(A\)') ' 着衣量(clo)?===>'
READ(*,*) CLO
C
WRITE(*,'(A\)') ' 平均放射温度(℃)?===>'
READ(*,*) TMRT
RM=50.0*RMET
C
CALL XS(TA,FAI,XA)
CALL CALPMV(TA,XA,TMRT,V0,RM,0.0,CLO,FCL,PMV)
PPD=100.0-95.0*EXP(-0.0353*PMV**4-0.2179*PMV**2)
WRITE(*,601) PMV,PPD
WRITE(2,601) PMV,PPD
601 FORMAT(' PMV=',F6.3,' PPD=',F5.1)
C
close(2)
STOP
END
C-----------------------------------------------------
C
C PREDICTED MEAN VOTE CALCULATION SUBROUTINE
C
C-----------------------------------------------------
C////////////////////////////////////////////////////////
SUBROUTINE CALPMV(TA,XA,RMRT,V,RM,W,CLO,FCL,PMV)
C////////////////////////////////////////////////////////
C
DATA E,FEFF/0.97,0.71/
C
FCL=1.0+0.2*CLO
IF( CLO.GT.0.5 ) FCL=1.05+0.1*CLO
C
TSK=35.7-0.032*(RM-W)
PSK=1.92*TSK-25.3
PA=760.0*XA/(0.622+XA)
IC=0
TCL=0.5*(TSK+TA)
HCO=10.4*SQRT(V)
R=4.96E-8*E*FEFF*FCL
IF ( CLO.EQ.0.0 ) THEN
TCL=35.7-0.032*(RM-W)
GOTO 2
END IF
C
CLO1=1.0/(0.18*CLO)
C
1 IC=IC+1
HC=2.05*(ABS(TCL-TA))**0.25
HC=AMAX1(HC,HCO)
F=(TSK-TCL)*CLO1-R*((TCL+273.0)**4-(RMRT+273.0)**4)
+ -FCL*HC*(TCL-TA)
DF=-CLO1-R*4.0*(TCL+273.0)**3-FCL*HC
DTCL=-F/DF
TCL=TCL+DTCL
IF(ABS(DTCL).LT.0.001) GOTO 2
IF(IC.LE.20) GOTO 1
WRITE(6,600)
600 FORMAT(1H ,'***** PMV(TCL) DOES NOT CONVERGE *****')
STOP
C
2 CONTINUE
RL=RM-W-0.35*(PSK-PA)-0.42*(RM-W-50.0)-0.0023*RM*(44.0-PA)
+ -0.0014*RM*(34.0-TA)-R*((TCL+273.0)**4-(RMRT+273.0)**4)
+ -FCL*HC*(TCL-TA)
PMV=(0.352*EXP(-0.042*RM)+0.032)*RL
RETURN
END
C-----------------------------------------------------
C
C SUBROUTINE FOR CALCULATION OF ABSOLUTE HUMIDTY
C
C-----------------------------------------------------
C////////////////////////////////////////////////////////
SUBROUTINE XS(TAIR,FAI,XA)
C////////////////////////////////////////////////////////
T=TAIR+273.15
P1=11.344*(1.0-T/373.15)
P2=-3.49149*(373.15/T-1.0)
AA=ALOG(10.0)
E1=EXP(P1*AA)
E2=EXP(P2*AA)
A=5.02808*ALOG10(373.15/T)-7.90298*(373.15/T-1.0)
+ -1.3816E-7*(E1-1.0)+0.0081328*(E2-1.0)
PT=760.0*EXP(A*AA)
XA=0.622*PT*FAI/(76000.0-PT*FAI)
RETURN
END
【計算事例】
①入力
室内気温(℃)?===> 20.
室内相対湿度(%)?===> 50.
室内気流速度(m/s)?===> 0.1
代謝量(met)?===> 1.1
着衣量(clo)?===> 0.5
平均放射温度(℃)?===> 23.49
②結果
PMV=-1.323 PPD= 41.8