author | Forrest Hoffman <forrest@climatemodeling.org> |
Mon, 26 Jan 2009 22:08:20 -0500 | |
changeset 0 | 0c6405ab2ff4 |
permissions | -rw-r--r-- |
forrest@0 | 1 |
program to_read_int |
forrest@0 | 2 |
integer, parameter :: nlat = 180 * 20, nlon = 360 * 20, & |
forrest@0 | 3 |
recl = 2*nlat*nlon |
forrest@0 | 4 |
integer(2), dimension(nlat,nlon) :: data |
forrest@0 | 5 |
open(11,file='Npp_0.05deg_mean.int16',form='unformatted',& |
forrest@0 | 6 |
access='direct',recl=recl) |
forrest@0 | 7 |
read(11,rec=1)data |
forrest@0 | 8 |
close(11) |
forrest@0 | 9 |
do i = 1, nlon |
forrest@0 | 10 |
do j = 1, nlat |
forrest@0 | 11 |
write(*,*)data(j,i) |
forrest@0 | 12 |
end do |
forrest@0 | 13 |
enddo |
forrest@0 | 14 |
end |