途中では値が入っている。

if( debug .and. ir_new == ir_test .and.(isec>=18.and.isec<=21) ) then
write(92,'(''ORG:iran-sec='',2('','',i4),$)') iran,isec
write(92,'('',kdp sum cou='',3('','',f6.1))') &
!!! kdp1(isec,iran),sum_kdp(ir_new),cou(ir_new)
odata(iran,jelm,isec),sum_kdp(ir_new),cou(ir_new)
endif
では記録されている。

参考：http://www.geocities.jp/koshida_tomoki/picture/shin0809z.jpg

平均ではT=203で値がおかしくなっている。
また、odataが読み込めていない？
grads確認。
F:\jobs\2010mpx\mkgrads\elv8\mk100\d100data
【問題点の整理】
・odataが読み込めていない点−問題かもしれないが雨のあるところでは、それらしい値となっている。
・「mk100dat」の後で、データが来ていないことが問題。