c program read the lat/lon file and other files in the subdirectories c c Variables: c lat: latitude of the grid c lon: longitude of the grid c kdn: downward solar radiation (W/m*m) c pdn: downward photosynthetically active radiation (W/m*m) c ldn: downward infrared radiation (W/m*m) c rr: rainrate (mm/hr) c implicit none integer nx, ny parameter (nx=477,ny=295) real lat(nx,ny), lon(nx,ny) real kdn(nx,ny), pdn(nx,ny), ldn(nx,ny), rr(nx,ny) character fname*30 open (1,file='477x295_latlon.bin',form='unformatted',status='old') read (1) lat,lon close (1) call getarg(1,fname) open (1,file=fname,form='unformatted',status='old') read (1) kdn read (1) pdn read (1) ldn read (1) rr close (1) stop end