[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