오염확산론 (Wind Rose analysis)

소개글

오염확산론 (Wind Rose analysis)에 대한 보고서 자료입니다.

목차

□ 개요

￮ 원본 데이터 추출과정
￮ 풍속, 풍향별 데이터 counting (Fortran90)
￮ 데이터 수정 및 저장 (Work Sheet)
￮ 데이터 베이스 입력 후 Wind Rose 출력 (Origin)
￮ 참고자료

본문내용

(num).and.wind_s(num)<5.5).and.(wind_d(num)=="ESE"))then
k3=k3+1
else if((5.0<=wind_s(num).and.wind_s(num)<5.5).and.(wind_d(num)=="SSE"))then
k4=k4+1
else if((5.0<=wind_s(num).and.wind_s(num)<5.5).and.(wind_d(num)=="SSW"))then
k5=k5+1
else if((5.0<=wind_s(num).and.wind_s(num)<5.5).and.(wind_d(num)=="WSW"))then
k6=k6+1
else if((5.0<=wind_s(num).and.wind_s(num)<5.5).and.(wind_d(num)=="NNW"))then
k7=k7+1
else if((5.5<=wind_s(num).and.wind_s(num)<6.0).and.(wind_d(num)=="NNE"))then
l1=l1+1
else if((5.5<=wind_s(num).and.wind_s(num)<6.0).and.(wind_d(num)=="ENE"))then
l2=l2+1
else if((5.5<=wind_s(num).and.wind_s(num)<6.0).and.(wind_d(num)=="ESE"))then
l3=l3+1
else if((5.5<=wind_s(num).and.wind_s(num)<6.0).and.(wind_d(num)=="SSE"))then
l4=l4+1
else if((5.5<=wind_s(num).and.wind_s(num)<6.0).and.(wind_d(num)=="SSW"))then
l5=l5+1
else if((5.5<=wind_s(num).and.wind_s(num)<6.0).and.(wind_d(num)=="WSW"))then
l6=l6+1
else if((5.5<=wind_s(num).and.wind_s(num)<6.0).and.(wind_d(num)=="NNW"))then
l7=l7+1
else if((6.0<=wind_s(num).and.wind_s(num)<6.5).and.(wind_d(num)=="NNE"))then
m1=m1+1
else if((6.0<=wind_s(num).and.wind_s(num)<6.5).and.(wind_d(num)=="ENE"))then
m2=m2+1
else if((6.0<=wind_s(num).and.wind_s(num)<6.5).and.(wind_d(num)=="ESE"))then
m3=m3+1
else if((6.0<=wind_s(num).and.wind_s(num)<6.5).and.(wind_d(num)=="SSE"))then
m4=m4+1
else if((6.0<=wind_s(num).and.wind_s(num)<6.5).and.(wind_d(num)=="SSW"))then
m5=m5+1
else if((6.0<=wind_s(num).and.wind_s(num)<6.5).and.(wind_d(num)=="WSW"))then
m6=m6+1
else if((6.0<=wind_s(num).and.wind_s(num)<6.5).and.(wind_d(num)=="NNW"))then
m7=m7+1
else if((6.5<=wind_s(num).and.wind_s(num)<7.0).and.(wind_d(num)=="NNE"))then
n1=n1+1
else if((6.5<=wind_s(num).and.wind_s(num)<7.0).and.(wind_d(num)=="ENE"))then
n2=n2+1
else if((6.5<=wind_s(num).and.wind_s(num)<7.0).and.(wind_d(num)=="ESE"))then
n3=n3+1
else if((6.5<=wind_s(num).and.wind_s(num)<7.0).and.(wind_d(num)=="SSE"))then
n4=n4+1
else if((6.5<=wind_s(num).and.wind_s(num)<7.0).and.(wind_d(num)=="SSW"))then
n5=n5+1
else if((6.5<=wind_s(num).and.wind_s(num)<7.0).and.(wind_d(num)=="WSW"))then
n6=n6+1
else if((6.5<=wind_s(num).and.wind_s(num)<7.0).and.(wind_d(num)=="NNW"))then
n7=n7+1
endif
enddo
print'7(2x,i2)',a1,a2,a3,a4,a5,a6,a7,b1,b2,b3,b4,b5,b6,b7,c1,c2,c3,c4,c5,c6,c7,&
&d1,d2,d3,d4,d5,d6,d7,e1,e2,e3,e4,e5,e6,e7,f1,f2,f3,f4,f5,f6,f7,g1,g2,&
&g3,g4,g5,g6,g7,h1,h2,h3,h4,h5,h6,h7,i1,i2,i3,i4,i5,i6,i7,j1,j2,j3,j4,&
&j5,j6,j7,k1,k2,k3,k4,k5,k6,k7,l1,l2,l3,l4,l5,l6,l7,m1,m2,m3,m4,m5,m6,m7,&
&n1,n2,n3,n4,n5,n6,n7
!---------------------------------------------------------------------------------------------
endprogram wrose_3
- 풍향과 풍속의 빈도수를 결과 값 저장 (5)
□ 데이터 수정 및 저장 (Work Sheet)
- MS Excel을 이용하여 풍속의 데이터 범례 수정 후 저장
□ 데이터 베이스 입력 후 Wind Rose 출력 (Origin)
- Origin을 이용하여 각 방위별 풍속의 빈도수 입력, 방위별 각도 환산 후 입력 (1)
NNW : 22.5°
ENE : 67.5°
ESE : 112.5°
SSE : 157.5°
SSW : 202.5°
WSW : 247.5°
NNW : 337.5°
- 데이터 베이스에 근거한 Wind Rose 출력
□ 참고자료
- www.google.co.kr로 접속 후, Origin에서 Wind Rose 출력하는 방법 참고

키워드

오염확산론 ,   Wind Rose analysis,   오염,   풍향별 데이터,   기상청,   데이터,   풍속 데이터