Á¦¸ñ : ¿À¿°È®»ê·Ð (Wind Rose analysis)
¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡¦¡
¡à °³¿ä
? ¿øº» µ¥ÀÌÅÍ ÃßÃâ°úÁ¤
? dz¼Ó, dzÇ⺰ µ¥ÀÌÅÍ counting (Fortran90)
? µ¥ÀÌÅÍ ¼öÁ¤ ¹× ÀúÀå (Work Sheet)
? µ¥ÀÌÅÍ º£À̽º ÀÔ·Â ÈÄ Wind Rose Ãâ·Â (Origin)
? Âü°íÀÚ·á
¡à ¿øº» µ¥ÀÌÅÍ ÃßÃâ°úÁ¤
- ±â»óû ȨÆäÀÌÁö(www.kma.go.kr)·Î Á¢¼Ó ÈÄ, ÇÑ ´Þ°£ÀÇ Ç³Çâ°ú dz¼ÓºÐ¼®¿¡ °üÇÑ
AWS µ¥ÀÌÅ͸¦ ¹ÞÀ½. (1)
´ë»óÁö¿ª : Àü³² ¼øõ
±â °£ : 2007/08/01 00:00 ~ 08/31 23:00
ÀÚ·áÇüÅ : 1 ¡¿ 1 Çü½Ä, 16¹æÀ§
1ºÐ Æò±Õ ÀÚ·á
ÀÏÀÏ 60ºÐ ´ÜÀ§ ÀÚ·á
- Fortran90 ÇÁ·Î±×·¡¹ÖÀ» À§ÇØ Work Sheet(MS Exel2007)¸¦ ÀÌ¿ëÇÏ¿©, ¿øº» µ¥ÀÌÅ͸¦ ¡®°ø¹é
À¸·Î ºÐ¸®¡¯ÇÑ ÇüÅ·ΠÀúÀå ÈÄ, ÅؽºÆ® ÆÄÀÏ·Î Àüȯ ÈÄ ´Ù½Ã ÀúÀå. (2)
¡à dz¼Ó, dzÇ⺰ µ¥ÀÌÅÍ counting (Fortran90)
- PC·ÎºÎÅÍ Text ÆÄÀÏÀ» ¼¹ö·Î ´Ù¿î·Îµå (1)
- Fortran90À» ÀÌ¿ëÇÏ¿© AWS µ¥ÀÌÅÍ Áß Çʿ䡦(»ý·«)
|
---------------------------
program wrose_2
!---------------------------------------Declar a Variable-------------------------------------
implicit none
integer :: num
real,dimension(744) :: wind_s
character(3),dimension(744) :: wind_d
!----------------------------------------Executive(1)-----------------------------------------
do num=1,744
open(10,file=`wind_ds.txt`,status=`old`,form=`formatted`)
read(10,`a3,2x,f4.1`)wind_d(num),wind_s(num)
open(20,file=`wind_fin.txt`,status=`unknown`,form=`formatted`)
if(wind_d(num)=="N")then
print`(a,2x,f4.1)`,wind_d(num),wind_s(num)
write(20,`a,2x,f4.1`)wind_d(num),wind_s(num)
else if(wind_d(num)=="NNE")then
print`(a,2x,f4.1)`,wind_d(num),wind_s(num)
write(20,`a,2x,f4.1`)wind_d(num),wind_s(num)
else if(wind_d(num)=="NE")then
print`(a,2x,f4.1)`,wind_d(num),wind_s(num)