station data

[sh zhou]

Yeah, I made a bad mistake, I didn't write arguments into "stid.dat"


2009/5/31 sh zhou <sh.maeam at gmail.com>

> Dear All,
>
> I got a error  when used station data , the error message is as following:
> ###
> ga-> d r
> Low Level I/O Error:  Read error on data file
>   Data file name = stid.dat
>   Error reading 542200117 bytes at location 0
> Data Request Error:  Variable is 'r'
>   Error ocurred at column 1
> DISPLAY error:  Invalid expression
>   Expression = r
> ga->
> ###
> why in "location 0 " read a so huge data ?
>
> Station data is :
> ###
> Year Month Stid Lat    Lon    Rainfall
> 1980   1   QQQ  34.3    -85.5   123.3
> 1980   1   RRR  44.2    -84.5   87.1
> 1980   1   SSS  22.4    -83.5   412.8
> 1980   1   TTT  33.4    -82.5   23.3
> 1980   2   QQQ  34.3    -85.5   145.1
> 1980   2   RRR  44.2    -84.5   871.4
> 1980   2   SSS  22.4    -83.5   223.1
> 1980   2   TTT  33.4    -82.5   45.5
> ###
> The fortran code I used is :
> ###
>     PROGRAM for_read_stinfo
>
>     integer    ::    i,j,k, year, month, nflag
>     integer, parameter    :: ms = 4, ml = 1, mt = 2
>     integer, parameter    ::     nlev =  ml+1
>     character(8)    ::     stid(ms)
>     real, dimension(ms)    ::    rain, lat, lon
>     real    ::    dtime
>
>     nflag = 1
>     open(1000, file = 'stid.txt')
>     open(2000, file = 'stid.dat', form = 'binary')
>     read(1000,*)
>     do j = 1, mt
>         do i = 1, ms
>
>             read(1000,*) year , month, stid(i), lat(i), lon(i), rain(i)
>             write(*,*) year , month, stid(i), lat(i), lon(i), rain(i)
>
>         enddo
>
>         do i =1, ms
>             write(2000) stid(i), lat(i), lon(i), dtime, nlev, nflag
>         enddo
>
>         write(2000) stid(i), 0.0, 0.0, 0.0, 0, 0
>
>     enddo
>     write(2000) stid(i), 0.0, 0.0, 0.0, 0, 0
> !    ----------------------------------------------------------------
>     END
> ###
> My ".ctl" file is:
> ###
> DSET   stid.dat
> *DSET   rain.dat
> options sequential
> DTYPE  station
> STNMAP rain.map
> UNDEF  -999.0
> TITLE  Station Data Sample
> TDEF   2 linear jan1980 1mon
> VARS  1
> r     0  99  rainfall
> ENDVARS
> ###
> Please tell me what mistake I'v made.
> Thank you.
>
>
> Sincerely.
> --
> Shenghui                Student
>
> HuNan University .  China
>



--
Shenghui                Student
Major:                      Physics
HuNan University .  China
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://gradsusr.org/pipermail/gradsusr/attachments/20090531/6bdcc25d/attachment.html