program test_read_zonal_csrbs

c     Read HIRS monthly zonbal mean CSRBs and print out.

      character*180 csrb_file
      integer debug
      real*4 csrbs(180,8,3)

      
c     data csrb_file /'/data/richardf/HIRS/run2/METOPA_200907_zonal_monthly_HIRS_CSRBs_ncep1_v4.5.bin'/
c     data csrb_file /'/data/richardf/HIRS/HIRS_CSRB_monthly_files_v5.3/NOAA-18_200804/test_csrbs.bin'/
      data csrb_file /'/odyssey/trends/csrb/monthly/noaa-18/2008/MEAN.MONTHLY.noaa-18.2008.04.bin'/
      data debug /1/

      
      call get_csrbs(debug, csrb_file, csrbs)

      end