Recipe: Fortran program as OPeNDAP client: Difference between revisions
| Line 52: | Line 52: | ||
! ------------------ | ! ------------------ | ||
write(*,*)'Reading T' | write(*,*)'Reading T' | ||
call check( nf90_open(T_file,NF90_NOWRITE,ncid), "opening T file") | call check(nf90_open(T_file,NF90_NOWRITE,ncid), "opening T file") | ||
call check( nf90_inq_varid(ncid,"t",varid), "getting T varid") | call check(nf90_inq_varid(ncid,"t",varid), "getting T varid") | ||
call check( nf90_get_var(ncid,varid,T,start=start,count=count), "reading T") | call check(nf90_get_var(ncid,varid,T,start=start,count=count), "reading T") | ||
call check( nf90_close(ncid), "closing T file") | call check(nf90_close(ncid), "closing T file") | ||
! Print min/max of arrays | ! Print min/max of arrays | ||