急求ncl程序问题原因

zsiqi

本人编了一段ncl程序，用于将netcdf转为bin，程序运行显示segmentation fault，求大神指教！！！
;  Open pressure data
    if (isfilepresent(Source_monthly_File_PATH_pressure+"air.mon.mean.nc")) then
      f01 = addfile(Source_monthly_File_PATH_pressure+"air.mon.mean.nc","r")
    else
      print("File "+Source_monthly_File_PATH_pressure+"air.mon.mean.nc NOT exist!")
    end if

;
;   Extract the variable data from NetCDF file
;
    air  = f01->air

;
;  Calculate monthly data
;
    data_monthly_air  = air  * air@scale_factor  + air@add_offset
    delete(air)
;
    f_time = f01->time
    n_time = dimsizes(f_time)-1
    utc_date = ut_calendar(f_time,0)
    delete(f_time)
    do i = n_time-4, n_time
      data_year  = utc_date(i,0)
      data_month = utc_date(i,1)
      c_file_year = flt2string(data_year)
      if ( data_month.lt.10 ) then
         c_file_month = "0" + flt2string(data_month)
      else
         c_file_month = flt2string(data_month)
      end if
      print(c_file_year+c_file_month)
;
;  Output monthly data
;
       file_name = monthly_File_PATH_pressure+"mon_"+c_file_year+c_file_month+".bin"
       if (isfilepresent(file_name)) then
           system("rm -f "+file_name)
       end if
       do k = 0, 23
          fbindirwrite(file_name, data_monthly_air(i,k,::-1,:))
       end do

    end do
end

longlivehj

最好能用print之类的找找看是运行到哪一行出现的问题。