if( debug .and. ir_new == ir_test .and.(isec>=18.and.isec 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…

作成のスピードが問題。移動平均を作成中。現時点ではすべて0となってしまう。その場だけ平均できればよいので、配列に入れなくてもよい。

1仰角を取り出したデータでは移動平均が実施されていないため、平均する。 Zh;降水量に変更して平均、0mmはundef ρhv；単純平均。 両端はある個数で実施。