配列の寸法を調べる

検索用キーワード：配列サイズ

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