Skip to content. | Skip to navigation

Personal tools

amsua_bt_rdr.f

! This function is autogenerated by the mkezio program to read ! an AIRS swath of type "L1B_AMSU" from file given by the ! file_name argument into a buffer pointed to by the amsua_bt_gran ! argument. The caller owns the buffer. The entire granule ! is read -- every attribute and field, the whole lat/lon/time ! extent. ! ! Errors opening the file, etc. are fatal and cause STOP. ! Problems reading individual attributes or fields are reported to ! the console but do not interrupt program flow. subroutine amsua_bt_rdr(file_name, amsua_bt_gran) IMPLICIT NONE INCLUDE 'amsua_bt_typ.inc' INCLUDE 'amsua_bt_struct.inc' character*(*) file_name RECORD /amsua_bt_gran_t/ amsua_bt_gran integer statn ! HDF-EOS status. 0 for success integer fid ! HDF-EOS file ID integer swid ! HDF-EOS swath ID integer nchar ! Number of characters character*256 swathname ! Name of swath integer nswath ! Number of swaths integer start(10) /0,0,0,0,0, 0,0,0,0,0/ ! start of each dimensions for Swath I/O ! 0 => start with first element integer stride(10)/1,1,1,1,1, 1,1,1,1,1/ ! stride of each dimensions for Swath I/O ! 1 => use every element integer edge(10) ! size of each dimension for swath I/O ! will be set for each individual read integer swopen, swinqswath, swattach integer swrdfld, swrdattr integer swdetach, swclose fid = swopen(file_name, 1) if (fid .eq. -1) then print *, "Error ", fid, " opening file ", file_name stop end if ! Get name of swath(s) nswath = swinqswath(file_name, swathname, nchar) if (nswath .ne. 1) then print *, "swinqswath found ", nswath, " swaths for file ", & file_name, " Need exactly 1" stop end if ! There's exactly one swath. Make sure it is the right one. if (swathname .ne. & 'L1B_AMSU') then print *, "Error: bad swath name ", swathname, " in file ", & file_name print *, "Expected L1B_AMSU" stop end if ! Attach to (open) the one swath. swid = swattach(fid, swathname) if (swid .eq. -1) then print *, "Failed to attach to swath ", swathname, & " in file ", file_name stop end if ! Attributes statn = swrdattr(swid, "processing_level", & amsua_bt_gran.processing_level) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "processing_level" statn = swrdattr(swid, "instrument", & amsua_bt_gran.instrument) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "instrument" statn = swrdattr(swid, "DayNightFlag", & amsua_bt_gran.DayNightFlag) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "DayNightFlag" statn = swrdattr(swid, "AutomaticQAFlag", & amsua_bt_gran.AutomaticQAFlag) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "AutomaticQAFlag" statn = swrdattr(swid, "NumTotalData", & amsua_bt_gran.NumTotalData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumTotalData" statn = swrdattr(swid, "NumProcessData", & amsua_bt_gran.NumProcessData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumProcessData" statn = swrdattr(swid, "NumSpecialData", & amsua_bt_gran.NumSpecialData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumSpecialData" statn = swrdattr(swid, "NumBadData", & amsua_bt_gran.NumBadData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumBadData" statn = swrdattr(swid, "NumMissingData", & amsua_bt_gran.NumMissingData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumMissingData" statn = swrdattr(swid, "NumLandSurface", & amsua_bt_gran.NumLandSurface) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumLandSurface" statn = swrdattr(swid, "NumOceanSurface", & amsua_bt_gran.NumOceanSurface) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumOceanSurface" statn = swrdattr(swid, "node_type", & amsua_bt_gran.node_type) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "node_type" statn = swrdattr(swid, "start_year", & amsua_bt_gran.start_year) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_year" statn = swrdattr(swid, "start_month", & amsua_bt_gran.start_month) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_month" statn = swrdattr(swid, "start_day", & amsua_bt_gran.start_day) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_day" statn = swrdattr(swid, "start_hour", & amsua_bt_gran.start_hour) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_hour" statn = swrdattr(swid, "start_minute", & amsua_bt_gran.start_minute) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_minute" statn = swrdattr(swid, "start_sec", & amsua_bt_gran.start_sec) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_sec" statn = swrdattr(swid, "start_orbit", & amsua_bt_gran.start_orbit) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_orbit" statn = swrdattr(swid, "end_orbit", & amsua_bt_gran.end_orbit) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_orbit" statn = swrdattr(swid, "orbit_path", & amsua_bt_gran.orbit_path) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "orbit_path" statn = swrdattr(swid, "start_orbit_row", & amsua_bt_gran.start_orbit_row) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_orbit_row" statn = swrdattr(swid, "end_orbit_row", & amsua_bt_gran.end_orbit_row) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_orbit_row" statn = swrdattr(swid, "granule_number", & amsua_bt_gran.granule_number) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "granule_number" statn = swrdattr(swid, "num_scansets", & amsua_bt_gran.num_scansets) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_scansets" statn = swrdattr(swid, "num_scanlines", & amsua_bt_gran.num_scanlines) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_scanlines" statn = swrdattr(swid, "start_Latitude", & amsua_bt_gran.start_Latitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_Latitude" statn = swrdattr(swid, "start_Longitude", & amsua_bt_gran.start_Longitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_Longitude" statn = swrdattr(swid, "start_Time", & amsua_bt_gran.start_Time) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_Time" statn = swrdattr(swid, "end_Latitude", & amsua_bt_gran.end_Latitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_Latitude" statn = swrdattr(swid, "end_Longitude", & amsua_bt_gran.end_Longitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_Longitude" statn = swrdattr(swid, "end_Time", & amsua_bt_gran.end_Time) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_Time" statn = swrdattr(swid, "eq_x_longitude", & amsua_bt_gran.eq_x_longitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "eq_x_longitude" statn = swrdattr(swid, "eq_x_tai", & amsua_bt_gran.eq_x_tai) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "eq_x_tai" statn = swrdattr(swid, "orbitgeoqa", & amsua_bt_gran.orbitgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "orbitgeoqa" statn = swrdattr(swid, "num_satgeoqa", & amsua_bt_gran.num_satgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_satgeoqa" statn = swrdattr(swid, "num_glintgeoqa", & amsua_bt_gran.num_glintgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_glintgeoqa" statn = swrdattr(swid, "num_moongeoqa", & amsua_bt_gran.num_moongeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_moongeoqa" statn = swrdattr(swid, "num_ftptgeoqa", & amsua_bt_gran.num_ftptgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_ftptgeoqa" statn = swrdattr(swid, "num_zengeoqa", & amsua_bt_gran.num_zengeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_zengeoqa" statn = swrdattr(swid, "num_demgeoqa", & amsua_bt_gran.num_demgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_demgeoqa" statn = swrdattr(swid, "num_fpe", & amsua_bt_gran.num_fpe) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_fpe" statn = swrdattr(swid, "LonGranuleCen", & amsua_bt_gran.LonGranuleCen) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "LonGranuleCen" statn = swrdattr(swid, "LatGranuleCen", & amsua_bt_gran.LatGranuleCen) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "LatGranuleCen" statn = swrdattr(swid, "LocTimeGranuleCen", & amsua_bt_gran.LocTimeGranuleCen) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "LocTimeGranuleCen" statn = swrdattr(swid, "num_scanlines_not_norm_mode_a1", & amsua_bt_gran.num_scanlines_not_norm_mode_a1) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_scanlines_not_norm_mode_a1" statn = swrdattr(swid, "num_scanlines_not_norm_mode_a2", & amsua_bt_gran.num_scanlines_not_norm_mode_a2) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_scanlines_not_norm_mode_a2" statn = swrdattr(swid, "num_missing_scanlines_a1", & amsua_bt_gran.num_missing_scanlines_a1) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_missing_scanlines_a1" statn = swrdattr(swid, "num_missing_scanlines_a2", & amsua_bt_gran.num_missing_scanlines_a2) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_missing_scanlines_a2" statn = swrdattr(swid, "num_data_gaps_a1", & amsua_bt_gran.num_data_gaps_a1) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_data_gaps_a1" statn = swrdattr(swid, "num_data_gaps_a2", & amsua_bt_gran.num_data_gaps_a2) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_data_gaps_a2" statn = swrdattr(swid, "num_instr_mode_changes_a1", & amsua_bt_gran.num_instr_mode_changes_a1) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_instr_mode_changes_a1" statn = swrdattr(swid, "num_instr_mode_changes_a2", & amsua_bt_gran.num_instr_mode_changes_a2) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_instr_mode_changes_a2" statn = swrdattr(swid, "num_scanlines_rec_cal_prob_a11", & amsua_bt_gran.num_scanlines_rec_cal_prob_a11) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_scanlines_rec_cal_prob_a11" statn = swrdattr(swid, "num_scanlines_rec_cal_prob_a12", & amsua_bt_gran.num_scanlines_rec_cal_prob_a12) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_scanlines_rec_cal_prob_a12" statn = swrdattr(swid, "num_scanlines_rec_cal_prob_a2", & amsua_bt_gran.num_scanlines_rec_cal_prob_a2) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_scanlines_rec_cal_prob_a2" statn = swrdattr(swid, "num_scanlines_sig_coast_xing", & amsua_bt_gran.num_scanlines_sig_coast_xing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_scanlines_sig_coast_xing" statn = swrdattr(swid, "num_scanlines_sig_sun_glint", & amsua_bt_gran.num_scanlines_sig_sun_glint) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_scanlines_sig_sun_glint" statn = swrdattr(swid, "MoonInViewMWCount", & amsua_bt_gran.MoonInViewMWCount) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "MoonInViewMWCount" statn = swrdattr(swid, "QA_bb_PRT_a11.min", & amsua_bt_gran.QA_bb_PRT_a11.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a11.min" statn = swrdattr(swid, "QA_bb_PRT_a11.max", & amsua_bt_gran.QA_bb_PRT_a11.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a11.max" statn = swrdattr(swid, "QA_bb_PRT_a11.mean", & amsua_bt_gran.QA_bb_PRT_a11.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a11.mean" statn = swrdattr(swid, "QA_bb_PRT_a11.dev", & amsua_bt_gran.QA_bb_PRT_a11.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a11.dev" statn = swrdattr(swid, "QA_bb_PRT_a11.num_in", & amsua_bt_gran.QA_bb_PRT_a11.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a11.num_in" statn = swrdattr(swid, "QA_bb_PRT_a11.num_lo", & amsua_bt_gran.QA_bb_PRT_a11.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a11.num_lo" statn = swrdattr(swid, "QA_bb_PRT_a11.num_hi", & amsua_bt_gran.QA_bb_PRT_a11.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a11.num_hi" statn = swrdattr(swid, "QA_bb_PRT_a11.num_bad", & amsua_bt_gran.QA_bb_PRT_a11.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a11.num_bad" statn = swrdattr(swid, "QA_bb_PRT_a11.range_min", & amsua_bt_gran.QA_bb_PRT_a11.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a11.range_min" statn = swrdattr(swid, "QA_bb_PRT_a11.range_max", & amsua_bt_gran.QA_bb_PRT_a11.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a11.range_max" statn = swrdattr(swid, "QA_bb_PRT_a11.missing", & amsua_bt_gran.QA_bb_PRT_a11.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a11.missing" statn = swrdattr(swid, "QA_bb_PRT_a11.max_track", & amsua_bt_gran.QA_bb_PRT_a11.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a11.max_track" statn = swrdattr(swid, "QA_bb_PRT_a11.max_xtrack", & amsua_bt_gran.QA_bb_PRT_a11.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a11.max_xtrack" statn = swrdattr(swid, "QA_bb_PRT_a11.min_track", & amsua_bt_gran.QA_bb_PRT_a11.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a11.min_track" statn = swrdattr(swid, "QA_bb_PRT_a11.min_xtrack", & amsua_bt_gran.QA_bb_PRT_a11.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a11.min_xtrack" statn = swrdattr(swid, "QA_bb_PRT_a12.min", & amsua_bt_gran.QA_bb_PRT_a12.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a12.min" statn = swrdattr(swid, "QA_bb_PRT_a12.max", & amsua_bt_gran.QA_bb_PRT_a12.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a12.max" statn = swrdattr(swid, "QA_bb_PRT_a12.mean", & amsua_bt_gran.QA_bb_PRT_a12.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a12.mean" statn = swrdattr(swid, "QA_bb_PRT_a12.dev", & amsua_bt_gran.QA_bb_PRT_a12.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a12.dev" statn = swrdattr(swid, "QA_bb_PRT_a12.num_in", & amsua_bt_gran.QA_bb_PRT_a12.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a12.num_in" statn = swrdattr(swid, "QA_bb_PRT_a12.num_lo", & amsua_bt_gran.QA_bb_PRT_a12.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a12.num_lo" statn = swrdattr(swid, "QA_bb_PRT_a12.num_hi", & amsua_bt_gran.QA_bb_PRT_a12.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a12.num_hi" statn = swrdattr(swid, "QA_bb_PRT_a12.num_bad", & amsua_bt_gran.QA_bb_PRT_a12.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a12.num_bad" statn = swrdattr(swid, "QA_bb_PRT_a12.range_min", & amsua_bt_gran.QA_bb_PRT_a12.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a12.range_min" statn = swrdattr(swid, "QA_bb_PRT_a12.range_max", & amsua_bt_gran.QA_bb_PRT_a12.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a12.range_max" statn = swrdattr(swid, "QA_bb_PRT_a12.missing", & amsua_bt_gran.QA_bb_PRT_a12.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a12.missing" statn = swrdattr(swid, "QA_bb_PRT_a12.max_track", & amsua_bt_gran.QA_bb_PRT_a12.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a12.max_track" statn = swrdattr(swid, "QA_bb_PRT_a12.max_xtrack", & amsua_bt_gran.QA_bb_PRT_a12.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a12.max_xtrack" statn = swrdattr(swid, "QA_bb_PRT_a12.min_track", & amsua_bt_gran.QA_bb_PRT_a12.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a12.min_track" statn = swrdattr(swid, "QA_bb_PRT_a12.min_xtrack", & amsua_bt_gran.QA_bb_PRT_a12.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a12.min_xtrack" statn = swrdattr(swid, "QA_bb_PRT_a2.min", & amsua_bt_gran.QA_bb_PRT_a2.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a2.min" statn = swrdattr(swid, "QA_bb_PRT_a2.max", & amsua_bt_gran.QA_bb_PRT_a2.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a2.max" statn = swrdattr(swid, "QA_bb_PRT_a2.mean", & amsua_bt_gran.QA_bb_PRT_a2.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a2.mean" statn = swrdattr(swid, "QA_bb_PRT_a2.dev", & amsua_bt_gran.QA_bb_PRT_a2.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a2.dev" statn = swrdattr(swid, "QA_bb_PRT_a2.num_in", & amsua_bt_gran.QA_bb_PRT_a2.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a2.num_in" statn = swrdattr(swid, "QA_bb_PRT_a2.num_lo", & amsua_bt_gran.QA_bb_PRT_a2.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a2.num_lo" statn = swrdattr(swid, "QA_bb_PRT_a2.num_hi", & amsua_bt_gran.QA_bb_PRT_a2.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a2.num_hi" statn = swrdattr(swid, "QA_bb_PRT_a2.num_bad", & amsua_bt_gran.QA_bb_PRT_a2.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a2.num_bad" statn = swrdattr(swid, "QA_bb_PRT_a2.range_min", & amsua_bt_gran.QA_bb_PRT_a2.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a2.range_min" statn = swrdattr(swid, "QA_bb_PRT_a2.range_max", & amsua_bt_gran.QA_bb_PRT_a2.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a2.range_max" statn = swrdattr(swid, "QA_bb_PRT_a2.missing", & amsua_bt_gran.QA_bb_PRT_a2.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a2.missing" statn = swrdattr(swid, "QA_bb_PRT_a2.max_track", & amsua_bt_gran.QA_bb_PRT_a2.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a2.max_track" statn = swrdattr(swid, "QA_bb_PRT_a2.max_xtrack", & amsua_bt_gran.QA_bb_PRT_a2.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a2.max_xtrack" statn = swrdattr(swid, "QA_bb_PRT_a2.min_track", & amsua_bt_gran.QA_bb_PRT_a2.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a2.min_track" statn = swrdattr(swid, "QA_bb_PRT_a2.min_xtrack", & amsua_bt_gran.QA_bb_PRT_a2.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_bb_PRT_a2.min_xtrack" statn = swrdattr(swid, "QA_rec_PRT_a11.min", & amsua_bt_gran.QA_rec_PRT_a11.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a11.min" statn = swrdattr(swid, "QA_rec_PRT_a11.max", & amsua_bt_gran.QA_rec_PRT_a11.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a11.max" statn = swrdattr(swid, "QA_rec_PRT_a11.mean", & amsua_bt_gran.QA_rec_PRT_a11.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a11.mean" statn = swrdattr(swid, "QA_rec_PRT_a11.dev", & amsua_bt_gran.QA_rec_PRT_a11.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a11.dev" statn = swrdattr(swid, "QA_rec_PRT_a11.num_in", & amsua_bt_gran.QA_rec_PRT_a11.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a11.num_in" statn = swrdattr(swid, "QA_rec_PRT_a11.num_lo", & amsua_bt_gran.QA_rec_PRT_a11.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a11.num_lo" statn = swrdattr(swid, "QA_rec_PRT_a11.num_hi", & amsua_bt_gran.QA_rec_PRT_a11.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a11.num_hi" statn = swrdattr(swid, "QA_rec_PRT_a11.num_bad", & amsua_bt_gran.QA_rec_PRT_a11.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a11.num_bad" statn = swrdattr(swid, "QA_rec_PRT_a11.range_min", & amsua_bt_gran.QA_rec_PRT_a11.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a11.range_min" statn = swrdattr(swid, "QA_rec_PRT_a11.range_max", & amsua_bt_gran.QA_rec_PRT_a11.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a11.range_max" statn = swrdattr(swid, "QA_rec_PRT_a11.missing", & amsua_bt_gran.QA_rec_PRT_a11.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a11.missing" statn = swrdattr(swid, "QA_rec_PRT_a11.max_track", & amsua_bt_gran.QA_rec_PRT_a11.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a11.max_track" statn = swrdattr(swid, "QA_rec_PRT_a11.max_xtrack", & amsua_bt_gran.QA_rec_PRT_a11.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a11.max_xtrack" statn = swrdattr(swid, "QA_rec_PRT_a11.min_track", & amsua_bt_gran.QA_rec_PRT_a11.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a11.min_track" statn = swrdattr(swid, "QA_rec_PRT_a11.min_xtrack", & amsua_bt_gran.QA_rec_PRT_a11.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a11.min_xtrack" statn = swrdattr(swid, "QA_rec_PRT_a12.min", & amsua_bt_gran.QA_rec_PRT_a12.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a12.min" statn = swrdattr(swid, "QA_rec_PRT_a12.max", & amsua_bt_gran.QA_rec_PRT_a12.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a12.max" statn = swrdattr(swid, "QA_rec_PRT_a12.mean", & amsua_bt_gran.QA_rec_PRT_a12.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a12.mean" statn = swrdattr(swid, "QA_rec_PRT_a12.dev", & amsua_bt_gran.QA_rec_PRT_a12.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a12.dev" statn = swrdattr(swid, "QA_rec_PRT_a12.num_in", & amsua_bt_gran.QA_rec_PRT_a12.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a12.num_in" statn = swrdattr(swid, "QA_rec_PRT_a12.num_lo", & amsua_bt_gran.QA_rec_PRT_a12.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a12.num_lo" statn = swrdattr(swid, "QA_rec_PRT_a12.num_hi", & amsua_bt_gran.QA_rec_PRT_a12.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a12.num_hi" statn = swrdattr(swid, "QA_rec_PRT_a12.num_bad", & amsua_bt_gran.QA_rec_PRT_a12.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a12.num_bad" statn = swrdattr(swid, "QA_rec_PRT_a12.range_min", & amsua_bt_gran.QA_rec_PRT_a12.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a12.range_min" statn = swrdattr(swid, "QA_rec_PRT_a12.range_max", & amsua_bt_gran.QA_rec_PRT_a12.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a12.range_max" statn = swrdattr(swid, "QA_rec_PRT_a12.missing", & amsua_bt_gran.QA_rec_PRT_a12.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a12.missing" statn = swrdattr(swid, "QA_rec_PRT_a12.max_track", & amsua_bt_gran.QA_rec_PRT_a12.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a12.max_track" statn = swrdattr(swid, "QA_rec_PRT_a12.max_xtrack", & amsua_bt_gran.QA_rec_PRT_a12.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a12.max_xtrack" statn = swrdattr(swid, "QA_rec_PRT_a12.min_track", & amsua_bt_gran.QA_rec_PRT_a12.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a12.min_track" statn = swrdattr(swid, "QA_rec_PRT_a12.min_xtrack", & amsua_bt_gran.QA_rec_PRT_a12.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a12.min_xtrack" statn = swrdattr(swid, "QA_rec_PRT_a2.min", & amsua_bt_gran.QA_rec_PRT_a2.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a2.min" statn = swrdattr(swid, "QA_rec_PRT_a2.max", & amsua_bt_gran.QA_rec_PRT_a2.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a2.max" statn = swrdattr(swid, "QA_rec_PRT_a2.mean", & amsua_bt_gran.QA_rec_PRT_a2.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a2.mean" statn = swrdattr(swid, "QA_rec_PRT_a2.dev", & amsua_bt_gran.QA_rec_PRT_a2.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a2.dev" statn = swrdattr(swid, "QA_rec_PRT_a2.num_in", & amsua_bt_gran.QA_rec_PRT_a2.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a2.num_in" statn = swrdattr(swid, "QA_rec_PRT_a2.num_lo", & amsua_bt_gran.QA_rec_PRT_a2.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a2.num_lo" statn = swrdattr(swid, "QA_rec_PRT_a2.num_hi", & amsua_bt_gran.QA_rec_PRT_a2.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a2.num_hi" statn = swrdattr(swid, "QA_rec_PRT_a2.num_bad", & amsua_bt_gran.QA_rec_PRT_a2.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a2.num_bad" statn = swrdattr(swid, "QA_rec_PRT_a2.range_min", & amsua_bt_gran.QA_rec_PRT_a2.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a2.range_min" statn = swrdattr(swid, "QA_rec_PRT_a2.range_max", & amsua_bt_gran.QA_rec_PRT_a2.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a2.range_max" statn = swrdattr(swid, "QA_rec_PRT_a2.missing", & amsua_bt_gran.QA_rec_PRT_a2.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a2.missing" statn = swrdattr(swid, "QA_rec_PRT_a2.max_track", & amsua_bt_gran.QA_rec_PRT_a2.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a2.max_track" statn = swrdattr(swid, "QA_rec_PRT_a2.max_xtrack", & amsua_bt_gran.QA_rec_PRT_a2.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a2.max_xtrack" statn = swrdattr(swid, "QA_rec_PRT_a2.min_track", & amsua_bt_gran.QA_rec_PRT_a2.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a2.min_track" statn = swrdattr(swid, "QA_rec_PRT_a2.min_xtrack", & amsua_bt_gran.QA_rec_PRT_a2.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "QA_rec_PRT_a2.min_xtrack" statn = swrdattr(swid, "granules_present", & amsua_bt_gran.granules_present) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "granules_present" ! Geolocation fields edge(1) = AMSUA_BT_GEOXTRACK edge(2) = AMSUA_BT_GEOTRACK statn = swrdfld(swid, "Latitude", start, stride, edge, & amsua_bt_gran.Latitude) if (statn .ne. 0) & print *, "Error ", statn, " reading field Latitude" statn = swrdfld(swid, "Longitude", start, stride, edge, & amsua_bt_gran.Longitude) if (statn .ne. 0) & print *, "Error ", statn, " reading field Longitude" statn = swrdfld(swid, "Time", start, stride, edge, & amsua_bt_gran.Time) if (statn .ne. 0) & print *, "Error ", statn, " reading field Time" ! Data Fields edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "scanang", & start, stride, edge, & amsua_bt_gran.scanang) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "scanang" edge(1) = 45 statn = SWrdfld(swid, "satheight", & start, stride, edge, & amsua_bt_gran.satheight) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satheight" edge(1) = 45 statn = SWrdfld(swid, "satroll", & start, stride, edge, & amsua_bt_gran.satroll) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satroll" edge(1) = 45 statn = SWrdfld(swid, "satpitch", & start, stride, edge, & amsua_bt_gran.satpitch) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satpitch" edge(1) = 45 statn = SWrdfld(swid, "satyaw", & start, stride, edge, & amsua_bt_gran.satyaw) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satyaw" edge(1) = 45 statn = SWrdfld(swid, "satgeoqa", & start, stride, edge, & amsua_bt_gran.satgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satgeoqa" edge(1) = 45 statn = SWrdfld(swid, "glintgeoqa", & start, stride, edge, & amsua_bt_gran.glintgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "glintgeoqa" edge(1) = 45 statn = SWrdfld(swid, "moongeoqa", & start, stride, edge, & amsua_bt_gran.moongeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "moongeoqa" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "ftptgeoqa", & start, stride, edge, & amsua_bt_gran.ftptgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "ftptgeoqa" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "zengeoqa", & start, stride, edge, & amsua_bt_gran.zengeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "zengeoqa" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "demgeoqa", & start, stride, edge, & amsua_bt_gran.demgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "demgeoqa" edge(1) = 45 statn = SWrdfld(swid, "nadirTAI", & start, stride, edge, & amsua_bt_gran.nadirTAI) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "nadirTAI" edge(1) = 45 statn = SWrdfld(swid, "sat_lat", & start, stride, edge, & amsua_bt_gran.sat_lat) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "sat_lat" edge(1) = 45 statn = SWrdfld(swid, "sat_lon", & start, stride, edge, & amsua_bt_gran.sat_lon) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "sat_lon" edge(1) = 45 statn = SWrdfld(swid, "scan_node_type", & start, stride, edge, & amsua_bt_gran.scan_node_type) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "scan_node_type" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "satzen", & start, stride, edge, & amsua_bt_gran.satzen) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satzen" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "satazi", & start, stride, edge, & amsua_bt_gran.satazi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satazi" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "solzen", & start, stride, edge, & amsua_bt_gran.solzen) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "solzen" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "solazi", & start, stride, edge, & amsua_bt_gran.solazi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "solazi" edge(1) = 45 statn = SWrdfld(swid, "glintlat", & start, stride, edge, & amsua_bt_gran.glintlat) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "glintlat" edge(1) = 45 statn = SWrdfld(swid, "glintlon", & start, stride, edge, & amsua_bt_gran.glintlon) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "glintlon" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "sun_glint_distance", & start, stride, edge, & amsua_bt_gran.sun_glint_distance) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "sun_glint_distance" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "topog", & start, stride, edge, & amsua_bt_gran.topog) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "topog" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "topog_err", & start, stride, edge, & amsua_bt_gran.topog_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "topog_err" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "landFrac", & start, stride, edge, & amsua_bt_gran.landFrac) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "landFrac" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "landFrac_err", & start, stride, edge, & amsua_bt_gran.landFrac_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "landFrac_err" edge(3) = 45 edge(2) = 30 edge(1) = 15 statn = SWrdfld(swid, "antenna_temp", & start, stride, edge, & amsua_bt_gran.antenna_temp) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "antenna_temp" edge(3) = 45 edge(2) = 30 edge(1) = 15 statn = SWrdfld(swid, "brightness_temp", & start, stride, edge, & amsua_bt_gran.brightness_temp) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "brightness_temp" edge(3) = 45 edge(2) = 30 edge(1) = 15 statn = SWrdfld(swid, "brightness_temp_err", & start, stride, edge, & amsua_bt_gran.brightness_temp_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "brightness_temp_err" edge(1) = 15 statn = SWrdfld(swid, "center_freq", & start, stride, edge, & amsua_bt_gran.center_freq) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "center_freq" edge(1) = 15 statn = SWrdfld(swid, "IF_offset_1", & start, stride, edge, & amsua_bt_gran.IF_offset_1) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "IF_offset_1" edge(1) = 15 statn = SWrdfld(swid, "IF_offset_2", & start, stride, edge, & amsua_bt_gran.IF_offset_2) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "IF_offset_2" edge(1) = 15 statn = SWrdfld(swid, "bandwidth", & start, stride, edge, & amsua_bt_gran.bandwidth) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bandwidth" edge(1) = 15 statn = SWrdfld(swid, "num_calibrated_scanlines", & start, stride, edge, & amsua_bt_gran.num_calibrated_scanlines) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "num_calibrated_scanlines" edge(1) = 15 statn = SWrdfld(swid, "num_scanlines_ch_cal_problems", & start, stride, edge, & amsua_bt_gran.num_scanlines_ch_cal_problems) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "num_scanlines_ch_cal_problems" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "bb_signals.min", & start, stride, edge, & amsua_bt_gran.bb_signals.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bb_signals.min" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "bb_signals.max", & start, stride, edge, & amsua_bt_gran.bb_signals.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bb_signals.max" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "bb_signals.mean", & start, stride, edge, & amsua_bt_gran.bb_signals.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bb_signals.mean" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "bb_signals.dev", & start, stride, edge, & amsua_bt_gran.bb_signals.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bb_signals.dev" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "bb_signals.num", & start, stride, edge, & amsua_bt_gran.bb_signals.num) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bb_signals.num" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "bb_signals.num_bad", & start, stride, edge, & amsua_bt_gran.bb_signals.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bb_signals.num_bad" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "bb_signals.max_track", & start, stride, edge, & amsua_bt_gran.bb_signals.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bb_signals.max_track" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "bb_signals.max_xtrack", & start, stride, edge, & amsua_bt_gran.bb_signals.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bb_signals.max_xtrack" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "bb_signals.min_track", & start, stride, edge, & amsua_bt_gran.bb_signals.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bb_signals.min_track" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "bb_signals.min_xtrack", & start, stride, edge, & amsua_bt_gran.bb_signals.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bb_signals.min_xtrack" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "space_signals.min", & start, stride, edge, & amsua_bt_gran.space_signals.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "space_signals.min" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "space_signals.max", & start, stride, edge, & amsua_bt_gran.space_signals.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "space_signals.max" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "space_signals.mean", & start, stride, edge, & amsua_bt_gran.space_signals.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "space_signals.mean" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "space_signals.dev", & start, stride, edge, & amsua_bt_gran.space_signals.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "space_signals.dev" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "space_signals.num", & start, stride, edge, & amsua_bt_gran.space_signals.num) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "space_signals.num" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "space_signals.num_bad", & start, stride, edge, & amsua_bt_gran.space_signals.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "space_signals.num_bad" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "space_signals.max_track", & start, stride, edge, & amsua_bt_gran.space_signals.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "space_signals.max_track" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "space_signals.max_xtrack", & start, stride, edge, & amsua_bt_gran.space_signals.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "space_signals.max_xtrack" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "space_signals.min_track", & start, stride, edge, & amsua_bt_gran.space_signals.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "space_signals.min_track" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "space_signals.min_xtrack", & start, stride, edge, & amsua_bt_gran.space_signals.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "space_signals.min_xtrack" edge(1) = 15 statn = SWrdfld(swid, "gain_stats.min", & start, stride, edge, & amsua_bt_gran.gain_stats.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.min" edge(1) = 15 statn = SWrdfld(swid, "gain_stats.max", & start, stride, edge, & amsua_bt_gran.gain_stats.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.max" edge(1) = 15 statn = SWrdfld(swid, "gain_stats.mean", & start, stride, edge, & amsua_bt_gran.gain_stats.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.mean" edge(1) = 15 statn = SWrdfld(swid, "gain_stats.dev", & start, stride, edge, & amsua_bt_gran.gain_stats.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.dev" edge(1) = 15 statn = SWrdfld(swid, "gain_stats.num", & start, stride, edge, & amsua_bt_gran.gain_stats.num) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.num" edge(1) = 15 statn = SWrdfld(swid, "gain_stats.num_bad", & start, stride, edge, & amsua_bt_gran.gain_stats.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.num_bad" edge(1) = 15 statn = SWrdfld(swid, "gain_stats.max_track", & start, stride, edge, & amsua_bt_gran.gain_stats.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.max_track" edge(1) = 15 statn = SWrdfld(swid, "gain_stats.max_xtrack", & start, stride, edge, & amsua_bt_gran.gain_stats.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.max_xtrack" edge(1) = 15 statn = SWrdfld(swid, "gain_stats.min_track", & start, stride, edge, & amsua_bt_gran.gain_stats.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.min_track" edge(1) = 15 statn = SWrdfld(swid, "gain_stats.min_xtrack", & start, stride, edge, & amsua_bt_gran.gain_stats.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.min_xtrack" edge(1) = 15 statn = SWrdfld(swid, "NeDT", & start, stride, edge, & amsua_bt_gran.NeDT) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "NeDT" edge(2) = 30 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_scene_count.min", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_scene_count.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_scene_count.min" edge(2) = 30 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_scene_count.max", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_scene_count.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_scene_count.max" edge(2) = 30 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_scene_count.mean", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_scene_count.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_scene_count.mean" edge(2) = 30 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_scene_count.dev", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_scene_count.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_scene_count.dev" edge(2) = 30 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_scene_count.num", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_scene_count.num) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_scene_count.num" edge(2) = 30 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_scene_count.num_bad", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_scene_count.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_scene_count.num_bad" edge(2) = 30 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_scene_count.max_track", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_scene_count.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_scene_count.max_track" edge(2) = 30 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_scene_count.max_xtrack", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_scene_count.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_scene_count.max_xtrack" edge(2) = 30 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_scene_count.min_track", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_scene_count.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_scene_count.min_track" edge(2) = 30 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_scene_count.min_xtrack", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_scene_count.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_scene_count.min_xtrack" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_BB_count.min", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_BB_count.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_BB_count.min" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_BB_count.max", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_BB_count.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_BB_count.max" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_BB_count.mean", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_BB_count.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_BB_count.mean" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_BB_count.dev", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_BB_count.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_BB_count.dev" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_BB_count.num", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_BB_count.num) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_BB_count.num" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_BB_count.num_bad", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_BB_count.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_BB_count.num_bad" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_BB_count.max_track", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_BB_count.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_BB_count.max_track" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_BB_count.max_xtrack", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_BB_count.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_BB_count.max_xtrack" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_BB_count.min_track", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_BB_count.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_BB_count.min_track" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_BB_count.min_xtrack", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_BB_count.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_BB_count.min_xtrack" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_space_count.min", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_space_count.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_space_count.min" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_space_count.max", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_space_count.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_space_count.max" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_space_count.mean", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_space_count.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_space_count.mean" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_space_count.dev", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_space_count.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_space_count.dev" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_space_count.num", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_space_count.num) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_space_count.num" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_space_count.num_bad", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_space_count.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_space_count.num_bad" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_space_count.max_track", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_space_count.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_space_count.max_track" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_space_count.max_xtrack", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_space_count.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_space_count.max_xtrack" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_space_count.min_track", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_space_count.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_space_count.min_track" edge(2) = 2 edge(1) = 15 statn = SWrdfld(swid, "QA_unfiltered_space_count.min_xtrack", & start, stride, edge, & amsua_bt_gran.QA_unfiltered_space_count.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_unfiltered_space_count.min_xtrack" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a0.min", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a0.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a0.min" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a0.max", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a0.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a0.max" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a0.mean", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a0.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a0.mean" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a0.dev", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a0.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a0.dev" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a0.num", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a0.num) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a0.num" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a0.num_bad", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a0.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a0.num_bad" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a0.max_track", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a0.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a0.max_track" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a0.max_xtrack", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a0.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a0.max_xtrack" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a0.min_track", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a0.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a0.min_track" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a0.min_xtrack", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a0.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a0.min_xtrack" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a1.min", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a1.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a1.min" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a1.max", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a1.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a1.max" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a1.mean", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a1.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a1.mean" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a1.dev", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a1.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a1.dev" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a1.num", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a1.num) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a1.num" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a1.num_bad", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a1.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a1.num_bad" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a1.max_track", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a1.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a1.max_track" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a1.max_xtrack", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a1.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a1.max_xtrack" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a1.min_track", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a1.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a1.min_track" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a1.min_xtrack", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a1.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a1.min_xtrack" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a2.min", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a2.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a2.min" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a2.max", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a2.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a2.max" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a2.mean", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a2.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a2.mean" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a2.dev", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a2.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a2.dev" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a2.num", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a2.num) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a2.num" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a2.num_bad", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a2.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a2.num_bad" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a2.max_track", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a2.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a2.max_track" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a2.max_xtrack", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a2.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a2.max_xtrack" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a2.min_track", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a2.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a2.min_track" edge(1) = 15 statn = SWrdfld(swid, "QA_cal_coef_a2.min_xtrack", & start, stride, edge, & amsua_bt_gran.QA_cal_coef_a2.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_cal_coef_a2.min_xtrack" edge(1) = 15 statn = SWrdfld(swid, "QA_bb_raw_noise_counts.min", & start, stride, edge, & amsua_bt_gran.QA_bb_raw_noise_counts.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_bb_raw_noise_counts.min" edge(1) = 15 statn = SWrdfld(swid, "QA_bb_raw_noise_counts.max", & start, stride, edge, & amsua_bt_gran.QA_bb_raw_noise_counts.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_bb_raw_noise_counts.max" edge(1) = 15 statn = SWrdfld(swid, "QA_bb_raw_noise_counts.mean", & start, stride, edge, & amsua_bt_gran.QA_bb_raw_noise_counts.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_bb_raw_noise_counts.mean" edge(1) = 15 statn = SWrdfld(swid, "QA_bb_raw_noise_counts.dev", & start, stride, edge, & amsua_bt_gran.QA_bb_raw_noise_counts.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_bb_raw_noise_counts.dev" edge(1) = 15 statn = SWrdfld(swid, "QA_bb_raw_noise_counts.num", & start, stride, edge, & amsua_bt_gran.QA_bb_raw_noise_counts.num) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_bb_raw_noise_counts.num" edge(1) = 15 statn = SWrdfld(swid, "QA_bb_raw_noise_counts.num_bad", & start, stride, edge, & amsua_bt_gran.QA_bb_raw_noise_counts.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_bb_raw_noise_counts.num_bad" edge(1) = 15 statn = SWrdfld(swid, "QA_bb_raw_noise_counts.max_track", & start, stride, edge, & amsua_bt_gran.QA_bb_raw_noise_counts.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_bb_raw_noise_counts.max_track" edge(1) = 15 statn = SWrdfld(swid, "QA_bb_raw_noise_counts.max_xtrack", & start, stride, edge, & amsua_bt_gran.QA_bb_raw_noise_counts.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_bb_raw_noise_counts.max_xtrack" edge(1) = 15 statn = SWrdfld(swid, "QA_bb_raw_noise_counts.min_track", & start, stride, edge, & amsua_bt_gran.QA_bb_raw_noise_counts.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_bb_raw_noise_counts.min_track" edge(1) = 15 statn = SWrdfld(swid, "QA_bb_raw_noise_counts.min_xtrack", & start, stride, edge, & amsua_bt_gran.QA_bb_raw_noise_counts.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_bb_raw_noise_counts.min_xtrack" edge(1) = 15 statn = SWrdfld(swid, "QA_sv_raw_noise_counts.min", & start, stride, edge, & amsua_bt_gran.QA_sv_raw_noise_counts.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_sv_raw_noise_counts.min" edge(1) = 15 statn = SWrdfld(swid, "QA_sv_raw_noise_counts.max", & start, stride, edge, & amsua_bt_gran.QA_sv_raw_noise_counts.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_sv_raw_noise_counts.max" edge(1) = 15 statn = SWrdfld(swid, "QA_sv_raw_noise_counts.mean", & start, stride, edge, & amsua_bt_gran.QA_sv_raw_noise_counts.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_sv_raw_noise_counts.mean" edge(1) = 15 statn = SWrdfld(swid, "QA_sv_raw_noise_counts.dev", & start, stride, edge, & amsua_bt_gran.QA_sv_raw_noise_counts.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_sv_raw_noise_counts.dev" edge(1) = 15 statn = SWrdfld(swid, "QA_sv_raw_noise_counts.num", & start, stride, edge, & amsua_bt_gran.QA_sv_raw_noise_counts.num) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_sv_raw_noise_counts.num" edge(1) = 15 statn = SWrdfld(swid, "QA_sv_raw_noise_counts.num_bad", & start, stride, edge, & amsua_bt_gran.QA_sv_raw_noise_counts.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_sv_raw_noise_counts.num_bad" edge(1) = 15 statn = SWrdfld(swid, "QA_sv_raw_noise_counts.max_track", & start, stride, edge, & amsua_bt_gran.QA_sv_raw_noise_counts.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_sv_raw_noise_counts.max_track" edge(1) = 15 statn = SWrdfld(swid, "QA_sv_raw_noise_counts.max_xtrack", & start, stride, edge, & amsua_bt_gran.QA_sv_raw_noise_counts.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_sv_raw_noise_counts.max_xtrack" edge(1) = 15 statn = SWrdfld(swid, "QA_sv_raw_noise_counts.min_track", & start, stride, edge, & amsua_bt_gran.QA_sv_raw_noise_counts.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_sv_raw_noise_counts.min_track" edge(1) = 15 statn = SWrdfld(swid, "QA_sv_raw_noise_counts.min_xtrack", & start, stride, edge, & amsua_bt_gran.QA_sv_raw_noise_counts.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "QA_sv_raw_noise_counts.min_xtrack" edge(1) = 45 statn = SWrdfld(swid, "state1", & start, stride, edge, & amsua_bt_gran.state1) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "state1" edge(1) = 45 statn = SWrdfld(swid, "state2", & start, stride, edge, & amsua_bt_gran.state2) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "state2" edge(2) = 45 edge(1) = 15 statn = SWrdfld(swid, "cal_coef_a0", & start, stride, edge, & amsua_bt_gran.cal_coef_a0) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "cal_coef_a0" edge(2) = 45 edge(1) = 15 statn = SWrdfld(swid, "cal_coef_a0_err", & start, stride, edge, & amsua_bt_gran.cal_coef_a0_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "cal_coef_a0_err" edge(2) = 45 edge(1) = 15 statn = SWrdfld(swid, "cal_coef_a1", & start, stride, edge, & amsua_bt_gran.cal_coef_a1) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "cal_coef_a1" edge(2) = 45 edge(1) = 15 statn = SWrdfld(swid, "cal_coef_a1_err", & start, stride, edge, & amsua_bt_gran.cal_coef_a1_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "cal_coef_a1_err" edge(2) = 45 edge(1) = 15 statn = SWrdfld(swid, "cal_coef_a2", & start, stride, edge, & amsua_bt_gran.cal_coef_a2) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "cal_coef_a2" edge(2) = 45 edge(1) = 15 statn = SWrdfld(swid, "cal_coef_a2_err", & start, stride, edge, & amsua_bt_gran.cal_coef_a2_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "cal_coef_a2_err" edge(1) = 45 statn = SWrdfld(swid, "a1_ColdCalPstion", & start, stride, edge, & amsua_bt_gran.a1_ColdCalPstion) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "a1_ColdCalPstion" edge(1) = 45 statn = SWrdfld(swid, "a2_ColdCalPstion", & start, stride, edge, & amsua_bt_gran.a2_ColdCalPstion) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "a2_ColdCalPstion" edge(1) = 45 statn = SWrdfld(swid, "a1_PLO_Redundncy", & start, stride, edge, & amsua_bt_gran.a1_PLO_Redundncy) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "a1_PLO_Redundncy" edge(1) = 45 statn = SWrdfld(swid, "a11_mux_temp_used", & start, stride, edge, & amsua_bt_gran.a11_mux_temp_used) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "a11_mux_temp_used" edge(1) = 45 statn = SWrdfld(swid, "a11_receiver_temp", & start, stride, edge, & amsua_bt_gran.a11_receiver_temp) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "a11_receiver_temp" edge(1) = 45 statn = SWrdfld(swid, "a11_target_temp", & start, stride, edge, & amsua_bt_gran.a11_target_temp) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "a11_target_temp" edge(1) = 45 statn = SWrdfld(swid, "a12_mux_temp_used", & start, stride, edge, & amsua_bt_gran.a12_mux_temp_used) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "a12_mux_temp_used" edge(1) = 45 statn = SWrdfld(swid, "a12_receiver_temp", & start, stride, edge, & amsua_bt_gran.a12_receiver_temp) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "a12_receiver_temp" edge(1) = 45 statn = SWrdfld(swid, "a12_target_temp", & start, stride, edge, & amsua_bt_gran.a12_target_temp) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "a12_target_temp" edge(1) = 45 statn = SWrdfld(swid, "a2_diplexer_temp_used", & start, stride, edge, & amsua_bt_gran.a2_diplexer_temp_used) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "a2_diplexer_temp_used" edge(1) = 45 statn = SWrdfld(swid, "a2_receiver_temp", & start, stride, edge, & amsua_bt_gran.a2_receiver_temp) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "a2_receiver_temp" edge(1) = 45 statn = SWrdfld(swid, "a2_target_temp", & start, stride, edge, & amsua_bt_gran.a2_target_temp) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "a2_target_temp" edge(1) = 45 statn = SWrdfld(swid, "qa_scanline", & start, stride, edge, & amsua_bt_gran.qa_scanline) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "qa_scanline" edge(1) = 45 statn = SWrdfld(swid, "qa_receiver_a11", & start, stride, edge, & amsua_bt_gran.qa_receiver_a11) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "qa_receiver_a11" edge(1) = 45 statn = SWrdfld(swid, "qa_receiver_a12", & start, stride, edge, & amsua_bt_gran.qa_receiver_a12) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "qa_receiver_a12" edge(1) = 45 statn = SWrdfld(swid, "qa_receiver_a2", & start, stride, edge, & amsua_bt_gran.qa_receiver_a2) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "qa_receiver_a2" edge(2) = 45 edge(1) = 15 statn = SWrdfld(swid, "qa_channel", & start, stride, edge, & amsua_bt_gran.qa_channel) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "qa_channel" ! Final clean-up statn = swdetach(swid) if (statn .ne. 0) & print *, "Error detaching from input file ", file_name statn = swclose(fid) if (statn .ne. 0) & print *, "Error closing input file ", file_name return end
Document Actions
NASA Logo - nasa.gov
NASA Privacy Policy and Important Notices
Last updated: Sep 09, 2009 02:26 PM ET
Top