(NetcdfPerl)変数を調べる

varidコマンドで変数ＩＤを取得する

$varid = NetCDF::varid($ncid,"変数名");

#!/usr/bin/perl

use NetCDF;



my $i,$infile;

my $ncid,$varid;



$ncid = NetCDF::open("$infile",NetCDF::NOWRITE);



### １次元変数 Z　を読む #####

$varid = NetCDF::varid($ncid,"Z");



@start =(0); #読み取る最初の位置#

@count =($Z_NUM); #読み取る最後の位置#



#\@ は 配列の先頭のポインタ#

NetCDF::varget($ncid,$varid,\@start,\@count,\@Height);

print "@Height \n"; #1次元データとして読み込まれる#



### ３次元変数 RH　を読む #####

$varid = NetCDF::varid($ncid,"RH");



#配列の順番はC言語と一緒#

@start =(0,0,0); #読み取る最初の位置#

@count =($Z_NUM,$Y_NUM,$X_NUM); #読み取る最後の位置#





#\@ は 配列の先頭のポインタ#

NetCDF::varget($ncid,$varid,\@start,\@count,\@RH);

print "@RH \n";

#1次元データとして読み込まれる

#(0,0,0),・・(0,0,X_NUM),(0,1,1),・・(0,Y_NUM,X_NUM),(1,0,0),・・

#(Z_NUM,Y_NUM,X_NUM)の順番に１次元データとなる#