Skip to content. | Skip to navigation

Personal tools

airs_rad_rdr.f

! This function is autogenerated by the mkezio program to read ! an AIRS swath of type "L1B_AIRS_Science" from file given by the ! file_name argument into a buffer pointed to by the airs_rad_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 airs_rad_rdr(file_name, airs_rad_gran) IMPLICIT NONE INCLUDE 'airs_rad_typ.inc' INCLUDE 'airs_rad_struct.inc' character*(*) file_name RECORD /airs_rad_gran_t/ airs_rad_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_AIRS_Science') then print *, "Error: bad swath name ", swathname, " in file ", & file_name print *, "Expected L1B_AIRS_Science" 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", & airs_rad_gran.processing_level) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "processing_level" statn = swrdattr(swid, "instrument", & airs_rad_gran.instrument) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "instrument" statn = swrdattr(swid, "DayNightFlag", & airs_rad_gran.DayNightFlag) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "DayNightFlag" statn = swrdattr(swid, "AutomaticQAFlag", & airs_rad_gran.AutomaticQAFlag) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "AutomaticQAFlag" statn = swrdattr(swid, "NumTotalData", & airs_rad_gran.NumTotalData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumTotalData" statn = swrdattr(swid, "NumProcessData", & airs_rad_gran.NumProcessData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumProcessData" statn = swrdattr(swid, "NumSpecialData", & airs_rad_gran.NumSpecialData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumSpecialData" statn = swrdattr(swid, "NumBadData", & airs_rad_gran.NumBadData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumBadData" statn = swrdattr(swid, "NumMissingData", & airs_rad_gran.NumMissingData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumMissingData" statn = swrdattr(swid, "NumLandSurface", & airs_rad_gran.NumLandSurface) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumLandSurface" statn = swrdattr(swid, "NumOceanSurface", & airs_rad_gran.NumOceanSurface) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumOceanSurface" statn = swrdattr(swid, "node_type", & airs_rad_gran.node_type) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "node_type" statn = swrdattr(swid, "start_year", & airs_rad_gran.start_year) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_year" statn = swrdattr(swid, "start_month", & airs_rad_gran.start_month) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_month" statn = swrdattr(swid, "start_day", & airs_rad_gran.start_day) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_day" statn = swrdattr(swid, "start_hour", & airs_rad_gran.start_hour) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_hour" statn = swrdattr(swid, "start_minute", & airs_rad_gran.start_minute) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_minute" statn = swrdattr(swid, "start_sec", & airs_rad_gran.start_sec) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_sec" statn = swrdattr(swid, "start_orbit", & airs_rad_gran.start_orbit) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_orbit" statn = swrdattr(swid, "end_orbit", & airs_rad_gran.end_orbit) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_orbit" statn = swrdattr(swid, "orbit_path", & airs_rad_gran.orbit_path) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "orbit_path" statn = swrdattr(swid, "start_orbit_row", & airs_rad_gran.start_orbit_row) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_orbit_row" statn = swrdattr(swid, "end_orbit_row", & airs_rad_gran.end_orbit_row) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_orbit_row" statn = swrdattr(swid, "granule_number", & airs_rad_gran.granule_number) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "granule_number" statn = swrdattr(swid, "num_scansets", & airs_rad_gran.num_scansets) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_scansets" statn = swrdattr(swid, "num_scanlines", & airs_rad_gran.num_scanlines) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_scanlines" statn = swrdattr(swid, "start_Latitude", & airs_rad_gran.start_Latitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_Latitude" statn = swrdattr(swid, "start_Longitude", & airs_rad_gran.start_Longitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_Longitude" statn = swrdattr(swid, "start_Time", & airs_rad_gran.start_Time) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_Time" statn = swrdattr(swid, "end_Latitude", & airs_rad_gran.end_Latitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_Latitude" statn = swrdattr(swid, "end_Longitude", & airs_rad_gran.end_Longitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_Longitude" statn = swrdattr(swid, "end_Time", & airs_rad_gran.end_Time) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_Time" statn = swrdattr(swid, "eq_x_longitude", & airs_rad_gran.eq_x_longitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "eq_x_longitude" statn = swrdattr(swid, "eq_x_tai", & airs_rad_gran.eq_x_tai) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "eq_x_tai" statn = swrdattr(swid, "orbitgeoqa", & airs_rad_gran.orbitgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "orbitgeoqa" statn = swrdattr(swid, "num_satgeoqa", & airs_rad_gran.num_satgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_satgeoqa" statn = swrdattr(swid, "num_glintgeoqa", & airs_rad_gran.num_glintgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_glintgeoqa" statn = swrdattr(swid, "num_moongeoqa", & airs_rad_gran.num_moongeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_moongeoqa" statn = swrdattr(swid, "num_ftptgeoqa", & airs_rad_gran.num_ftptgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_ftptgeoqa" statn = swrdattr(swid, "num_zengeoqa", & airs_rad_gran.num_zengeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_zengeoqa" statn = swrdattr(swid, "num_demgeoqa", & airs_rad_gran.num_demgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_demgeoqa" statn = swrdattr(swid, "num_fpe", & airs_rad_gran.num_fpe) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_fpe" statn = swrdattr(swid, "LonGranuleCen", & airs_rad_gran.LonGranuleCen) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "LonGranuleCen" statn = swrdattr(swid, "LatGranuleCen", & airs_rad_gran.LatGranuleCen) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "LatGranuleCen" statn = swrdattr(swid, "LocTimeGranuleCen", & airs_rad_gran.LocTimeGranuleCen) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "LocTimeGranuleCen" statn = swrdattr(swid, "CalGranSummary", & airs_rad_gran.CalGranSummary) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "CalGranSummary" statn = swrdattr(swid, "DCR_scan", & airs_rad_gran.DCR_scan) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "DCR_scan" statn = swrdattr(swid, "input_bb_temp.min", & airs_rad_gran.input_bb_temp.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp.min" statn = swrdattr(swid, "input_bb_temp.max", & airs_rad_gran.input_bb_temp.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp.max" statn = swrdattr(swid, "input_bb_temp.mean", & airs_rad_gran.input_bb_temp.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp.mean" statn = swrdattr(swid, "input_bb_temp.dev", & airs_rad_gran.input_bb_temp.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp.dev" statn = swrdattr(swid, "input_bb_temp.num_in", & airs_rad_gran.input_bb_temp.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp.num_in" statn = swrdattr(swid, "input_bb_temp.num_lo", & airs_rad_gran.input_bb_temp.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp.num_lo" statn = swrdattr(swid, "input_bb_temp.num_hi", & airs_rad_gran.input_bb_temp.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp.num_hi" statn = swrdattr(swid, "input_bb_temp.num_bad", & airs_rad_gran.input_bb_temp.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp.num_bad" statn = swrdattr(swid, "input_bb_temp.range_min", & airs_rad_gran.input_bb_temp.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp.range_min" statn = swrdattr(swid, "input_bb_temp.range_max", & airs_rad_gran.input_bb_temp.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp.range_max" statn = swrdattr(swid, "input_bb_temp.missing", & airs_rad_gran.input_bb_temp.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp.missing" statn = swrdattr(swid, "input_bb_temp.max_track", & airs_rad_gran.input_bb_temp.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp.max_track" statn = swrdattr(swid, "input_bb_temp.max_xtrack", & airs_rad_gran.input_bb_temp.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp.max_xtrack" statn = swrdattr(swid, "input_bb_temp.min_track", & airs_rad_gran.input_bb_temp.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp.min_track" statn = swrdattr(swid, "input_bb_temp.min_xtrack", & airs_rad_gran.input_bb_temp.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp.min_xtrack" statn = swrdattr(swid, "input_bb_temp1.min", & airs_rad_gran.input_bb_temp1.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp1.min" statn = swrdattr(swid, "input_bb_temp1.max", & airs_rad_gran.input_bb_temp1.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp1.max" statn = swrdattr(swid, "input_bb_temp1.mean", & airs_rad_gran.input_bb_temp1.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp1.mean" statn = swrdattr(swid, "input_bb_temp1.dev", & airs_rad_gran.input_bb_temp1.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp1.dev" statn = swrdattr(swid, "input_bb_temp1.num_in", & airs_rad_gran.input_bb_temp1.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp1.num_in" statn = swrdattr(swid, "input_bb_temp1.num_lo", & airs_rad_gran.input_bb_temp1.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp1.num_lo" statn = swrdattr(swid, "input_bb_temp1.num_hi", & airs_rad_gran.input_bb_temp1.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp1.num_hi" statn = swrdattr(swid, "input_bb_temp1.num_bad", & airs_rad_gran.input_bb_temp1.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp1.num_bad" statn = swrdattr(swid, "input_bb_temp1.range_min", & airs_rad_gran.input_bb_temp1.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp1.range_min" statn = swrdattr(swid, "input_bb_temp1.range_max", & airs_rad_gran.input_bb_temp1.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp1.range_max" statn = swrdattr(swid, "input_bb_temp1.missing", & airs_rad_gran.input_bb_temp1.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp1.missing" statn = swrdattr(swid, "input_bb_temp1.max_track", & airs_rad_gran.input_bb_temp1.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp1.max_track" statn = swrdattr(swid, "input_bb_temp1.max_xtrack", & airs_rad_gran.input_bb_temp1.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp1.max_xtrack" statn = swrdattr(swid, "input_bb_temp1.min_track", & airs_rad_gran.input_bb_temp1.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp1.min_track" statn = swrdattr(swid, "input_bb_temp1.min_xtrack", & airs_rad_gran.input_bb_temp1.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp1.min_xtrack" statn = swrdattr(swid, "input_bb_temp2.min", & airs_rad_gran.input_bb_temp2.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp2.min" statn = swrdattr(swid, "input_bb_temp2.max", & airs_rad_gran.input_bb_temp2.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp2.max" statn = swrdattr(swid, "input_bb_temp2.mean", & airs_rad_gran.input_bb_temp2.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp2.mean" statn = swrdattr(swid, "input_bb_temp2.dev", & airs_rad_gran.input_bb_temp2.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp2.dev" statn = swrdattr(swid, "input_bb_temp2.num_in", & airs_rad_gran.input_bb_temp2.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp2.num_in" statn = swrdattr(swid, "input_bb_temp2.num_lo", & airs_rad_gran.input_bb_temp2.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp2.num_lo" statn = swrdattr(swid, "input_bb_temp2.num_hi", & airs_rad_gran.input_bb_temp2.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp2.num_hi" statn = swrdattr(swid, "input_bb_temp2.num_bad", & airs_rad_gran.input_bb_temp2.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp2.num_bad" statn = swrdattr(swid, "input_bb_temp2.range_min", & airs_rad_gran.input_bb_temp2.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp2.range_min" statn = swrdattr(swid, "input_bb_temp2.range_max", & airs_rad_gran.input_bb_temp2.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp2.range_max" statn = swrdattr(swid, "input_bb_temp2.missing", & airs_rad_gran.input_bb_temp2.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp2.missing" statn = swrdattr(swid, "input_bb_temp2.max_track", & airs_rad_gran.input_bb_temp2.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp2.max_track" statn = swrdattr(swid, "input_bb_temp2.max_xtrack", & airs_rad_gran.input_bb_temp2.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp2.max_xtrack" statn = swrdattr(swid, "input_bb_temp2.min_track", & airs_rad_gran.input_bb_temp2.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp2.min_track" statn = swrdattr(swid, "input_bb_temp2.min_xtrack", & airs_rad_gran.input_bb_temp2.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp2.min_xtrack" statn = swrdattr(swid, "input_bb_temp3.min", & airs_rad_gran.input_bb_temp3.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp3.min" statn = swrdattr(swid, "input_bb_temp3.max", & airs_rad_gran.input_bb_temp3.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp3.max" statn = swrdattr(swid, "input_bb_temp3.mean", & airs_rad_gran.input_bb_temp3.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp3.mean" statn = swrdattr(swid, "input_bb_temp3.dev", & airs_rad_gran.input_bb_temp3.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp3.dev" statn = swrdattr(swid, "input_bb_temp3.num_in", & airs_rad_gran.input_bb_temp3.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp3.num_in" statn = swrdattr(swid, "input_bb_temp3.num_lo", & airs_rad_gran.input_bb_temp3.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp3.num_lo" statn = swrdattr(swid, "input_bb_temp3.num_hi", & airs_rad_gran.input_bb_temp3.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp3.num_hi" statn = swrdattr(swid, "input_bb_temp3.num_bad", & airs_rad_gran.input_bb_temp3.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp3.num_bad" statn = swrdattr(swid, "input_bb_temp3.range_min", & airs_rad_gran.input_bb_temp3.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp3.range_min" statn = swrdattr(swid, "input_bb_temp3.range_max", & airs_rad_gran.input_bb_temp3.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp3.range_max" statn = swrdattr(swid, "input_bb_temp3.missing", & airs_rad_gran.input_bb_temp3.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp3.missing" statn = swrdattr(swid, "input_bb_temp3.max_track", & airs_rad_gran.input_bb_temp3.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp3.max_track" statn = swrdattr(swid, "input_bb_temp3.max_xtrack", & airs_rad_gran.input_bb_temp3.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp3.max_xtrack" statn = swrdattr(swid, "input_bb_temp3.min_track", & airs_rad_gran.input_bb_temp3.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp3.min_track" statn = swrdattr(swid, "input_bb_temp3.min_xtrack", & airs_rad_gran.input_bb_temp3.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp3.min_xtrack" statn = swrdattr(swid, "input_bb_temp4.min", & airs_rad_gran.input_bb_temp4.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp4.min" statn = swrdattr(swid, "input_bb_temp4.max", & airs_rad_gran.input_bb_temp4.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp4.max" statn = swrdattr(swid, "input_bb_temp4.mean", & airs_rad_gran.input_bb_temp4.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp4.mean" statn = swrdattr(swid, "input_bb_temp4.dev", & airs_rad_gran.input_bb_temp4.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp4.dev" statn = swrdattr(swid, "input_bb_temp4.num_in", & airs_rad_gran.input_bb_temp4.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp4.num_in" statn = swrdattr(swid, "input_bb_temp4.num_lo", & airs_rad_gran.input_bb_temp4.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp4.num_lo" statn = swrdattr(swid, "input_bb_temp4.num_hi", & airs_rad_gran.input_bb_temp4.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp4.num_hi" statn = swrdattr(swid, "input_bb_temp4.num_bad", & airs_rad_gran.input_bb_temp4.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp4.num_bad" statn = swrdattr(swid, "input_bb_temp4.range_min", & airs_rad_gran.input_bb_temp4.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp4.range_min" statn = swrdattr(swid, "input_bb_temp4.range_max", & airs_rad_gran.input_bb_temp4.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp4.range_max" statn = swrdattr(swid, "input_bb_temp4.missing", & airs_rad_gran.input_bb_temp4.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp4.missing" statn = swrdattr(swid, "input_bb_temp4.max_track", & airs_rad_gran.input_bb_temp4.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp4.max_track" statn = swrdattr(swid, "input_bb_temp4.max_xtrack", & airs_rad_gran.input_bb_temp4.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp4.max_xtrack" statn = swrdattr(swid, "input_bb_temp4.min_track", & airs_rad_gran.input_bb_temp4.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp4.min_track" statn = swrdattr(swid, "input_bb_temp4.min_xtrack", & airs_rad_gran.input_bb_temp4.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_bb_temp4.min_xtrack" statn = swrdattr(swid, "input_spec_temp.min", & airs_rad_gran.input_spec_temp.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_spec_temp.min" statn = swrdattr(swid, "input_spec_temp.max", & airs_rad_gran.input_spec_temp.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_spec_temp.max" statn = swrdattr(swid, "input_spec_temp.mean", & airs_rad_gran.input_spec_temp.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_spec_temp.mean" statn = swrdattr(swid, "input_spec_temp.dev", & airs_rad_gran.input_spec_temp.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_spec_temp.dev" statn = swrdattr(swid, "input_spec_temp.num_in", & airs_rad_gran.input_spec_temp.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_spec_temp.num_in" statn = swrdattr(swid, "input_spec_temp.num_lo", & airs_rad_gran.input_spec_temp.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_spec_temp.num_lo" statn = swrdattr(swid, "input_spec_temp.num_hi", & airs_rad_gran.input_spec_temp.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_spec_temp.num_hi" statn = swrdattr(swid, "input_spec_temp.num_bad", & airs_rad_gran.input_spec_temp.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_spec_temp.num_bad" statn = swrdattr(swid, "input_spec_temp.range_min", & airs_rad_gran.input_spec_temp.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_spec_temp.range_min" statn = swrdattr(swid, "input_spec_temp.range_max", & airs_rad_gran.input_spec_temp.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_spec_temp.range_max" statn = swrdattr(swid, "input_spec_temp.missing", & airs_rad_gran.input_spec_temp.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_spec_temp.missing" statn = swrdattr(swid, "input_spec_temp.max_track", & airs_rad_gran.input_spec_temp.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_spec_temp.max_track" statn = swrdattr(swid, "input_spec_temp.max_xtrack", & airs_rad_gran.input_spec_temp.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_spec_temp.max_xtrack" statn = swrdattr(swid, "input_spec_temp.min_track", & airs_rad_gran.input_spec_temp.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_spec_temp.min_track" statn = swrdattr(swid, "input_spec_temp.min_xtrack", & airs_rad_gran.input_spec_temp.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_spec_temp.min_xtrack" statn = swrdattr(swid, "input_ir_det_temp.min", & airs_rad_gran.input_ir_det_temp.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_ir_det_temp.min" statn = swrdattr(swid, "input_ir_det_temp.max", & airs_rad_gran.input_ir_det_temp.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_ir_det_temp.max" statn = swrdattr(swid, "input_ir_det_temp.mean", & airs_rad_gran.input_ir_det_temp.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_ir_det_temp.mean" statn = swrdattr(swid, "input_ir_det_temp.dev", & airs_rad_gran.input_ir_det_temp.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_ir_det_temp.dev" statn = swrdattr(swid, "input_ir_det_temp.num_in", & airs_rad_gran.input_ir_det_temp.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_ir_det_temp.num_in" statn = swrdattr(swid, "input_ir_det_temp.num_lo", & airs_rad_gran.input_ir_det_temp.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_ir_det_temp.num_lo" statn = swrdattr(swid, "input_ir_det_temp.num_hi", & airs_rad_gran.input_ir_det_temp.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_ir_det_temp.num_hi" statn = swrdattr(swid, "input_ir_det_temp.num_bad", & airs_rad_gran.input_ir_det_temp.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_ir_det_temp.num_bad" statn = swrdattr(swid, "input_ir_det_temp.range_min", & airs_rad_gran.input_ir_det_temp.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_ir_det_temp.range_min" statn = swrdattr(swid, "input_ir_det_temp.range_max", & airs_rad_gran.input_ir_det_temp.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_ir_det_temp.range_max" statn = swrdattr(swid, "input_ir_det_temp.missing", & airs_rad_gran.input_ir_det_temp.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_ir_det_temp.missing" statn = swrdattr(swid, "input_ir_det_temp.max_track", & airs_rad_gran.input_ir_det_temp.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_ir_det_temp.max_track" statn = swrdattr(swid, "input_ir_det_temp.max_xtrack", & airs_rad_gran.input_ir_det_temp.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_ir_det_temp.max_xtrack" statn = swrdattr(swid, "input_ir_det_temp.min_track", & airs_rad_gran.input_ir_det_temp.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_ir_det_temp.min_track" statn = swrdattr(swid, "input_ir_det_temp.min_xtrack", & airs_rad_gran.input_ir_det_temp.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_ir_det_temp.min_xtrack" statn = swrdattr(swid, "input_grating_temp_1.min", & airs_rad_gran.input_grating_temp_1.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_1.min" statn = swrdattr(swid, "input_grating_temp_1.max", & airs_rad_gran.input_grating_temp_1.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_1.max" statn = swrdattr(swid, "input_grating_temp_1.mean", & airs_rad_gran.input_grating_temp_1.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_1.mean" statn = swrdattr(swid, "input_grating_temp_1.dev", & airs_rad_gran.input_grating_temp_1.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_1.dev" statn = swrdattr(swid, "input_grating_temp_1.num_in", & airs_rad_gran.input_grating_temp_1.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_1.num_in" statn = swrdattr(swid, "input_grating_temp_1.num_lo", & airs_rad_gran.input_grating_temp_1.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_1.num_lo" statn = swrdattr(swid, "input_grating_temp_1.num_hi", & airs_rad_gran.input_grating_temp_1.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_1.num_hi" statn = swrdattr(swid, "input_grating_temp_1.num_bad", & airs_rad_gran.input_grating_temp_1.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_1.num_bad" statn = swrdattr(swid, "input_grating_temp_1.range_min", & airs_rad_gran.input_grating_temp_1.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_1.range_min" statn = swrdattr(swid, "input_grating_temp_1.range_max", & airs_rad_gran.input_grating_temp_1.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_1.range_max" statn = swrdattr(swid, "input_grating_temp_1.missing", & airs_rad_gran.input_grating_temp_1.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_1.missing" statn = swrdattr(swid, "input_grating_temp_1.max_track", & airs_rad_gran.input_grating_temp_1.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_1.max_track" statn = swrdattr(swid, "input_grating_temp_1.max_xtrack", & airs_rad_gran.input_grating_temp_1.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_1.max_xtrack" statn = swrdattr(swid, "input_grating_temp_1.min_track", & airs_rad_gran.input_grating_temp_1.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_1.min_track" statn = swrdattr(swid, "input_grating_temp_1.min_xtrack", & airs_rad_gran.input_grating_temp_1.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_1.min_xtrack" statn = swrdattr(swid, "input_grating_temp_2.min", & airs_rad_gran.input_grating_temp_2.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_2.min" statn = swrdattr(swid, "input_grating_temp_2.max", & airs_rad_gran.input_grating_temp_2.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_2.max" statn = swrdattr(swid, "input_grating_temp_2.mean", & airs_rad_gran.input_grating_temp_2.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_2.mean" statn = swrdattr(swid, "input_grating_temp_2.dev", & airs_rad_gran.input_grating_temp_2.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_2.dev" statn = swrdattr(swid, "input_grating_temp_2.num_in", & airs_rad_gran.input_grating_temp_2.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_2.num_in" statn = swrdattr(swid, "input_grating_temp_2.num_lo", & airs_rad_gran.input_grating_temp_2.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_2.num_lo" statn = swrdattr(swid, "input_grating_temp_2.num_hi", & airs_rad_gran.input_grating_temp_2.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_2.num_hi" statn = swrdattr(swid, "input_grating_temp_2.num_bad", & airs_rad_gran.input_grating_temp_2.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_2.num_bad" statn = swrdattr(swid, "input_grating_temp_2.range_min", & airs_rad_gran.input_grating_temp_2.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_2.range_min" statn = swrdattr(swid, "input_grating_temp_2.range_max", & airs_rad_gran.input_grating_temp_2.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_2.range_max" statn = swrdattr(swid, "input_grating_temp_2.missing", & airs_rad_gran.input_grating_temp_2.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_2.missing" statn = swrdattr(swid, "input_grating_temp_2.max_track", & airs_rad_gran.input_grating_temp_2.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_2.max_track" statn = swrdattr(swid, "input_grating_temp_2.max_xtrack", & airs_rad_gran.input_grating_temp_2.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_2.max_xtrack" statn = swrdattr(swid, "input_grating_temp_2.min_track", & airs_rad_gran.input_grating_temp_2.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_2.min_track" statn = swrdattr(swid, "input_grating_temp_2.min_xtrack", & airs_rad_gran.input_grating_temp_2.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_grating_temp_2.min_xtrack" statn = swrdattr(swid, "input_entr_filt_temp.min", & airs_rad_gran.input_entr_filt_temp.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_entr_filt_temp.min" statn = swrdattr(swid, "input_entr_filt_temp.max", & airs_rad_gran.input_entr_filt_temp.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_entr_filt_temp.max" statn = swrdattr(swid, "input_entr_filt_temp.mean", & airs_rad_gran.input_entr_filt_temp.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_entr_filt_temp.mean" statn = swrdattr(swid, "input_entr_filt_temp.dev", & airs_rad_gran.input_entr_filt_temp.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_entr_filt_temp.dev" statn = swrdattr(swid, "input_entr_filt_temp.num_in", & airs_rad_gran.input_entr_filt_temp.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_entr_filt_temp.num_in" statn = swrdattr(swid, "input_entr_filt_temp.num_lo", & airs_rad_gran.input_entr_filt_temp.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_entr_filt_temp.num_lo" statn = swrdattr(swid, "input_entr_filt_temp.num_hi", & airs_rad_gran.input_entr_filt_temp.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_entr_filt_temp.num_hi" statn = swrdattr(swid, "input_entr_filt_temp.num_bad", & airs_rad_gran.input_entr_filt_temp.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_entr_filt_temp.num_bad" statn = swrdattr(swid, "input_entr_filt_temp.range_min", & airs_rad_gran.input_entr_filt_temp.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_entr_filt_temp.range_min" statn = swrdattr(swid, "input_entr_filt_temp.range_max", & airs_rad_gran.input_entr_filt_temp.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_entr_filt_temp.range_max" statn = swrdattr(swid, "input_entr_filt_temp.missing", & airs_rad_gran.input_entr_filt_temp.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_entr_filt_temp.missing" statn = swrdattr(swid, "input_entr_filt_temp.max_track", & airs_rad_gran.input_entr_filt_temp.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_entr_filt_temp.max_track" statn = swrdattr(swid, "input_entr_filt_temp.max_xtrack", & airs_rad_gran.input_entr_filt_temp.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_entr_filt_temp.max_xtrack" statn = swrdattr(swid, "input_entr_filt_temp.min_track", & airs_rad_gran.input_entr_filt_temp.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_entr_filt_temp.min_track" statn = swrdattr(swid, "input_entr_filt_temp.min_xtrack", & airs_rad_gran.input_entr_filt_temp.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_entr_filt_temp.min_xtrack" statn = swrdattr(swid, "input_opt_bench_temp_2.min", & airs_rad_gran.input_opt_bench_temp_2.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_2.min" statn = swrdattr(swid, "input_opt_bench_temp_2.max", & airs_rad_gran.input_opt_bench_temp_2.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_2.max" statn = swrdattr(swid, "input_opt_bench_temp_2.mean", & airs_rad_gran.input_opt_bench_temp_2.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_2.mean" statn = swrdattr(swid, "input_opt_bench_temp_2.dev", & airs_rad_gran.input_opt_bench_temp_2.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_2.dev" statn = swrdattr(swid, "input_opt_bench_temp_2.num_in", & airs_rad_gran.input_opt_bench_temp_2.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_2.num_in" statn = swrdattr(swid, "input_opt_bench_temp_2.num_lo", & airs_rad_gran.input_opt_bench_temp_2.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_2.num_lo" statn = swrdattr(swid, "input_opt_bench_temp_2.num_hi", & airs_rad_gran.input_opt_bench_temp_2.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_2.num_hi" statn = swrdattr(swid, "input_opt_bench_temp_2.num_bad", & airs_rad_gran.input_opt_bench_temp_2.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_2.num_bad" statn = swrdattr(swid, "input_opt_bench_temp_2.range_min", & airs_rad_gran.input_opt_bench_temp_2.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_2.range_min" statn = swrdattr(swid, "input_opt_bench_temp_2.range_max", & airs_rad_gran.input_opt_bench_temp_2.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_2.range_max" statn = swrdattr(swid, "input_opt_bench_temp_2.missing", & airs_rad_gran.input_opt_bench_temp_2.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_2.missing" statn = swrdattr(swid, "input_opt_bench_temp_2.max_track", & airs_rad_gran.input_opt_bench_temp_2.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_2.max_track" statn = swrdattr(swid, "input_opt_bench_temp_2.max_xtrack", & airs_rad_gran.input_opt_bench_temp_2.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_2.max_xtrack" statn = swrdattr(swid, "input_opt_bench_temp_2.min_track", & airs_rad_gran.input_opt_bench_temp_2.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_2.min_track" statn = swrdattr(swid, "input_opt_bench_temp_2.min_xtrack", & airs_rad_gran.input_opt_bench_temp_2.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_2.min_xtrack" statn = swrdattr(swid, "input_opt_bench_temp_3.min", & airs_rad_gran.input_opt_bench_temp_3.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_3.min" statn = swrdattr(swid, "input_opt_bench_temp_3.max", & airs_rad_gran.input_opt_bench_temp_3.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_3.max" statn = swrdattr(swid, "input_opt_bench_temp_3.mean", & airs_rad_gran.input_opt_bench_temp_3.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_3.mean" statn = swrdattr(swid, "input_opt_bench_temp_3.dev", & airs_rad_gran.input_opt_bench_temp_3.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_3.dev" statn = swrdattr(swid, "input_opt_bench_temp_3.num_in", & airs_rad_gran.input_opt_bench_temp_3.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_3.num_in" statn = swrdattr(swid, "input_opt_bench_temp_3.num_lo", & airs_rad_gran.input_opt_bench_temp_3.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_3.num_lo" statn = swrdattr(swid, "input_opt_bench_temp_3.num_hi", & airs_rad_gran.input_opt_bench_temp_3.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_3.num_hi" statn = swrdattr(swid, "input_opt_bench_temp_3.num_bad", & airs_rad_gran.input_opt_bench_temp_3.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_3.num_bad" statn = swrdattr(swid, "input_opt_bench_temp_3.range_min", & airs_rad_gran.input_opt_bench_temp_3.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_3.range_min" statn = swrdattr(swid, "input_opt_bench_temp_3.range_max", & airs_rad_gran.input_opt_bench_temp_3.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_3.range_max" statn = swrdattr(swid, "input_opt_bench_temp_3.missing", & airs_rad_gran.input_opt_bench_temp_3.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_3.missing" statn = swrdattr(swid, "input_opt_bench_temp_3.max_track", & airs_rad_gran.input_opt_bench_temp_3.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_3.max_track" statn = swrdattr(swid, "input_opt_bench_temp_3.max_xtrack", & airs_rad_gran.input_opt_bench_temp_3.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_3.max_xtrack" statn = swrdattr(swid, "input_opt_bench_temp_3.min_track", & airs_rad_gran.input_opt_bench_temp_3.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_3.min_track" statn = swrdattr(swid, "input_opt_bench_temp_3.min_xtrack", & airs_rad_gran.input_opt_bench_temp_3.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_opt_bench_temp_3.min_xtrack" statn = swrdattr(swid, "input_scan_mirror_temp.min", & airs_rad_gran.input_scan_mirror_temp.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_scan_mirror_temp.min" statn = swrdattr(swid, "input_scan_mirror_temp.max", & airs_rad_gran.input_scan_mirror_temp.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_scan_mirror_temp.max" statn = swrdattr(swid, "input_scan_mirror_temp.mean", & airs_rad_gran.input_scan_mirror_temp.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_scan_mirror_temp.mean" statn = swrdattr(swid, "input_scan_mirror_temp.dev", & airs_rad_gran.input_scan_mirror_temp.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_scan_mirror_temp.dev" statn = swrdattr(swid, "input_scan_mirror_temp.num_in", & airs_rad_gran.input_scan_mirror_temp.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_scan_mirror_temp.num_in" statn = swrdattr(swid, "input_scan_mirror_temp.num_lo", & airs_rad_gran.input_scan_mirror_temp.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_scan_mirror_temp.num_lo" statn = swrdattr(swid, "input_scan_mirror_temp.num_hi", & airs_rad_gran.input_scan_mirror_temp.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_scan_mirror_temp.num_hi" statn = swrdattr(swid, "input_scan_mirror_temp.num_bad", & airs_rad_gran.input_scan_mirror_temp.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_scan_mirror_temp.num_bad" statn = swrdattr(swid, "input_scan_mirror_temp.range_min", & airs_rad_gran.input_scan_mirror_temp.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_scan_mirror_temp.range_min" statn = swrdattr(swid, "input_scan_mirror_temp.range_max", & airs_rad_gran.input_scan_mirror_temp.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_scan_mirror_temp.range_max" statn = swrdattr(swid, "input_scan_mirror_temp.missing", & airs_rad_gran.input_scan_mirror_temp.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_scan_mirror_temp.missing" statn = swrdattr(swid, "input_scan_mirror_temp.max_track", & airs_rad_gran.input_scan_mirror_temp.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_scan_mirror_temp.max_track" statn = swrdattr(swid, "input_scan_mirror_temp.max_xtrack", & airs_rad_gran.input_scan_mirror_temp.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_scan_mirror_temp.max_xtrack" statn = swrdattr(swid, "input_scan_mirror_temp.min_track", & airs_rad_gran.input_scan_mirror_temp.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_scan_mirror_temp.min_track" statn = swrdattr(swid, "input_scan_mirror_temp.min_xtrack", & airs_rad_gran.input_scan_mirror_temp.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_scan_mirror_temp.min_xtrack" statn = swrdattr(swid, "input_chopper_phase_err.min", & airs_rad_gran.input_chopper_phase_err.min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_chopper_phase_err.min" statn = swrdattr(swid, "input_chopper_phase_err.max", & airs_rad_gran.input_chopper_phase_err.max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_chopper_phase_err.max" statn = swrdattr(swid, "input_chopper_phase_err.mean", & airs_rad_gran.input_chopper_phase_err.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_chopper_phase_err.mean" statn = swrdattr(swid, "input_chopper_phase_err.dev", & airs_rad_gran.input_chopper_phase_err.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_chopper_phase_err.dev" statn = swrdattr(swid, "input_chopper_phase_err.num_in", & airs_rad_gran.input_chopper_phase_err.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_chopper_phase_err.num_in" statn = swrdattr(swid, "input_chopper_phase_err.num_lo", & airs_rad_gran.input_chopper_phase_err.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_chopper_phase_err.num_lo" statn = swrdattr(swid, "input_chopper_phase_err.num_hi", & airs_rad_gran.input_chopper_phase_err.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_chopper_phase_err.num_hi" statn = swrdattr(swid, "input_chopper_phase_err.num_bad", & airs_rad_gran.input_chopper_phase_err.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_chopper_phase_err.num_bad" statn = swrdattr(swid, "input_chopper_phase_err.range_min", & airs_rad_gran.input_chopper_phase_err.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_chopper_phase_err.range_min" statn = swrdattr(swid, "input_chopper_phase_err.range_max", & airs_rad_gran.input_chopper_phase_err.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_chopper_phase_err.range_max" statn = swrdattr(swid, "input_chopper_phase_err.missing", & airs_rad_gran.input_chopper_phase_err.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_chopper_phase_err.missing" statn = swrdattr(swid, "input_chopper_phase_err.max_track", & airs_rad_gran.input_chopper_phase_err.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_chopper_phase_err.max_track" statn = swrdattr(swid, "input_chopper_phase_err.max_xtrack", & airs_rad_gran.input_chopper_phase_err.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_chopper_phase_err.max_xtrack" statn = swrdattr(swid, "input_chopper_phase_err.min_track", & airs_rad_gran.input_chopper_phase_err.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_chopper_phase_err.min_track" statn = swrdattr(swid, "input_chopper_phase_err.min_xtrack", & airs_rad_gran.input_chopper_phase_err.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "input_chopper_phase_err.min_xtrack" statn = swrdattr(swid, "PopCount", & airs_rad_gran.PopCount) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "PopCount" statn = swrdattr(swid, "NumRefChannels", & airs_rad_gran.NumRefChannels) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumRefChannels" statn = swrdattr(swid, "Rdiff_swindow_M1a_chan", & airs_rad_gran.Rdiff_swindow_M1a_chan) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "Rdiff_swindow_M1a_chan" statn = swrdattr(swid, "Rdiff_swindow_M2a_chan", & airs_rad_gran.Rdiff_swindow_M2a_chan) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "Rdiff_swindow_M2a_chan" statn = swrdattr(swid, "Rdiff_lwindow_M8_chan", & airs_rad_gran.Rdiff_lwindow_M8_chan) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "Rdiff_lwindow_M8_chan" statn = swrdattr(swid, "Rdiff_lwindow_M9_chan", & airs_rad_gran.Rdiff_lwindow_M9_chan) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "Rdiff_lwindow_M9_chan" statn = swrdattr(swid, "CF_Version", & airs_rad_gran.CF_Version) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "CF_Version" statn = swrdattr(swid, "NumSaturatedFOVs", & airs_rad_gran.NumSaturatedFOVs) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumSaturatedFOVs" statn = swrdattr(swid, "NumUnderflowFOVs", & airs_rad_gran.NumUnderflowFOVs) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumUnderflowFOVs" statn = swrdattr(swid, "NumCalFOVsOutOfBounds", & airs_rad_gran.NumCalFOVsOutOfBounds) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumCalFOVsOutOfBounds" statn = swrdattr(swid, "NumSO2FOVs", & airs_rad_gran.NumSO2FOVs) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumSO2FOVs" statn = swrdattr(swid, "granules_present", & airs_rad_gran.granules_present) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "granules_present" statn = swrdattr(swid, "spectral_TAI", & airs_rad_gran.spectral_TAI) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "spectral_TAI" statn = swrdattr(swid, "spec_shift_upwell", & airs_rad_gran.spec_shift_upwell) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "spec_shift_upwell" statn = swrdattr(swid, "spec_shift_unc_upwell", & airs_rad_gran.spec_shift_unc_upwell) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "spec_shift_unc_upwell" statn = swrdattr(swid, "spec_fl_upwell", & airs_rad_gran.spec_fl_upwell) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "spec_fl_upwell" statn = swrdattr(swid, "spec_fl_unc_upwell", & airs_rad_gran.spec_fl_unc_upwell) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "spec_fl_unc_upwell" statn = swrdattr(swid, "SpectralFeaturesUpwell", & airs_rad_gran.SpectralFeaturesUpwell) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "SpectralFeaturesUpwell" statn = swrdattr(swid, "spec_iter_upwell", & airs_rad_gran.spec_iter_upwell) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "spec_iter_upwell" statn = swrdattr(swid, "spec_clim_select", & airs_rad_gran.spec_clim_select) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "spec_clim_select" statn = swrdattr(swid, "spec_shift_pary", & airs_rad_gran.spec_shift_pary) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "spec_shift_pary" statn = swrdattr(swid, "spec_shift_unc_pary", & airs_rad_gran.spec_shift_unc_pary) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "spec_shift_unc_pary" statn = swrdattr(swid, "spec_fl_pary", & airs_rad_gran.spec_fl_pary) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "spec_fl_pary" statn = swrdattr(swid, "spec_fl_unc_pary", & airs_rad_gran.spec_fl_unc_pary) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "spec_fl_unc_pary" statn = swrdattr(swid, "SpectralFeaturesPary", & airs_rad_gran.SpectralFeaturesPary) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "SpectralFeaturesPary" statn = swrdattr(swid, "spec_iter_pary", & airs_rad_gran.spec_iter_pary) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "spec_iter_pary" statn = swrdattr(swid, "DCRCount", & airs_rad_gran.DCRCount) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "DCRCount" ! Geolocation fields edge(1) = AIRS_RAD_GEOXTRACK edge(2) = AIRS_RAD_GEOTRACK statn = swrdfld(swid, "Latitude", start, stride, edge, & airs_rad_gran.Latitude) if (statn .ne. 0) & print *, "Error ", statn, " reading field Latitude" statn = swrdfld(swid, "Longitude", start, stride, edge, & airs_rad_gran.Longitude) if (statn .ne. 0) & print *, "Error ", statn, " reading field Longitude" statn = swrdfld(swid, "Time", start, stride, edge, & airs_rad_gran.Time) if (statn .ne. 0) & print *, "Error ", statn, " reading field Time" ! Data Fields edge(3) = 135 edge(2) = 90 edge(1) = 2378 statn = SWrdfld(swid, "radiances", & start, stride, edge, & airs_rad_gran.radiances) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "radiances" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "scanang", & start, stride, edge, & airs_rad_gran.scanang) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "scanang" edge(1) = 135 statn = SWrdfld(swid, "satheight", & start, stride, edge, & airs_rad_gran.satheight) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satheight" edge(1) = 135 statn = SWrdfld(swid, "satroll", & start, stride, edge, & airs_rad_gran.satroll) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satroll" edge(1) = 135 statn = SWrdfld(swid, "satpitch", & start, stride, edge, & airs_rad_gran.satpitch) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satpitch" edge(1) = 135 statn = SWrdfld(swid, "satyaw", & start, stride, edge, & airs_rad_gran.satyaw) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satyaw" edge(1) = 135 statn = SWrdfld(swid, "satgeoqa", & start, stride, edge, & airs_rad_gran.satgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satgeoqa" edge(1) = 135 statn = SWrdfld(swid, "glintgeoqa", & start, stride, edge, & airs_rad_gran.glintgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "glintgeoqa" edge(1) = 135 statn = SWrdfld(swid, "moongeoqa", & start, stride, edge, & airs_rad_gran.moongeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "moongeoqa" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "ftptgeoqa", & start, stride, edge, & airs_rad_gran.ftptgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "ftptgeoqa" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "zengeoqa", & start, stride, edge, & airs_rad_gran.zengeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "zengeoqa" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "demgeoqa", & start, stride, edge, & airs_rad_gran.demgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "demgeoqa" edge(1) = 135 statn = SWrdfld(swid, "nadirTAI", & start, stride, edge, & airs_rad_gran.nadirTAI) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "nadirTAI" edge(1) = 135 statn = SWrdfld(swid, "sat_lat", & start, stride, edge, & airs_rad_gran.sat_lat) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "sat_lat" edge(1) = 135 statn = SWrdfld(swid, "sat_lon", & start, stride, edge, & airs_rad_gran.sat_lon) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "sat_lon" edge(1) = 135 statn = SWrdfld(swid, "scan_node_type", & start, stride, edge, & airs_rad_gran.scan_node_type) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "scan_node_type" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "satzen", & start, stride, edge, & airs_rad_gran.satzen) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satzen" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "satazi", & start, stride, edge, & airs_rad_gran.satazi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satazi" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "solzen", & start, stride, edge, & airs_rad_gran.solzen) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "solzen" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "solazi", & start, stride, edge, & airs_rad_gran.solazi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "solazi" edge(1) = 135 statn = SWrdfld(swid, "glintlat", & start, stride, edge, & airs_rad_gran.glintlat) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "glintlat" edge(1) = 135 statn = SWrdfld(swid, "glintlon", & start, stride, edge, & airs_rad_gran.glintlon) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "glintlon" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "sun_glint_distance", & start, stride, edge, & airs_rad_gran.sun_glint_distance) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "sun_glint_distance" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "topog", & start, stride, edge, & airs_rad_gran.topog) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "topog" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "topog_err", & start, stride, edge, & airs_rad_gran.topog_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "topog_err" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "landFrac", & start, stride, edge, & airs_rad_gran.landFrac) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "landFrac" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "landFrac_err", & start, stride, edge, & airs_rad_gran.landFrac_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "landFrac_err" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "state", & start, stride, edge, & airs_rad_gran.state) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "state" edge(1) = 2378 statn = SWrdfld(swid, "CalChanSummary", & start, stride, edge, & airs_rad_gran.CalChanSummary) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CalChanSummary" edge(1) = 2378 statn = SWrdfld(swid, "ExcludedChans", & start, stride, edge, & airs_rad_gran.ExcludedChans) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "ExcludedChans" edge(1) = 135 statn = SWrdfld(swid, "CalScanSummary", & start, stride, edge, & airs_rad_gran.CalScanSummary) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CalScanSummary" edge(2) = 135 edge(1) = 2378 statn = SWrdfld(swid, "CalFlag", & start, stride, edge, & airs_rad_gran.CalFlag) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CalFlag" edge(2) = 135 edge(1) = 2378 statn = SWrdfld(swid, "SpaceViewDelta", & start, stride, edge, & airs_rad_gran.SpaceViewDelta) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "SpaceViewDelta" edge(1) = 2378 statn = SWrdfld(swid, "NeN", & start, stride, edge, & airs_rad_gran.NeN) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "NeN" edge(1) = 2378 statn = SWrdfld(swid, "input_scene_counts.min", & start, stride, edge, & airs_rad_gran.input_scene_counts.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.min" edge(1) = 2378 statn = SWrdfld(swid, "input_scene_counts.max", & start, stride, edge, & airs_rad_gran.input_scene_counts.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.max" edge(1) = 2378 statn = SWrdfld(swid, "input_scene_counts.mean", & start, stride, edge, & airs_rad_gran.input_scene_counts.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.mean" edge(1) = 2378 statn = SWrdfld(swid, "input_scene_counts.dev", & start, stride, edge, & airs_rad_gran.input_scene_counts.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.dev" edge(1) = 2378 statn = SWrdfld(swid, "input_scene_counts.num_in", & start, stride, edge, & airs_rad_gran.input_scene_counts.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.num_in" edge(1) = 2378 statn = SWrdfld(swid, "input_scene_counts.num_lo", & start, stride, edge, & airs_rad_gran.input_scene_counts.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.num_lo" edge(1) = 2378 statn = SWrdfld(swid, "input_scene_counts.num_hi", & start, stride, edge, & airs_rad_gran.input_scene_counts.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.num_hi" edge(1) = 2378 statn = SWrdfld(swid, "input_scene_counts.num_bad", & start, stride, edge, & airs_rad_gran.input_scene_counts.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.num_bad" edge(1) = 2378 statn = SWrdfld(swid, "input_scene_counts.range_min", & start, stride, edge, & airs_rad_gran.input_scene_counts.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.range_min" edge(1) = 2378 statn = SWrdfld(swid, "input_scene_counts.range_max", & start, stride, edge, & airs_rad_gran.input_scene_counts.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.range_max" edge(1) = 2378 statn = SWrdfld(swid, "input_scene_counts.missing", & start, stride, edge, & airs_rad_gran.input_scene_counts.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.missing" edge(1) = 2378 statn = SWrdfld(swid, "input_scene_counts.max_track", & start, stride, edge, & airs_rad_gran.input_scene_counts.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.max_track" edge(1) = 2378 statn = SWrdfld(swid, "input_scene_counts.max_xtrack", & start, stride, edge, & airs_rad_gran.input_scene_counts.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.max_xtrack" edge(1) = 2378 statn = SWrdfld(swid, "input_scene_counts.min_track", & start, stride, edge, & airs_rad_gran.input_scene_counts.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.min_track" edge(1) = 2378 statn = SWrdfld(swid, "input_scene_counts.min_xtrack", & start, stride, edge, & airs_rad_gran.input_scene_counts.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_scene_counts.min_xtrack" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_counts.min", & start, stride, edge, & airs_rad_gran.input_space_counts.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_counts.min" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_counts.max", & start, stride, edge, & airs_rad_gran.input_space_counts.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_counts.max" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_counts.mean", & start, stride, edge, & airs_rad_gran.input_space_counts.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_counts.mean" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_counts.dev", & start, stride, edge, & airs_rad_gran.input_space_counts.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_counts.dev" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_counts.num_in", & start, stride, edge, & airs_rad_gran.input_space_counts.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_counts.num_in" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_counts.num_lo", & start, stride, edge, & airs_rad_gran.input_space_counts.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_counts.num_lo" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_counts.num_hi", & start, stride, edge, & airs_rad_gran.input_space_counts.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_counts.num_hi" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_counts.num_bad", & start, stride, edge, & airs_rad_gran.input_space_counts.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_counts.num_bad" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_counts.range_min", & start, stride, edge, & airs_rad_gran.input_space_counts.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_counts.range_min" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_counts.range_max", & start, stride, edge, & airs_rad_gran.input_space_counts.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_counts.range_max" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_counts.missing", & start, stride, edge, & airs_rad_gran.input_space_counts.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_counts.missing" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_counts.max_track", & start, stride, edge, & airs_rad_gran.input_space_counts.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_counts.max_track" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_counts.max_xtrack", & start, stride, edge, & airs_rad_gran.input_space_counts.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_counts.max_xtrack" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_counts.min_track", & start, stride, edge, & airs_rad_gran.input_space_counts.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_counts.min_track" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_counts.min_xtrack", & start, stride, edge, & airs_rad_gran.input_space_counts.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_counts.min_xtrack" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_signals.min", & start, stride, edge, & airs_rad_gran.input_space_signals.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_signals.min" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_signals.max", & start, stride, edge, & airs_rad_gran.input_space_signals.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_signals.max" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_signals.mean", & start, stride, edge, & airs_rad_gran.input_space_signals.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_signals.mean" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_signals.dev", & start, stride, edge, & airs_rad_gran.input_space_signals.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_signals.dev" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_signals.num_in", & start, stride, edge, & airs_rad_gran.input_space_signals.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_signals.num_in" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_signals.num_lo", & start, stride, edge, & airs_rad_gran.input_space_signals.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_signals.num_lo" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_signals.num_hi", & start, stride, edge, & airs_rad_gran.input_space_signals.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_signals.num_hi" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_signals.num_bad", & start, stride, edge, & airs_rad_gran.input_space_signals.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_signals.num_bad" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_signals.range_min", & start, stride, edge, & airs_rad_gran.input_space_signals.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_signals.range_min" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_signals.range_max", & start, stride, edge, & airs_rad_gran.input_space_signals.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_signals.range_max" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_signals.missing", & start, stride, edge, & airs_rad_gran.input_space_signals.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_signals.missing" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_signals.max_track", & start, stride, edge, & airs_rad_gran.input_space_signals.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_signals.max_track" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_signals.max_xtrack", & start, stride, edge, & airs_rad_gran.input_space_signals.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_signals.max_xtrack" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_signals.min_track", & start, stride, edge, & airs_rad_gran.input_space_signals.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_signals.min_track" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_signals.min_xtrack", & start, stride, edge, & airs_rad_gran.input_space_signals.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_signals.min_xtrack" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_diffs.min", & start, stride, edge, & airs_rad_gran.input_space_diffs.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_diffs.min" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_diffs.max", & start, stride, edge, & airs_rad_gran.input_space_diffs.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_diffs.max" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_diffs.mean", & start, stride, edge, & airs_rad_gran.input_space_diffs.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_diffs.mean" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_diffs.dev", & start, stride, edge, & airs_rad_gran.input_space_diffs.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_diffs.dev" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_diffs.num", & start, stride, edge, & airs_rad_gran.input_space_diffs.num) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_diffs.num" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_diffs.num_bad", & start, stride, edge, & airs_rad_gran.input_space_diffs.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_diffs.num_bad" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_diffs.max_track", & start, stride, edge, & airs_rad_gran.input_space_diffs.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_diffs.max_track" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_diffs.max_xtrack", & start, stride, edge, & airs_rad_gran.input_space_diffs.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_diffs.max_xtrack" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_diffs.min_track", & start, stride, edge, & airs_rad_gran.input_space_diffs.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_diffs.min_track" edge(2) = 4 edge(1) = 2378 statn = SWrdfld(swid, "input_space_diffs.min_xtrack", & start, stride, edge, & airs_rad_gran.input_space_diffs.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_space_diffs.min_xtrack" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_counts.min", & start, stride, edge, & airs_rad_gran.input_bb_counts.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.min" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_counts.max", & start, stride, edge, & airs_rad_gran.input_bb_counts.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.max" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_counts.mean", & start, stride, edge, & airs_rad_gran.input_bb_counts.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.mean" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_counts.dev", & start, stride, edge, & airs_rad_gran.input_bb_counts.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.dev" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_counts.num_in", & start, stride, edge, & airs_rad_gran.input_bb_counts.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.num_in" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_counts.num_lo", & start, stride, edge, & airs_rad_gran.input_bb_counts.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.num_lo" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_counts.num_hi", & start, stride, edge, & airs_rad_gran.input_bb_counts.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.num_hi" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_counts.num_bad", & start, stride, edge, & airs_rad_gran.input_bb_counts.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.num_bad" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_counts.range_min", & start, stride, edge, & airs_rad_gran.input_bb_counts.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.range_min" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_counts.range_max", & start, stride, edge, & airs_rad_gran.input_bb_counts.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.range_max" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_counts.missing", & start, stride, edge, & airs_rad_gran.input_bb_counts.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.missing" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_counts.max_track", & start, stride, edge, & airs_rad_gran.input_bb_counts.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.max_track" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_counts.max_xtrack", & start, stride, edge, & airs_rad_gran.input_bb_counts.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.max_xtrack" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_counts.min_track", & start, stride, edge, & airs_rad_gran.input_bb_counts.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.min_track" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_counts.min_xtrack", & start, stride, edge, & airs_rad_gran.input_bb_counts.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_counts.min_xtrack" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_signals.min", & start, stride, edge, & airs_rad_gran.input_bb_signals.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_signals.min" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_signals.max", & start, stride, edge, & airs_rad_gran.input_bb_signals.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_signals.max" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_signals.mean", & start, stride, edge, & airs_rad_gran.input_bb_signals.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_signals.mean" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_signals.dev", & start, stride, edge, & airs_rad_gran.input_bb_signals.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_signals.dev" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_signals.num_in", & start, stride, edge, & airs_rad_gran.input_bb_signals.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_signals.num_in" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_signals.num_lo", & start, stride, edge, & airs_rad_gran.input_bb_signals.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_signals.num_lo" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_signals.num_hi", & start, stride, edge, & airs_rad_gran.input_bb_signals.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_signals.num_hi" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_signals.num_bad", & start, stride, edge, & airs_rad_gran.input_bb_signals.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_signals.num_bad" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_signals.range_min", & start, stride, edge, & airs_rad_gran.input_bb_signals.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_signals.range_min" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_signals.range_max", & start, stride, edge, & airs_rad_gran.input_bb_signals.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_signals.range_max" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_signals.missing", & start, stride, edge, & airs_rad_gran.input_bb_signals.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_signals.missing" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_signals.max_track", & start, stride, edge, & airs_rad_gran.input_bb_signals.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_signals.max_track" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_signals.max_xtrack", & start, stride, edge, & airs_rad_gran.input_bb_signals.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_signals.max_xtrack" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_signals.min_track", & start, stride, edge, & airs_rad_gran.input_bb_signals.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_signals.min_track" edge(1) = 2378 statn = SWrdfld(swid, "input_bb_signals.min_xtrack", & start, stride, edge, & airs_rad_gran.input_bb_signals.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_bb_signals.min_xtrack" edge(1) = 2378 statn = SWrdfld(swid, "input_spec_counts.min", & start, stride, edge, & airs_rad_gran.input_spec_counts.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_spec_counts.min" edge(1) = 2378 statn = SWrdfld(swid, "input_spec_counts.max", & start, stride, edge, & airs_rad_gran.input_spec_counts.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_spec_counts.max" edge(1) = 2378 statn = SWrdfld(swid, "input_spec_counts.mean", & start, stride, edge, & airs_rad_gran.input_spec_counts.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_spec_counts.mean" edge(1) = 2378 statn = SWrdfld(swid, "input_spec_counts.dev", & start, stride, edge, & airs_rad_gran.input_spec_counts.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_spec_counts.dev" edge(1) = 2378 statn = SWrdfld(swid, "input_spec_counts.num_in", & start, stride, edge, & airs_rad_gran.input_spec_counts.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_spec_counts.num_in" edge(1) = 2378 statn = SWrdfld(swid, "input_spec_counts.num_lo", & start, stride, edge, & airs_rad_gran.input_spec_counts.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_spec_counts.num_lo" edge(1) = 2378 statn = SWrdfld(swid, "input_spec_counts.num_hi", & start, stride, edge, & airs_rad_gran.input_spec_counts.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_spec_counts.num_hi" edge(1) = 2378 statn = SWrdfld(swid, "input_spec_counts.num_bad", & start, stride, edge, & airs_rad_gran.input_spec_counts.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_spec_counts.num_bad" edge(1) = 2378 statn = SWrdfld(swid, "input_spec_counts.range_min", & start, stride, edge, & airs_rad_gran.input_spec_counts.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_spec_counts.range_min" edge(1) = 2378 statn = SWrdfld(swid, "input_spec_counts.range_max", & start, stride, edge, & airs_rad_gran.input_spec_counts.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_spec_counts.range_max" edge(1) = 2378 statn = SWrdfld(swid, "input_spec_counts.missing", & start, stride, edge, & airs_rad_gran.input_spec_counts.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_spec_counts.missing" edge(1) = 2378 statn = SWrdfld(swid, "input_spec_counts.max_track", & start, stride, edge, & airs_rad_gran.input_spec_counts.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_spec_counts.max_track" edge(1) = 2378 statn = SWrdfld(swid, "input_spec_counts.max_xtrack", & start, stride, edge, & airs_rad_gran.input_spec_counts.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_spec_counts.max_xtrack" edge(1) = 2378 statn = SWrdfld(swid, "input_spec_counts.min_track", & start, stride, edge, & airs_rad_gran.input_spec_counts.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_spec_counts.min_track" edge(1) = 2378 statn = SWrdfld(swid, "input_spec_counts.min_xtrack", & start, stride, edge, & airs_rad_gran.input_spec_counts.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "input_spec_counts.min_xtrack" edge(1) = 135 statn = SWrdfld(swid, "spaceview_selection", & start, stride, edge, & airs_rad_gran.spaceview_selection) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spaceview_selection" edge(1) = 2378 statn = SWrdfld(swid, "offset_stats.min", & start, stride, edge, & airs_rad_gran.offset_stats.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.min" edge(1) = 2378 statn = SWrdfld(swid, "offset_stats.max", & start, stride, edge, & airs_rad_gran.offset_stats.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.max" edge(1) = 2378 statn = SWrdfld(swid, "offset_stats.mean", & start, stride, edge, & airs_rad_gran.offset_stats.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.mean" edge(1) = 2378 statn = SWrdfld(swid, "offset_stats.dev", & start, stride, edge, & airs_rad_gran.offset_stats.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.dev" edge(1) = 2378 statn = SWrdfld(swid, "offset_stats.num", & start, stride, edge, & airs_rad_gran.offset_stats.num) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.num" edge(1) = 2378 statn = SWrdfld(swid, "offset_stats.num_bad", & start, stride, edge, & airs_rad_gran.offset_stats.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.num_bad" edge(1) = 2378 statn = SWrdfld(swid, "offset_stats.max_track", & start, stride, edge, & airs_rad_gran.offset_stats.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.max_track" edge(1) = 2378 statn = SWrdfld(swid, "offset_stats.max_xtrack", & start, stride, edge, & airs_rad_gran.offset_stats.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.max_xtrack" edge(1) = 2378 statn = SWrdfld(swid, "offset_stats.min_track", & start, stride, edge, & airs_rad_gran.offset_stats.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.min_track" edge(1) = 2378 statn = SWrdfld(swid, "offset_stats.min_xtrack", & start, stride, edge, & airs_rad_gran.offset_stats.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "offset_stats.min_xtrack" edge(1) = 2378 statn = SWrdfld(swid, "gain_stats.min", & start, stride, edge, & airs_rad_gran.gain_stats.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.min" edge(1) = 2378 statn = SWrdfld(swid, "gain_stats.max", & start, stride, edge, & airs_rad_gran.gain_stats.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.max" edge(1) = 2378 statn = SWrdfld(swid, "gain_stats.mean", & start, stride, edge, & airs_rad_gran.gain_stats.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.mean" edge(1) = 2378 statn = SWrdfld(swid, "gain_stats.dev", & start, stride, edge, & airs_rad_gran.gain_stats.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.dev" edge(1) = 2378 statn = SWrdfld(swid, "gain_stats.num", & start, stride, edge, & airs_rad_gran.gain_stats.num) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.num" edge(1) = 2378 statn = SWrdfld(swid, "gain_stats.num_bad", & start, stride, edge, & airs_rad_gran.gain_stats.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.num_bad" edge(1) = 2378 statn = SWrdfld(swid, "gain_stats.max_track", & start, stride, edge, & airs_rad_gran.gain_stats.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.max_track" edge(1) = 2378 statn = SWrdfld(swid, "gain_stats.max_xtrack", & start, stride, edge, & airs_rad_gran.gain_stats.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.max_xtrack" edge(1) = 2378 statn = SWrdfld(swid, "gain_stats.min_track", & start, stride, edge, & airs_rad_gran.gain_stats.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.min_track" edge(1) = 2378 statn = SWrdfld(swid, "gain_stats.min_xtrack", & start, stride, edge, & airs_rad_gran.gain_stats.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "gain_stats.min_xtrack" edge(1) = 2378 statn = SWrdfld(swid, "rad_stats.min", & start, stride, edge, & airs_rad_gran.rad_stats.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.min" edge(1) = 2378 statn = SWrdfld(swid, "rad_stats.max", & start, stride, edge, & airs_rad_gran.rad_stats.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.max" edge(1) = 2378 statn = SWrdfld(swid, "rad_stats.mean", & start, stride, edge, & airs_rad_gran.rad_stats.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.mean" edge(1) = 2378 statn = SWrdfld(swid, "rad_stats.dev", & start, stride, edge, & airs_rad_gran.rad_stats.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.dev" edge(1) = 2378 statn = SWrdfld(swid, "rad_stats.num", & start, stride, edge, & airs_rad_gran.rad_stats.num) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.num" edge(1) = 2378 statn = SWrdfld(swid, "rad_stats.num_bad", & start, stride, edge, & airs_rad_gran.rad_stats.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.num_bad" edge(1) = 2378 statn = SWrdfld(swid, "rad_stats.max_track", & start, stride, edge, & airs_rad_gran.rad_stats.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.max_track" edge(1) = 2378 statn = SWrdfld(swid, "rad_stats.max_xtrack", & start, stride, edge, & airs_rad_gran.rad_stats.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.max_xtrack" edge(1) = 2378 statn = SWrdfld(swid, "rad_stats.min_track", & start, stride, edge, & airs_rad_gran.rad_stats.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.min_track" edge(1) = 2378 statn = SWrdfld(swid, "rad_stats.min_xtrack", & start, stride, edge, & airs_rad_gran.rad_stats.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_stats.min_xtrack" edge(1) = 2378 statn = SWrdfld(swid, "Gain", & start, stride, edge, & airs_rad_gran.Gain) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Gain" edge(1) = 100 statn = SWrdfld(swid, "RefChannels", & start, stride, edge, & airs_rad_gran.RefChannels) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "RefChannels" edge(2) = 90 edge(1) = 100 statn = SWrdfld(swid, "rad_scan_stats.min", & start, stride, edge, & airs_rad_gran.rad_scan_stats.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_scan_stats.min" edge(2) = 90 edge(1) = 100 statn = SWrdfld(swid, "rad_scan_stats.max", & start, stride, edge, & airs_rad_gran.rad_scan_stats.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_scan_stats.max" edge(2) = 90 edge(1) = 100 statn = SWrdfld(swid, "rad_scan_stats.mean", & start, stride, edge, & airs_rad_gran.rad_scan_stats.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_scan_stats.mean" edge(2) = 90 edge(1) = 100 statn = SWrdfld(swid, "rad_scan_stats.dev", & start, stride, edge, & airs_rad_gran.rad_scan_stats.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_scan_stats.dev" edge(2) = 90 edge(1) = 100 statn = SWrdfld(swid, "rad_scan_stats.num", & start, stride, edge, & airs_rad_gran.rad_scan_stats.num) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_scan_stats.num" edge(2) = 90 edge(1) = 100 statn = SWrdfld(swid, "rad_scan_stats.num_bad", & start, stride, edge, & airs_rad_gran.rad_scan_stats.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_scan_stats.num_bad" edge(2) = 90 edge(1) = 100 statn = SWrdfld(swid, "rad_scan_stats.max_track", & start, stride, edge, & airs_rad_gran.rad_scan_stats.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_scan_stats.max_track" edge(2) = 90 edge(1) = 100 statn = SWrdfld(swid, "rad_scan_stats.max_xtrack", & start, stride, edge, & airs_rad_gran.rad_scan_stats.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_scan_stats.max_xtrack" edge(2) = 90 edge(1) = 100 statn = SWrdfld(swid, "rad_scan_stats.min_track", & start, stride, edge, & airs_rad_gran.rad_scan_stats.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_scan_stats.min_track" edge(2) = 90 edge(1) = 100 statn = SWrdfld(swid, "rad_scan_stats.min_xtrack", & start, stride, edge, & airs_rad_gran.rad_scan_stats.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rad_scan_stats.min_xtrack" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "Rdiff_swindow", & start, stride, edge, & airs_rad_gran.Rdiff_swindow) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Rdiff_swindow" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "Rdiff_lwindow", & start, stride, edge, & airs_rad_gran.Rdiff_lwindow) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Rdiff_lwindow" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "SceneInhomogeneous", & start, stride, edge, & airs_rad_gran.SceneInhomogeneous) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "SceneInhomogeneous" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "dust_flag", & start, stride, edge, & airs_rad_gran.dust_flag) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "dust_flag" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "dust_score", & start, stride, edge, & airs_rad_gran.dust_score) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "dust_score" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "spectral_clear_indicator", & start, stride, edge, & airs_rad_gran.spectral_clear_indicator) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spectral_clear_indicator" edge(2) = 135 edge(1) = 90 statn = SWrdfld(swid, "BT_diff_SO2", & start, stride, edge, & airs_rad_gran.BT_diff_SO2) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "BT_diff_SO2" edge(1) = 135 statn = SWrdfld(swid, "OpMode", & start, stride, edge, & airs_rad_gran.OpMode) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "OpMode" edge(1) = 135 statn = SWrdfld(swid, "EDCBOARD", & start, stride, edge, & airs_rad_gran.EDCBOARD) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "EDCBOARD" edge(1) = 2378 statn = SWrdfld(swid, "nominal_freq", & start, stride, edge, & airs_rad_gran.nominal_freq) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "nominal_freq" edge(1) = 2378 statn = SWrdfld(swid, "spectral_freq", & start, stride, edge, & airs_rad_gran.spectral_freq) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spectral_freq" edge(1) = 2378 statn = SWrdfld(swid, "spectral_freq_unc", & start, stride, edge, & airs_rad_gran.spectral_freq_unc) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spectral_freq_unc" edge(1) = 35 statn = SWrdfld(swid, "spec_feature_shifts_upwell", & start, stride, edge, & airs_rad_gran.spec_feature_shifts_upwell) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_shifts_upwell" edge(1) = 35 statn = SWrdfld(swid, "spec_feature_corr_upwell", & start, stride, edge, & airs_rad_gran.spec_feature_corr_upwell) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_corr_upwell" edge(1) = 35 statn = SWrdfld(swid, "spec_feature_sharp_upwell", & start, stride, edge, & airs_rad_gran.spec_feature_sharp_upwell) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_sharp_upwell" edge(1) = 35 statn = SWrdfld(swid, "spec_feature_resid_upwell", & start, stride, edge, & airs_rad_gran.spec_feature_resid_upwell) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_resid_upwell" edge(1) = 35 statn = SWrdfld(swid, "spec_feature_contrast_stats.min", & start, stride, edge, & airs_rad_gran.spec_feature_contrast_stats.min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_contrast_stats.min" edge(1) = 35 statn = SWrdfld(swid, "spec_feature_contrast_stats.max", & start, stride, edge, & airs_rad_gran.spec_feature_contrast_stats.max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_contrast_stats.max" edge(1) = 35 statn = SWrdfld(swid, "spec_feature_contrast_stats.mean", & start, stride, edge, & airs_rad_gran.spec_feature_contrast_stats.mean) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_contrast_stats.mean" edge(1) = 35 statn = SWrdfld(swid, "spec_feature_contrast_stats.dev", & start, stride, edge, & airs_rad_gran.spec_feature_contrast_stats.dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_contrast_stats.dev" edge(1) = 35 statn = SWrdfld(swid, "spec_feature_contrast_stats.num_in", & start, stride, edge, & airs_rad_gran.spec_feature_contrast_stats.num_in) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_contrast_stats.num_in" edge(1) = 35 statn = SWrdfld(swid, "spec_feature_contrast_stats.num_lo", & start, stride, edge, & airs_rad_gran.spec_feature_contrast_stats.num_lo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_contrast_stats.num_lo" edge(1) = 35 statn = SWrdfld(swid, "spec_feature_contrast_stats.num_hi", & start, stride, edge, & airs_rad_gran.spec_feature_contrast_stats.num_hi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_contrast_stats.num_hi" edge(1) = 35 statn = SWrdfld(swid, "spec_feature_contrast_stats.num_bad", & start, stride, edge, & airs_rad_gran.spec_feature_contrast_stats.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_contrast_stats.num_bad" edge(1) = 35 statn = SWrdfld(swid, "spec_feature_contrast_stats.range_min", & start, stride, edge, & airs_rad_gran.spec_feature_contrast_stats.range_min) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_contrast_stats.range_min" edge(1) = 35 statn = SWrdfld(swid, "spec_feature_contrast_stats.range_max", & start, stride, edge, & airs_rad_gran.spec_feature_contrast_stats.range_max) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_contrast_stats.range_max" edge(1) = 35 statn = SWrdfld(swid, "spec_feature_contrast_stats.missing", & start, stride, edge, & airs_rad_gran.spec_feature_contrast_stats.missing) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_contrast_stats.missing" edge(1) = 35 statn = SWrdfld(swid, "spec_feature_contrast_stats.max_track", & start, stride, edge, & airs_rad_gran.spec_feature_contrast_stats.max_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_contrast_stats.max_track" edge(1) = 35 statn = SWrdfld(swid, "spec_feature_contrast_stats.max_xtrack", & start, stride, edge, & airs_rad_gran.spec_feature_contrast_stats.max_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_contrast_stats.max_xtrack" edge(1) = 35 statn = SWrdfld(swid, "spec_feature_contrast_stats.min_track", & start, stride, edge, & airs_rad_gran.spec_feature_contrast_stats.min_track) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_contrast_stats.min_track" edge(1) = 35 statn = SWrdfld(swid, "spec_feature_contrast_stats.min_xtrack", & start, stride, edge, & airs_rad_gran.spec_feature_contrast_stats.min_xtrack) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_contrast_stats.min_xtrack" edge(1) = 17 statn = SWrdfld(swid, "spec_feature_shifts_pary", & start, stride, edge, & airs_rad_gran.spec_feature_shifts_pary) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_shifts_pary" edge(1) = 17 statn = SWrdfld(swid, "spec_feature_corr_pary", & start, stride, edge, & airs_rad_gran.spec_feature_corr_pary) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_corr_pary" edge(1) = 17 statn = SWrdfld(swid, "spec_feature_sharp_pary", & start, stride, edge, & airs_rad_gran.spec_feature_sharp_pary) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_sharp_pary" edge(1) = 17 statn = SWrdfld(swid, "spec_feature_resid_pary", & start, stride, edge, & airs_rad_gran.spec_feature_resid_pary) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spec_feature_resid_pary" edge(1) = 2378 statn = SWrdfld(swid, "ave_pary_spectrum", & start, stride, edge, & airs_rad_gran.ave_pary_spectrum) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "ave_pary_spectrum" ! 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:25 PM ET
Top