[派生类型] 派生结构读取数据问题

TYPE type_rad_FY3
        INTEGER :: yyyy,mn,dd,hh,mm,ss
        INTEGER :: iscanline,iscanpos
        REAL*4  :: rlat,rlon !lat/lon in degrees for Anfovs
        INTEGER :: isurf_height, isurf_type !height/type for Anfovs
        REAL*4  :: satzen,satazi,solzen,solazi !scan angles for Anfovs
        REAL*4  :: tbb(20) !bright temperatures
!       REAL*4  :: btemps(20)
        INTEGER :: iavhrr(13),ihirsflag
        INTEGER :: iprepro(5) ! values from pre-processing
        REAL*4  :: clfra ! Cloud cover (<1.0)
        REAL*4  :: ts ! Skin temperature
        REAL*4  :: tctop ! Cloud top temperature
END TYPE type_rad_FY3

do iscan=1,nscan
    
         ! 1.0     Read fy3 data
         read(lnbufr,end=1000) rad !//此句
         num_tovs_file = num_tovs_file + 1
         ! 2.0     Extract observation location and other required information
         !     QC1:  judge if data is in the domain, read next record if not
         !------------------------------------------------------------------------
         ! rlat = bfr1bhdr(bufr_lat)
         ! rlon = bfr1bhdr(bufr_lat)
         ! if (rlon < 0.0) rlon = rlon+360.0
         info%lon=rad%rlon
         info%lat=rad%rlat
!         call da_llxy(info,loc,outsside,outside_all)
         if (outside_all) cycle
         
         ifov=rad%iscanpos
         year=rad%yyyy
         month=rad%mm
         day=rad%dd
         hour=rad%hh
         minute=rad%mm
         second=rad%ss
......