<p>Hello All,<br>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 <a href="http://www.cpc.ncep.noaa.gov/data/snow/">http://www.cpc.ncep.noaa.gov/data/snow/</a>. On their website they have a link to grads.<br>
<br>The program they give for reading weekly 89*89 snow data is<br> <br>PROGRAM AREA<br>C*********************************************************************<br>C<br>C THIS PROGRAM SIMPLY READS IN THE SNOW DATA AND<br>C WRITES IT OUT FOR A GIVEN YEAR.<br>
C<br>C VARIABLES:<br>C<br>C ISNDAT - 89 X 89 SNOW DATA <br>C<br>C FILES:<br>C<br>C A YEAR OF WEEKLY SNOW DATA IS STORED IN A FILE WITH<br>C THE NAMING CONVENTION:<br>C<br>C wk19xx xx - is the year (ex. wk1973)<br>
C<br>C*********************************************************************</p>
<p> DIMENSION ISNDAT(89,89)<br> CHARACTER*1 ICHAR1,ICHAR2<br> OPEN(11,FILE='INFILE',<br> * FORM='FORMATTED',ACCESS='SEQUENTIAL')<br> OPEN(12,FILE='OUTFILE',<br> * FORM='FORMATTED',ACCESS='SEQUENTIAL')<br>
DO 199 LP = 1,52<br>C*********************************************************************<br>C<br>C READS IN THE WEEKLY SNOW DATA.<br>C<br>C*********************************************************************<br>
DO 200 I = 1,89<br> READ(11,100,END=10) IYEARS,IWKS,IROW,ICHAR1,(ISNDAT(I,J),J=1,45)<br> 100 FORMAT (I4,2I2,A1,45I1)<br> READ(11,101,END=10)IYEARS,IWKS,IROW,ICHAR2,(ISNDAT(I,J),J=46,89)<br> 101 FORMAT (I4,2I2,A1,44I1)<br>
C*********************************************************************<br>C<br>C WRITE OUT THE WEEKLY SNOW DATA.<br>C<br>C*********************************************************************<br> WRITE(12,100) IYEARS,IWKS,IROW,ICHAR1,(ISNDAT(I,J),J=1,45)<br>
WRITE(12,101) IYEARS,IWKS,IROW,ICHAR2,(ISNDAT(I,J),J=46,89)<br> 200 CONTINUE<br>READ(11,102) ICONST<br> 102 FORMAT(I4)<br>WRITE(12,102) ICONST<br>C<br> 199 CONTINUE<br> 10 CONTINUE<br>999 STOP<br>
END</p>
<p>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?<br>Thanks,<br>Bob R Duke</p>