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