検索用キーワード： 配列 サイズ
real,allocatable :: x(:),y(:),uwnd(:,:)..........allocate(x(imcut),y(jmcut),uwnd(imcut,jmcut)) print *,"imcut= ",imcut print *,"jmcut= ",jmcut print *,"lbound(uwnd,1),ubound(uwnd,1)=",lbound(uwnd,1),ubound(uwnd,1) print *,"lbound(uwnd,2),ubound(uwnd,2)=",lbound(uwnd,2),ubound(uwnd,2)imcut= 191
jmcut= 261
lbound(uwnd,1),ubound(uwnd,1)= 1 191
lbound(uwnd,2),ubound(uwnd,2)= 1 261