[gradsusr] Help new to grads
bob duker
dukerbob at gmail.com
Wed May 5 01:08:11 EDT 2010
Hello All,
I'm doing snow Research and looking for a program to covert the climate
prediction center (CPC) Northern Hemosphere raw weekly snow data (in 1's and
0's) into a useable number. I don't have much coding experience or computer
science background, so i'm not sure how to covert the data myself, or what
program to use. Also I don't have any fortran compiler. The CPC does covert
the data into a nice table format, but they don't keep it up todate. Their
website is http://www.cpc.ncep.noaa.gov/data/snow/. On their website they
have a link to grads.
The program they give for reading weekly 89*89 snow data is
PROGRAM AREA
C*********************************************************************
C
C THIS PROGRAM SIMPLY READS IN THE SNOW DATA AND
C WRITES IT OUT FOR A GIVEN YEAR.
C
C VARIABLES:
C
C ISNDAT - 89 X 89 SNOW DATA
C
C FILES:
C
C A YEAR OF WEEKLY SNOW DATA IS STORED IN A FILE WITH
C THE NAMING CONVENTION:
C
C wk19xx xx - is the year (ex. wk1973)
C
C*********************************************************************
DIMENSION ISNDAT(89,89)
CHARACTER*1 ICHAR1,ICHAR2
OPEN(11,FILE='INFILE',
* FORM='FORMATTED',ACCESS='SEQUENTIAL')
OPEN(12,FILE='OUTFILE',
* FORM='FORMATTED',ACCESS='SEQUENTIAL')
DO 199 LP = 1,52
C*********************************************************************
C
C READS IN THE WEEKLY SNOW DATA.
C
C*********************************************************************
DO 200 I = 1,89
READ(11,100,END=10) IYEARS,IWKS,IROW,ICHAR1,(ISNDAT(I,J),J=1,45)
100 FORMAT (I4,2I2,A1,45I1)
READ(11,101,END=10)IYEARS,IWKS,IROW,ICHAR2,(ISNDAT(I,J),J=46,89)
101 FORMAT (I4,2I2,A1,44I1)
C*********************************************************************
C
C WRITE OUT THE WEEKLY SNOW DATA.
C
C*********************************************************************
WRITE(12,100) IYEARS,IWKS,IROW,ICHAR1,(ISNDAT(I,J),J=1,45)
WRITE(12,101) IYEARS,IWKS,IROW,ICHAR2,(ISNDAT(I,J),J=46,89)
200 CONTINUE
READ(11,102) ICONST
102 FORMAT(I4)
WRITE(12,102) ICONST
C
199 CONTINUE
10 CONTINUE
999 STOP
END
I'm using windows 7 64bit operating system. My question is how do i use
grads to view the snow data or is there a fortran compiler the above program
will work on that i should use instead?
Thanks,
Bob R Duke
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://gradsusr.org/pipermail/gradsusr/attachments/20100505/bbee8fa1/attachment-0003.html
More information about the gradsusr
mailing list