Skip to content. | Skip to navigation

Personal tools

airs_sup_rdr.f

! This function is autogenerated by the mkezio program to read ! an AIRS swath of type "L2_Support_atmospheric&surface_product" from file given by the ! file_name argument into a buffer pointed to by the airs_sup_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_sup_rdr(file_name, airs_sup_gran) IMPLICIT NONE INCLUDE 'airs_sup_typ.inc' INCLUDE 'airs_sup_struct.inc' character*(*) file_name RECORD /airs_sup_gran_t/ airs_sup_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. & 'L2_Support_atmospheric&surface_product') then print *, "Error: bad swath name ", swathname, " in file ", & file_name print *, "Expected L2_Support_atmospheric&surface_product" 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, "NumSO2FOVs", & airs_sup_gran.NumSO2FOVs) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumSO2FOVs" statn = swrdattr(swid, "processing_level", & airs_sup_gran.processing_level) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "processing_level" statn = swrdattr(swid, "instrument", & airs_sup_gran.instrument) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "instrument" statn = swrdattr(swid, "DayNightFlag", & airs_sup_gran.DayNightFlag) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "DayNightFlag" statn = swrdattr(swid, "AutomaticQAFlag", & airs_sup_gran.AutomaticQAFlag) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "AutomaticQAFlag" statn = swrdattr(swid, "NumTotalData", & airs_sup_gran.NumTotalData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumTotalData" statn = swrdattr(swid, "NumProcessData", & airs_sup_gran.NumProcessData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumProcessData" statn = swrdattr(swid, "NumSpecialData", & airs_sup_gran.NumSpecialData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumSpecialData" statn = swrdattr(swid, "NumBadData", & airs_sup_gran.NumBadData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumBadData" statn = swrdattr(swid, "NumMissingData", & airs_sup_gran.NumMissingData) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumMissingData" statn = swrdattr(swid, "NumLandSurface", & airs_sup_gran.NumLandSurface) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumLandSurface" statn = swrdattr(swid, "NumOceanSurface", & airs_sup_gran.NumOceanSurface) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumOceanSurface" statn = swrdattr(swid, "node_type", & airs_sup_gran.node_type) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "node_type" statn = swrdattr(swid, "start_year", & airs_sup_gran.start_year) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_year" statn = swrdattr(swid, "start_month", & airs_sup_gran.start_month) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_month" statn = swrdattr(swid, "start_day", & airs_sup_gran.start_day) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_day" statn = swrdattr(swid, "start_hour", & airs_sup_gran.start_hour) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_hour" statn = swrdattr(swid, "start_minute", & airs_sup_gran.start_minute) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_minute" statn = swrdattr(swid, "start_sec", & airs_sup_gran.start_sec) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_sec" statn = swrdattr(swid, "start_orbit", & airs_sup_gran.start_orbit) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_orbit" statn = swrdattr(swid, "end_orbit", & airs_sup_gran.end_orbit) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_orbit" statn = swrdattr(swid, "orbit_path", & airs_sup_gran.orbit_path) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "orbit_path" statn = swrdattr(swid, "start_orbit_row", & airs_sup_gran.start_orbit_row) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_orbit_row" statn = swrdattr(swid, "end_orbit_row", & airs_sup_gran.end_orbit_row) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_orbit_row" statn = swrdattr(swid, "granule_number", & airs_sup_gran.granule_number) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "granule_number" statn = swrdattr(swid, "num_scansets", & airs_sup_gran.num_scansets) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_scansets" statn = swrdattr(swid, "num_scanlines", & airs_sup_gran.num_scanlines) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_scanlines" statn = swrdattr(swid, "start_Latitude", & airs_sup_gran.start_Latitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_Latitude" statn = swrdattr(swid, "start_Longitude", & airs_sup_gran.start_Longitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_Longitude" statn = swrdattr(swid, "start_Time", & airs_sup_gran.start_Time) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "start_Time" statn = swrdattr(swid, "end_Latitude", & airs_sup_gran.end_Latitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_Latitude" statn = swrdattr(swid, "end_Longitude", & airs_sup_gran.end_Longitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_Longitude" statn = swrdattr(swid, "end_Time", & airs_sup_gran.end_Time) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "end_Time" statn = swrdattr(swid, "eq_x_longitude", & airs_sup_gran.eq_x_longitude) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "eq_x_longitude" statn = swrdattr(swid, "eq_x_tai", & airs_sup_gran.eq_x_tai) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "eq_x_tai" statn = swrdattr(swid, "orbitgeoqa", & airs_sup_gran.orbitgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "orbitgeoqa" statn = swrdattr(swid, "num_satgeoqa", & airs_sup_gran.num_satgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_satgeoqa" statn = swrdattr(swid, "num_glintgeoqa", & airs_sup_gran.num_glintgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_glintgeoqa" statn = swrdattr(swid, "num_moongeoqa", & airs_sup_gran.num_moongeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_moongeoqa" statn = swrdattr(swid, "num_ftptgeoqa", & airs_sup_gran.num_ftptgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_ftptgeoqa" statn = swrdattr(swid, "num_zengeoqa", & airs_sup_gran.num_zengeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_zengeoqa" statn = swrdattr(swid, "num_demgeoqa", & airs_sup_gran.num_demgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_demgeoqa" statn = swrdattr(swid, "num_fpe", & airs_sup_gran.num_fpe) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "num_fpe" statn = swrdattr(swid, "LonGranuleCen", & airs_sup_gran.LonGranuleCen) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "LonGranuleCen" statn = swrdattr(swid, "LatGranuleCen", & airs_sup_gran.LatGranuleCen) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "LatGranuleCen" statn = swrdattr(swid, "LocTimeGranuleCen", & airs_sup_gran.LocTimeGranuleCen) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "LocTimeGranuleCen" statn = swrdattr(swid, "nFOV_big_ang_adj", & airs_sup_gran.nFOV_big_ang_adj) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "nFOV_big_ang_adj" statn = swrdattr(swid, "CO_first_guess", & airs_sup_gran.CO_first_guess) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "CO_first_guess" statn = swrdattr(swid, "CH4_first_guess", & airs_sup_gran.CH4_first_guess) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "CH4_first_guess" statn = swrdattr(swid, "numHingeSurfInit", & airs_sup_gran.numHingeSurfInit) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "numHingeSurfInit" statn = swrdattr(swid, "NumMWStratIrRetOnly", & airs_sup_gran.NumMWStratIrRetOnly) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumMWStratIrRetOnly" statn = swrdattr(swid, "NumNoHSB", & airs_sup_gran.NumNoHSB) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumNoHSB" statn = swrdattr(swid, "NumNoAMSUA", & airs_sup_gran.NumNoAMSUA) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumNoAMSUA" statn = swrdattr(swid, "NumNoAIRS", & airs_sup_gran.NumNoAIRS) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumNoAIRS" statn = swrdattr(swid, "NumNoVis", & airs_sup_gran.NumNoVis) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "NumNoVis" statn = swrdattr(swid, "DCRCount", & airs_sup_gran.DCRCount) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "DCRCount" statn = swrdattr(swid, "PopCount", & airs_sup_gran.PopCount) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "PopCount" statn = swrdattr(swid, "MoonInViewMWCount", & airs_sup_gran.MoonInViewMWCount) if (statn .ne. 0) & print *, "Error ", statn, " reading attribute ", & "MoonInViewMWCount" ! Geolocation fields edge(1) = AIRS_SUP_GEOXTRACK edge(2) = AIRS_SUP_GEOTRACK statn = swrdfld(swid, "Latitude", start, stride, edge, & airs_sup_gran.Latitude) if (statn .ne. 0) & print *, "Error ", statn, " reading field Latitude" statn = swrdfld(swid, "Longitude", start, stride, edge, & airs_sup_gran.Longitude) if (statn .ne. 0) & print *, "Error ", statn, " reading field Longitude" statn = swrdfld(swid, "Time", start, stride, edge, & airs_sup_gran.Time) if (statn .ne. 0) & print *, "Error ", statn, " reading field Time" ! Data Fields edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "RetQAFlag", & start, stride, edge, & airs_sup_gran.RetQAFlag) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "RetQAFlag" edge(1) = 45 statn = SWrdfld(swid, "satheight", & start, stride, edge, & airs_sup_gran.satheight) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satheight" edge(1) = 45 statn = SWrdfld(swid, "satroll", & start, stride, edge, & airs_sup_gran.satroll) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satroll" edge(1) = 45 statn = SWrdfld(swid, "satpitch", & start, stride, edge, & airs_sup_gran.satpitch) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satpitch" edge(1) = 45 statn = SWrdfld(swid, "satyaw", & start, stride, edge, & airs_sup_gran.satyaw) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satyaw" edge(1) = 45 statn = SWrdfld(swid, "satgeoqa", & start, stride, edge, & airs_sup_gran.satgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satgeoqa" edge(1) = 45 statn = SWrdfld(swid, "glintgeoqa", & start, stride, edge, & airs_sup_gran.glintgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "glintgeoqa" edge(1) = 45 statn = SWrdfld(swid, "moongeoqa", & start, stride, edge, & airs_sup_gran.moongeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "moongeoqa" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "ftptgeoqa", & start, stride, edge, & airs_sup_gran.ftptgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "ftptgeoqa" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "zengeoqa", & start, stride, edge, & airs_sup_gran.zengeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "zengeoqa" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "demgeoqa", & start, stride, edge, & airs_sup_gran.demgeoqa) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "demgeoqa" edge(1) = 45 statn = SWrdfld(swid, "nadirTAI", & start, stride, edge, & airs_sup_gran.nadirTAI) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "nadirTAI" edge(1) = 45 statn = SWrdfld(swid, "sat_lat", & start, stride, edge, & airs_sup_gran.sat_lat) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "sat_lat" edge(1) = 45 statn = SWrdfld(swid, "sat_lon", & start, stride, edge, & airs_sup_gran.sat_lon) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "sat_lon" edge(1) = 45 statn = SWrdfld(swid, "scan_node_type", & start, stride, edge, & airs_sup_gran.scan_node_type) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "scan_node_type" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "satzen", & start, stride, edge, & airs_sup_gran.satzen) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satzen" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "satazi", & start, stride, edge, & airs_sup_gran.satazi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satazi" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "solzen", & start, stride, edge, & airs_sup_gran.solzen) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "solzen" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "solazi", & start, stride, edge, & airs_sup_gran.solazi) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "solazi" edge(1) = 45 statn = SWrdfld(swid, "glintlat", & start, stride, edge, & airs_sup_gran.glintlat) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "glintlat" edge(1) = 45 statn = SWrdfld(swid, "glintlon", & start, stride, edge, & airs_sup_gran.glintlon) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "glintlon" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "sun_glint_distance", & start, stride, edge, & airs_sup_gran.sun_glint_distance) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "sun_glint_distance" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "topog", & start, stride, edge, & airs_sup_gran.topog) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "topog" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "topog_err", & start, stride, edge, & airs_sup_gran.topog_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "topog_err" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "landFrac", & start, stride, edge, & airs_sup_gran.landFrac) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "landFrac" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "landFrac_err", & start, stride, edge, & airs_sup_gran.landFrac_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "landFrac_err" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "satzen_amsu", & start, stride, edge, & airs_sup_gran.satzen_amsu) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satzen_amsu" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "satazi_amsu", & start, stride, edge, & airs_sup_gran.satazi_amsu) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satazi_amsu" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "satzen_hsb", & start, stride, edge, & airs_sup_gran.satzen_hsb) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satzen_hsb" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "satazi_hsb", & start, stride, edge, & airs_sup_gran.satazi_hsb) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "satazi_hsb" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "MoonInViewIR", & start, stride, edge, & airs_sup_gran.MoonInViewIR) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MoonInViewIR" edge(1) = 100 statn = SWrdfld(swid, "pressSupp", & start, stride, edge, & airs_sup_gran.pressSupp) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "pressSupp" edge(1) = 28 statn = SWrdfld(swid, "pressStd", & start, stride, edge, & airs_sup_gran.pressStd) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "pressStd" edge(1) = 7 statn = SWrdfld(swid, "MWHingeSurfFreqGHz", & start, stride, edge, & airs_sup_gran.MWHingeSurfFreqGHz) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MWHingeSurfFreqGHz" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "latAIRS", & start, stride, edge, & airs_sup_gran.latAIRS) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "latAIRS" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "lonAIRS", & start, stride, edge, & airs_sup_gran.lonAIRS) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "lonAIRS" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "dust_flag", & start, stride, edge, & airs_sup_gran.dust_flag) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "dust_flag" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "dust_score", & start, stride, edge, & airs_sup_gran.dust_score) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "dust_score" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "BT_diff_SO2", & start, stride, edge, & airs_sup_gran.BT_diff_SO2) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "BT_diff_SO2" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "spectral_clear_indicator", & start, stride, edge, & airs_sup_gran.spectral_clear_indicator) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "spectral_clear_indicator" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "num_clear_spectral_indicator", & start, stride, edge, & airs_sup_gran.num_clear_spectral_indicator) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "num_clear_spectral_indicator" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "nchan_big_ang_adj", & start, stride, edge, & airs_sup_gran.nchan_big_ang_adj) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "nchan_big_ang_adj" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "PrecipAA4_50km", & start, stride, edge, & airs_sup_gran.PrecipAA4_50km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PrecipAA4_50km" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "PrecipAA5_50km", & start, stride, edge, & airs_sup_gran.PrecipAA5_50km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PrecipAA5_50km" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "PrecipAA6_50km", & start, stride, edge, & airs_sup_gran.PrecipAA6_50km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PrecipAA6_50km" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "PrecipAA7_50km", & start, stride, edge, & airs_sup_gran.PrecipAA7_50km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PrecipAA7_50km" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "PrecipAA8_50km", & start, stride, edge, & airs_sup_gran.PrecipAA8_50km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PrecipAA8_50km" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "PrecipAA9_50km", & start, stride, edge, & airs_sup_gran.PrecipAA9_50km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PrecipAA9_50km" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "PrecipAA4_15km", & start, stride, edge, & airs_sup_gran.PrecipAA4_15km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PrecipAA4_15km" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "PrecipAA5_15km", & start, stride, edge, & airs_sup_gran.PrecipAA5_15km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PrecipAA5_15km" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "PrecipAA6_15km", & start, stride, edge, & airs_sup_gran.PrecipAA6_15km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PrecipAA6_15km" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "PrecipAA7_15km", & start, stride, edge, & airs_sup_gran.PrecipAA7_15km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PrecipAA7_15km" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "PrecipAA8_15km", & start, stride, edge, & airs_sup_gran.PrecipAA8_15km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PrecipAA8_15km" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "PrecipAA9_15km", & start, stride, edge, & airs_sup_gran.PrecipAA9_15km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PrecipAA9_15km" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "AMSU_A_4_Precip_Corr_50km", & start, stride, edge, & airs_sup_gran.AMSU_A_4_Precip_Corr_50km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "AMSU_A_4_Precip_Corr_50km" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "AMSU_A_5_Precip_Corr_50km", & start, stride, edge, & airs_sup_gran.AMSU_A_5_Precip_Corr_50km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "AMSU_A_5_Precip_Corr_50km" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "AMSU_A_6_Precip_Corr_50km", & start, stride, edge, & airs_sup_gran.AMSU_A_6_Precip_Corr_50km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "AMSU_A_6_Precip_Corr_50km" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "AMSU_A_7_Precip_Corr_50km", & start, stride, edge, & airs_sup_gran.AMSU_A_7_Precip_Corr_50km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "AMSU_A_7_Precip_Corr_50km" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "AMSU_A_8_Precip_Corr_50km", & start, stride, edge, & airs_sup_gran.AMSU_A_8_Precip_Corr_50km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "AMSU_A_8_Precip_Corr_50km" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "AMSU_A_9_Precip_Corr_50km", & start, stride, edge, & airs_sup_gran.AMSU_A_9_Precip_Corr_50km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "AMSU_A_9_Precip_Corr_50km" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "AMSU_A_4_Precip_Corr_15km", & start, stride, edge, & airs_sup_gran.AMSU_A_4_Precip_Corr_15km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "AMSU_A_4_Precip_Corr_15km" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "AMSU_A_5_Precip_Corr_15km", & start, stride, edge, & airs_sup_gran.AMSU_A_5_Precip_Corr_15km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "AMSU_A_5_Precip_Corr_15km" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "AMSU_A_6_Precip_Corr_15km", & start, stride, edge, & airs_sup_gran.AMSU_A_6_Precip_Corr_15km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "AMSU_A_6_Precip_Corr_15km" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "AMSU_A_7_Precip_Corr_15km", & start, stride, edge, & airs_sup_gran.AMSU_A_7_Precip_Corr_15km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "AMSU_A_7_Precip_Corr_15km" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "AMSU_A_8_Precip_Corr_15km", & start, stride, edge, & airs_sup_gran.AMSU_A_8_Precip_Corr_15km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "AMSU_A_8_Precip_Corr_15km" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "AMSU_A_9_Precip_Corr_15km", & start, stride, edge, & airs_sup_gran.AMSU_A_9_Precip_Corr_15km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "AMSU_A_9_Precip_Corr_15km" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "rain_rate_50km", & start, stride, edge, & airs_sup_gran.rain_rate_50km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rain_rate_50km" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "rain_rate_15km", & start, stride, edge, & airs_sup_gran.rain_rate_15km) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rain_rate_15km" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Qual_Precip_Est", & start, stride, edge, & airs_sup_gran.Qual_Precip_Est) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Qual_Precip_Est" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "IR_Precip_Est", & start, stride, edge, & airs_sup_gran.IR_Precip_Est) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "IR_Precip_Est" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "IR_Precip_Est_Err", & start, stride, edge, & airs_sup_gran.IR_Precip_Est_Err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "IR_Precip_Est_Err" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Qual_Clim_Ind", & start, stride, edge, & airs_sup_gran.Qual_Clim_Ind) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Qual_Clim_Ind" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Tropo_CCI", & start, stride, edge, & airs_sup_gran.Tropo_CCI) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Tropo_CCI" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Tropo_CCI_Est_Err", & start, stride, edge, & airs_sup_gran.Tropo_CCI_Est_Err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Tropo_CCI_Est_Err" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Strato_CCI", & start, stride, edge, & airs_sup_gran.Strato_CCI) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Strato_CCI" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Strato_CCI_Est_Err", & start, stride, edge, & airs_sup_gran.Strato_CCI_Est_Err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Strato_CCI_Est_Err" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "MWSurfClass", & start, stride, edge, & airs_sup_gran.MWSurfClass) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MWSurfClass" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "SurfClass", & start, stride, edge, & airs_sup_gran.SurfClass) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "SurfClass" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "FracLandPlusIce", & start, stride, edge, & airs_sup_gran.FracLandPlusIce) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "FracLandPlusIce" edge(3) = 45 edge(2) = 30 edge(1) = 7 statn = SWrdfld(swid, "sfcTbMWStd", & start, stride, edge, & airs_sup_gran.sfcTbMWStd) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "sfcTbMWStd" edge(3) = 45 edge(2) = 30 edge(1) = 7 statn = SWrdfld(swid, "EmisMWStd", & start, stride, edge, & airs_sup_gran.EmisMWStd) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "EmisMWStd" edge(3) = 45 edge(2) = 30 edge(1) = 7 statn = SWrdfld(swid, "EmisMWStdErr", & start, stride, edge, & airs_sup_gran.EmisMWStdErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "EmisMWStdErr" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Emis50GHz", & start, stride, edge, & airs_sup_gran.Emis50GHz) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Emis50GHz" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Qual_Guess_PSurf", & start, stride, edge, & airs_sup_gran.Qual_Guess_PSurf) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Qual_Guess_PSurf" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "PSurfStd", & start, stride, edge, & airs_sup_gran.PSurfStd) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PSurfStd" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "nSurfSup", & start, stride, edge, & airs_sup_gran.nSurfSup) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "nSurfSup" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "nBestSup", & start, stride, edge, & airs_sup_gran.nBestSup) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "nBestSup" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "nGoodSup", & start, stride, edge, & airs_sup_gran.nGoodSup) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "nGoodSup" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "PBest", & start, stride, edge, & airs_sup_gran.PBest) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PBest" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "PGood", & start, stride, edge, & airs_sup_gran.PGood) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PGood" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "nSurfStd", & start, stride, edge, & airs_sup_gran.nSurfStd) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "nSurfStd" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "nBestStd", & start, stride, edge, & airs_sup_gran.nBestStd) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "nBestStd" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "nGoodStd", & start, stride, edge, & airs_sup_gran.nGoodStd) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "nGoodStd" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Press_mid_top_bndry", & start, stride, edge, & airs_sup_gran.Press_mid_top_bndry) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Press_mid_top_bndry" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Press_bot_mid_bndry", & start, stride, edge, & airs_sup_gran.Press_bot_mid_bndry) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Press_bot_mid_bndry" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "nSup_mid_top_bndry", & start, stride, edge, & airs_sup_gran.nSup_mid_top_bndry) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "nSup_mid_top_bndry" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "nSup_bot_mid_bndry", & start, stride, edge, & airs_sup_gran.nSup_bot_mid_bndry) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "nSup_bot_mid_bndry" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "nStd_mid_top_bndry", & start, stride, edge, & airs_sup_gran.nStd_mid_top_bndry) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "nStd_mid_top_bndry" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "nStd_bot_mid_bndry", & start, stride, edge, & airs_sup_gran.nStd_bot_mid_bndry) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "nStd_bot_mid_bndry" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Qual_Temp_Profile_Top", & start, stride, edge, & airs_sup_gran.Qual_Temp_Profile_Top) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Qual_Temp_Profile_Top" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Qual_Temp_Profile_Mid", & start, stride, edge, & airs_sup_gran.Qual_Temp_Profile_Mid) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Qual_Temp_Profile_Mid" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Qual_Temp_Profile_Bot", & start, stride, edge, & airs_sup_gran.Qual_Temp_Profile_Bot) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Qual_Temp_Profile_Bot" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "TAirSup", & start, stride, edge, & airs_sup_gran.TAirSup) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "TAirSup" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "TAirSupErr", & start, stride, edge, & airs_sup_gran.TAirSupErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "TAirSupErr" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "num_Temp_Func", & start, stride, edge, & airs_sup_gran.num_Temp_Func) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "num_Temp_Func" edge(4) = 45 edge(3) = 30 edge(2) = 23 edge(1) = 23 statn = SWrdfld(swid, "Temp_ave_kern", & start, stride, edge, & airs_sup_gran.Temp_ave_kern) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Temp_ave_kern" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "TSurfAir", & start, stride, edge, & airs_sup_gran.TSurfAir) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "TSurfAir" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "TSurfAirErr", & start, stride, edge, & airs_sup_gran.TSurfAirErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "TSurfAirErr" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Qual_Surf", & start, stride, edge, & airs_sup_gran.Qual_Surf) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Qual_Surf" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "TSurfStd", & start, stride, edge, & airs_sup_gran.TSurfStd) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "TSurfStd" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "TSurfStdErr", & start, stride, edge, & airs_sup_gran.TSurfStdErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "TSurfStdErr" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "numHingeSurf", & start, stride, edge, & airs_sup_gran.numHingeSurf) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "numHingeSurf" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "freqEmis", & start, stride, edge, & airs_sup_gran.freqEmis) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "freqEmis" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "emisIRStd", & start, stride, edge, & airs_sup_gran.emisIRStd) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "emisIRStd" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "emisIRStdErr", & start, stride, edge, & airs_sup_gran.emisIRStdErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "emisIRStdErr" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "Effective_Solar_Reflectance", & start, stride, edge, & airs_sup_gran.Effective_Solar_Reflectance) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Effective_Solar_Reflectance" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Qual_H2O", & start, stride, edge, & airs_sup_gran.Qual_H2O) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Qual_H2O" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "H2OCDSup", & start, stride, edge, & airs_sup_gran.H2OCDSup) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "H2OCDSup" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "H2OCDSupErr", & start, stride, edge, & airs_sup_gran.H2OCDSupErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "H2OCDSupErr" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "totH2OStd", & start, stride, edge, & airs_sup_gran.totH2OStd) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "totH2OStd" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "totH2OStdErr", & start, stride, edge, & airs_sup_gran.totH2OStdErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "totH2OStdErr" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "num_H2O_Func", & start, stride, edge, & airs_sup_gran.num_H2O_Func) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "num_H2O_Func" edge(3) = 45 edge(2) = 30 edge(1) = 11 statn = SWrdfld(swid, "H2O_verticality", & start, stride, edge, & airs_sup_gran.H2O_verticality) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "H2O_verticality" edge(4) = 45 edge(3) = 30 edge(2) = 11 edge(1) = 11 statn = SWrdfld(swid, "H2O_ave_kern", & start, stride, edge, & airs_sup_gran.H2O_ave_kern) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "H2O_ave_kern" edge(3) = 45 edge(2) = 30 edge(1) = 11 statn = SWrdfld(swid, "H2O_VMR_eff", & start, stride, edge, & airs_sup_gran.H2O_VMR_eff) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "H2O_VMR_eff" edge(3) = 45 edge(2) = 30 edge(1) = 11 statn = SWrdfld(swid, "H2O_eff_press", & start, stride, edge, & airs_sup_gran.H2O_eff_press) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "H2O_eff_press" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "H2O_dof", & start, stride, edge, & airs_sup_gran.H2O_dof) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "H2O_dof" edge(1) = 11 statn = SWrdfld(swid, "H2O_trapezoid_layers", & start, stride, edge, & airs_sup_gran.H2O_trapezoid_layers) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "H2O_trapezoid_layers" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "lwCDSup", & start, stride, edge, & airs_sup_gran.lwCDSup) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "lwCDSup" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "lwCDSupErr", & start, stride, edge, & airs_sup_gran.lwCDSupErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "lwCDSupErr" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "cIWSup", & start, stride, edge, & airs_sup_gran.cIWSup) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "cIWSup" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Qual_O3", & start, stride, edge, & airs_sup_gran.Qual_O3) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Qual_O3" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "totO3Std", & start, stride, edge, & airs_sup_gran.totO3Std) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "totO3Std" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "totO3StdErr", & start, stride, edge, & airs_sup_gran.totO3StdErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "totO3StdErr" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "O3CDSup", & start, stride, edge, & airs_sup_gran.O3CDSup) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "O3CDSup" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "num_O3_Func", & start, stride, edge, & airs_sup_gran.num_O3_Func) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "num_O3_Func" edge(1) = 9 statn = SWrdfld(swid, "O3_trapezoid_layers", & start, stride, edge, & airs_sup_gran.O3_trapezoid_layers) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "O3_trapezoid_layers" edge(3) = 45 edge(2) = 30 edge(1) = 9 statn = SWrdfld(swid, "O3_eff_press", & start, stride, edge, & airs_sup_gran.O3_eff_press) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "O3_eff_press" edge(3) = 45 edge(2) = 30 edge(1) = 9 statn = SWrdfld(swid, "O3_VMR_eff", & start, stride, edge, & airs_sup_gran.O3_VMR_eff) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "O3_VMR_eff" edge(3) = 45 edge(2) = 30 edge(1) = 9 statn = SWrdfld(swid, "O3_verticality", & start, stride, edge, & airs_sup_gran.O3_verticality) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "O3_verticality" edge(4) = 45 edge(3) = 30 edge(2) = 9 edge(1) = 9 statn = SWrdfld(swid, "O3_ave_kern", & start, stride, edge, & airs_sup_gran.O3_ave_kern) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "O3_ave_kern" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "O3CDInit", & start, stride, edge, & airs_sup_gran.O3CDInit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "O3CDInit" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Qual_CO", & start, stride, edge, & airs_sup_gran.Qual_CO) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Qual_CO" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "CO_total_column", & start, stride, edge, & airs_sup_gran.CO_total_column) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CO_total_column" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "COCDSup", & start, stride, edge, & airs_sup_gran.COCDSup) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "COCDSup" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "COCDSupErr", & start, stride, edge, & airs_sup_gran.COCDSupErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "COCDSupErr" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "num_CO_Func", & start, stride, edge, & airs_sup_gran.num_CO_Func) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "num_CO_Func" edge(1) = 9 statn = SWrdfld(swid, "CO_trapezoid_layers", & start, stride, edge, & airs_sup_gran.CO_trapezoid_layers) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CO_trapezoid_layers" edge(3) = 45 edge(2) = 30 edge(1) = 9 statn = SWrdfld(swid, "CO_eff_press", & start, stride, edge, & airs_sup_gran.CO_eff_press) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CO_eff_press" edge(3) = 45 edge(2) = 30 edge(1) = 9 statn = SWrdfld(swid, "CO_VMR_eff", & start, stride, edge, & airs_sup_gran.CO_VMR_eff) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CO_VMR_eff" edge(3) = 45 edge(2) = 30 edge(1) = 9 statn = SWrdfld(swid, "CO_VMR_eff_err", & start, stride, edge, & airs_sup_gran.CO_VMR_eff_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CO_VMR_eff_err" edge(3) = 45 edge(2) = 30 edge(1) = 9 statn = SWrdfld(swid, "CO_verticality", & start, stride, edge, & airs_sup_gran.CO_verticality) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CO_verticality" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "CO_dof", & start, stride, edge, & airs_sup_gran.CO_dof) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CO_dof" edge(4) = 45 edge(3) = 30 edge(2) = 9 edge(1) = 9 statn = SWrdfld(swid, "CO_ave_kern", & start, stride, edge, & airs_sup_gran.CO_ave_kern) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CO_ave_kern" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Qual_CO2", & start, stride, edge, & airs_sup_gran.Qual_CO2) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Qual_CO2" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Qual_CH4", & start, stride, edge, & airs_sup_gran.Qual_CH4) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Qual_CH4" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "CH4_total_column", & start, stride, edge, & airs_sup_gran.CH4_total_column) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CH4_total_column" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "CH4CDSup", & start, stride, edge, & airs_sup_gran.CH4CDSup) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CH4CDSup" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "CH4CDSupErr", & start, stride, edge, & airs_sup_gran.CH4CDSupErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CH4CDSupErr" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "num_CH4_Func", & start, stride, edge, & airs_sup_gran.num_CH4_Func) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "num_CH4_Func" edge(1) = 7 statn = SWrdfld(swid, "CH4_trapezoid_layers", & start, stride, edge, & airs_sup_gran.CH4_trapezoid_layers) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CH4_trapezoid_layers" edge(3) = 45 edge(2) = 30 edge(1) = 7 statn = SWrdfld(swid, "CH4_eff_press", & start, stride, edge, & airs_sup_gran.CH4_eff_press) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CH4_eff_press" edge(3) = 45 edge(2) = 30 edge(1) = 7 statn = SWrdfld(swid, "CH4_VMR_eff", & start, stride, edge, & airs_sup_gran.CH4_VMR_eff) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CH4_VMR_eff" edge(3) = 45 edge(2) = 30 edge(1) = 7 statn = SWrdfld(swid, "CH4_VMR_eff_err", & start, stride, edge, & airs_sup_gran.CH4_VMR_eff_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CH4_VMR_eff_err" edge(3) = 45 edge(2) = 30 edge(1) = 7 statn = SWrdfld(swid, "CH4_verticality", & start, stride, edge, & airs_sup_gran.CH4_verticality) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CH4_verticality" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "CH4_dof", & start, stride, edge, & airs_sup_gran.CH4_dof) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CH4_dof" edge(4) = 45 edge(3) = 30 edge(2) = 7 edge(1) = 7 statn = SWrdfld(swid, "CH4_ave_kern", & start, stride, edge, & airs_sup_gran.CH4_ave_kern) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CH4_ave_kern" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "CO2ppmv", & start, stride, edge, & airs_sup_gran.CO2ppmv) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CO2ppmv" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "CO2ppmvErr", & start, stride, edge, & airs_sup_gran.CO2ppmvErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CO2ppmvErr" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "PTropopause", & start, stride, edge, & airs_sup_gran.PTropopause) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PTropopause" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "T_Tropopause", & start, stride, edge, & airs_sup_gran.T_Tropopause) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "T_Tropopause" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "GP_Tropopause", & start, stride, edge, & airs_sup_gran.GP_Tropopause) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "GP_Tropopause" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "GP_Surface", & start, stride, edge, & airs_sup_gran.GP_Surface) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "GP_Surface" edge(1) = 50 statn = SWrdfld(swid, "freqEmisInit", & start, stride, edge, & airs_sup_gran.freqEmisInit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "freqEmisInit" edge(3) = 45 edge(2) = 30 edge(1) = 50 statn = SWrdfld(swid, "emisIRInit", & start, stride, edge, & airs_sup_gran.emisIRInit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "emisIRInit" edge(3) = 45 edge(2) = 30 edge(1) = 50 statn = SWrdfld(swid, "rhoIRInit", & start, stride, edge, & airs_sup_gran.rhoIRInit) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "rhoIRInit" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Qual_Cloud_OLR", & start, stride, edge, & airs_sup_gran.Qual_Cloud_OLR) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Qual_Cloud_OLR" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "olr", & start, stride, edge, & airs_sup_gran.olr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "olr" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "olr_err", & start, stride, edge, & airs_sup_gran.olr_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "olr_err" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Qual_clrolr", & start, stride, edge, & airs_sup_gran.Qual_clrolr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Qual_clrolr" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "clrolr", & start, stride, edge, & airs_sup_gran.clrolr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "clrolr" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "clrolr_err", & start, stride, edge, & airs_sup_gran.clrolr_err) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "clrolr_err" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "numCloud", & start, stride, edge, & airs_sup_gran.numCloud) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "numCloud" edge(3) = 45 edge(2) = 30 edge(1) = 2 statn = SWrdfld(swid, "TCldTopStd", & start, stride, edge, & airs_sup_gran.TCldTopStd) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "TCldTopStd" edge(3) = 45 edge(2) = 30 edge(1) = 2 statn = SWrdfld(swid, "TCldTopStdErr", & start, stride, edge, & airs_sup_gran.TCldTopStdErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "TCldTopStdErr" edge(3) = 45 edge(2) = 30 edge(1) = 2 statn = SWrdfld(swid, "PCldTopStd", & start, stride, edge, & airs_sup_gran.PCldTopStd) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PCldTopStd" edge(3) = 45 edge(2) = 30 edge(1) = 2 statn = SWrdfld(swid, "PCldTopStdErr", & start, stride, edge, & airs_sup_gran.PCldTopStdErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "PCldTopStdErr" edge(5) = 45 edge(4) = 30 edge(3) = 3 edge(2) = 3 edge(1) = 2 statn = SWrdfld(swid, "CldFrcStd", & start, stride, edge, & airs_sup_gran.CldFrcStd) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CldFrcStd" edge(5) = 45 edge(4) = 30 edge(3) = 3 edge(2) = 3 edge(1) = 2 statn = SWrdfld(swid, "CldFrcStdErr", & start, stride, edge, & airs_sup_gran.CldFrcStdErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CldFrcStdErr" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "numHingeCloud", & start, stride, edge, & airs_sup_gran.numHingeCloud) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "numHingeCloud" edge(4) = 45 edge(3) = 30 edge(2) = 2 edge(1) = 7 statn = SWrdfld(swid, "cldFreq", & start, stride, edge, & airs_sup_gran.cldFreq) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "cldFreq" edge(4) = 45 edge(3) = 30 edge(2) = 2 edge(1) = 7 statn = SWrdfld(swid, "CldEmis", & start, stride, edge, & airs_sup_gran.CldEmis) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CldEmis" edge(4) = 45 edge(3) = 30 edge(2) = 2 edge(1) = 7 statn = SWrdfld(swid, "CldEmisErr", & start, stride, edge, & airs_sup_gran.CldEmisErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CldEmisErr" edge(4) = 45 edge(3) = 30 edge(2) = 2 edge(1) = 7 statn = SWrdfld(swid, "CldRho", & start, stride, edge, & airs_sup_gran.CldRho) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CldRho" edge(4) = 45 edge(3) = 30 edge(2) = 2 edge(1) = 7 statn = SWrdfld(swid, "CldRhoErr", & start, stride, edge, & airs_sup_gran.CldRhoErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CldRhoErr" edge(6) = 45 edge(5) = 30 edge(4) = 3 edge(3) = 3 edge(2) = 4 edge(1) = 4 statn = SWrdfld(swid, "cornerlats", & start, stride, edge, & airs_sup_gran.cornerlats) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "cornerlats" edge(6) = 45 edge(5) = 30 edge(4) = 3 edge(3) = 3 edge(2) = 4 edge(1) = 4 statn = SWrdfld(swid, "cornerlons", & start, stride, edge, & airs_sup_gran.cornerlons) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "cornerlons" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "tsurf_forecast", & start, stride, edge, & airs_sup_gran.tsurf_forecast) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "tsurf_forecast" edge(4) = 45 edge(3) = 30 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "pseudo_lapse_rate", & start, stride, edge, & airs_sup_gran.pseudo_lapse_rate) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "pseudo_lapse_rate" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Qual_MW_Only_Temp_Strat", & start, stride, edge, & airs_sup_gran.Qual_MW_Only_Temp_Strat) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Qual_MW_Only_Temp_Strat" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Qual_MW_Only_Temp_Tropo", & start, stride, edge, & airs_sup_gran.Qual_MW_Only_Temp_Tropo) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Qual_MW_Only_Temp_Tropo" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "TAirMWOnly", & start, stride, edge, & airs_sup_gran.TAirMWOnly) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "TAirMWOnly" edge(3) = 45 edge(2) = 30 edge(1) = 28 statn = SWrdfld(swid, "TAirMWOnlyErr", & start, stride, edge, & airs_sup_gran.TAirMWOnlyErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "TAirMWOnlyErr" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "TAirCldyReg", & start, stride, edge, & airs_sup_gran.TAirCldyReg) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "TAirCldyReg" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Qual_MW_Only_H2O", & start, stride, edge, & airs_sup_gran.Qual_MW_Only_H2O) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Qual_MW_Only_H2O" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "totH2OMWOnlyStd", & start, stride, edge, & airs_sup_gran.totH2OMWOnlyStd) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "totH2OMWOnlyStd" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "H2OCDMWOnly", & start, stride, edge, & airs_sup_gran.H2OCDMWOnly) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "H2OCDMWOnly" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "H2OCDCldyReg", & start, stride, edge, & airs_sup_gran.H2OCDCldyReg) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "H2OCDCldyReg" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "TSurf1Ret", & start, stride, edge, & airs_sup_gran.TSurf1Ret) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "TSurf1Ret" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "TSurfAir1Ret", & start, stride, edge, & airs_sup_gran.TSurfAir1Ret) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "TSurfAir1Ret" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "TAir1Ret", & start, stride, edge, & airs_sup_gran.TAir1Ret) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "TAir1Ret" edge(3) = 45 edge(2) = 30 edge(1) = 100 statn = SWrdfld(swid, "H2OCD1Ret", & start, stride, edge, & airs_sup_gran.H2OCD1Ret) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "H2OCD1Ret" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "startup_psurf_range", & start, stride, edge, & airs_sup_gran.startup_psurf_range) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "startup_psurf_range" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "startup_tsurf_range", & start, stride, edge, & airs_sup_gran.startup_tsurf_range) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "startup_tsurf_range" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "startup_tair_range.flags", & start, stride, edge, & airs_sup_gran.startup_tair_range.flags) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "startup_tair_range.flags" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "startup_tair_range.num_hi_50", & start, stride, edge, & airs_sup_gran.startup_tair_range.num_hi_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "startup_tair_range.num_hi_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "startup_tair_range.num_lo_50", & start, stride, edge, & airs_sup_gran.startup_tair_range.num_lo_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "startup_tair_range.num_lo_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "startup_tair_range.num_hi_25", & start, stride, edge, & airs_sup_gran.startup_tair_range.num_hi_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "startup_tair_range.num_hi_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "startup_tair_range.num_lo_25", & start, stride, edge, & airs_sup_gran.startup_tair_range.num_lo_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "startup_tair_range.num_lo_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "startup_tair_range.num_hi_10", & start, stride, edge, & airs_sup_gran.startup_tair_range.num_hi_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "startup_tair_range.num_hi_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "startup_tair_range.num_lo_10", & start, stride, edge, & airs_sup_gran.startup_tair_range.num_lo_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "startup_tair_range.num_lo_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "startup_tair_range.num_bad", & start, stride, edge, & airs_sup_gran.startup_tair_range.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "startup_tair_range.num_bad" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "startup_tair_range.worst_case", & start, stride, edge, & airs_sup_gran.startup_tair_range.worst_case) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "startup_tair_range.worst_case" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_psurf_range", & start, stride, edge, & airs_sup_gran.reg_psurf_range) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_psurf_range" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_tsurf_range", & start, stride, edge, & airs_sup_gran.reg_tsurf_range) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_tsurf_range" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_tair_range.flags", & start, stride, edge, & airs_sup_gran.reg_tair_range.flags) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_tair_range.flags" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_tair_range.num_hi_50", & start, stride, edge, & airs_sup_gran.reg_tair_range.num_hi_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_tair_range.num_hi_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_tair_range.num_lo_50", & start, stride, edge, & airs_sup_gran.reg_tair_range.num_lo_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_tair_range.num_lo_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_tair_range.num_hi_25", & start, stride, edge, & airs_sup_gran.reg_tair_range.num_hi_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_tair_range.num_hi_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_tair_range.num_lo_25", & start, stride, edge, & airs_sup_gran.reg_tair_range.num_lo_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_tair_range.num_lo_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_tair_range.num_hi_10", & start, stride, edge, & airs_sup_gran.reg_tair_range.num_hi_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_tair_range.num_hi_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_tair_range.num_lo_10", & start, stride, edge, & airs_sup_gran.reg_tair_range.num_lo_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_tair_range.num_lo_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_tair_range.num_bad", & start, stride, edge, & airs_sup_gran.reg_tair_range.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_tair_range.num_bad" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_tair_range.worst_case", & start, stride, edge, & airs_sup_gran.reg_tair_range.worst_case) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_tair_range.worst_case" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_h2ocd_range.flags", & start, stride, edge, & airs_sup_gran.reg_h2ocd_range.flags) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_h2ocd_range.flags" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_h2ocd_range.num_hi_50", & start, stride, edge, & airs_sup_gran.reg_h2ocd_range.num_hi_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_h2ocd_range.num_hi_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_h2ocd_range.num_lo_50", & start, stride, edge, & airs_sup_gran.reg_h2ocd_range.num_lo_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_h2ocd_range.num_lo_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_h2ocd_range.num_hi_25", & start, stride, edge, & airs_sup_gran.reg_h2ocd_range.num_hi_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_h2ocd_range.num_hi_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_h2ocd_range.num_lo_25", & start, stride, edge, & airs_sup_gran.reg_h2ocd_range.num_lo_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_h2ocd_range.num_lo_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_h2ocd_range.num_hi_10", & start, stride, edge, & airs_sup_gran.reg_h2ocd_range.num_hi_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_h2ocd_range.num_hi_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_h2ocd_range.num_lo_10", & start, stride, edge, & airs_sup_gran.reg_h2ocd_range.num_lo_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_h2ocd_range.num_lo_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_h2ocd_range.num_bad", & start, stride, edge, & airs_sup_gran.reg_h2ocd_range.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_h2ocd_range.num_bad" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_h2ocd_range.worst_case", & start, stride, edge, & airs_sup_gran.reg_h2ocd_range.worst_case) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_h2ocd_range.worst_case" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_ozocd_range.flags", & start, stride, edge, & airs_sup_gran.reg_ozocd_range.flags) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_ozocd_range.flags" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_ozocd_range.num_hi_50", & start, stride, edge, & airs_sup_gran.reg_ozocd_range.num_hi_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_ozocd_range.num_hi_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_ozocd_range.num_lo_50", & start, stride, edge, & airs_sup_gran.reg_ozocd_range.num_lo_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_ozocd_range.num_lo_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_ozocd_range.num_hi_25", & start, stride, edge, & airs_sup_gran.reg_ozocd_range.num_hi_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_ozocd_range.num_hi_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_ozocd_range.num_lo_25", & start, stride, edge, & airs_sup_gran.reg_ozocd_range.num_lo_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_ozocd_range.num_lo_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_ozocd_range.num_hi_10", & start, stride, edge, & airs_sup_gran.reg_ozocd_range.num_hi_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_ozocd_range.num_hi_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_ozocd_range.num_lo_10", & start, stride, edge, & airs_sup_gran.reg_ozocd_range.num_lo_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_ozocd_range.num_lo_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_ozocd_range.num_bad", & start, stride, edge, & airs_sup_gran.reg_ozocd_range.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_ozocd_range.num_bad" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_ozocd_range.worst_case", & start, stride, edge, & airs_sup_gran.reg_ozocd_range.worst_case) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_ozocd_range.worst_case" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_cocd_range.flags", & start, stride, edge, & airs_sup_gran.reg_cocd_range.flags) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_cocd_range.flags" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_cocd_range.num_hi_50", & start, stride, edge, & airs_sup_gran.reg_cocd_range.num_hi_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_cocd_range.num_hi_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_cocd_range.num_lo_50", & start, stride, edge, & airs_sup_gran.reg_cocd_range.num_lo_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_cocd_range.num_lo_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_cocd_range.num_hi_25", & start, stride, edge, & airs_sup_gran.reg_cocd_range.num_hi_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_cocd_range.num_hi_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_cocd_range.num_lo_25", & start, stride, edge, & airs_sup_gran.reg_cocd_range.num_lo_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_cocd_range.num_lo_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_cocd_range.num_hi_10", & start, stride, edge, & airs_sup_gran.reg_cocd_range.num_hi_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_cocd_range.num_hi_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_cocd_range.num_lo_10", & start, stride, edge, & airs_sup_gran.reg_cocd_range.num_lo_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_cocd_range.num_lo_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_cocd_range.num_bad", & start, stride, edge, & airs_sup_gran.reg_cocd_range.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_cocd_range.num_bad" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_cocd_range.worst_case", & start, stride, edge, & airs_sup_gran.reg_cocd_range.worst_case) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_cocd_range.worst_case" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_ch4cd_range.flags", & start, stride, edge, & airs_sup_gran.reg_ch4cd_range.flags) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_ch4cd_range.flags" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_ch4cd_range.num_hi_50", & start, stride, edge, & airs_sup_gran.reg_ch4cd_range.num_hi_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_ch4cd_range.num_hi_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_ch4cd_range.num_lo_50", & start, stride, edge, & airs_sup_gran.reg_ch4cd_range.num_lo_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_ch4cd_range.num_lo_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_ch4cd_range.num_hi_25", & start, stride, edge, & airs_sup_gran.reg_ch4cd_range.num_hi_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_ch4cd_range.num_hi_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_ch4cd_range.num_lo_25", & start, stride, edge, & airs_sup_gran.reg_ch4cd_range.num_lo_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_ch4cd_range.num_lo_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_ch4cd_range.num_hi_10", & start, stride, edge, & airs_sup_gran.reg_ch4cd_range.num_hi_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_ch4cd_range.num_hi_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_ch4cd_range.num_lo_10", & start, stride, edge, & airs_sup_gran.reg_ch4cd_range.num_lo_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_ch4cd_range.num_lo_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_ch4cd_range.num_bad", & start, stride, edge, & airs_sup_gran.reg_ch4cd_range.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_ch4cd_range.num_bad" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "reg_ch4cd_range.worst_case", & start, stride, edge, & airs_sup_gran.reg_ch4cd_range.worst_case) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "reg_ch4cd_range.worst_case" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_psurf_range", & start, stride, edge, & airs_sup_gran.fin_psurf_range) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_psurf_range" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tsurf_range", & start, stride, edge, & airs_sup_gran.fin_tsurf_range) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tsurf_range" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range.flags", & start, stride, edge, & airs_sup_gran.fin_tair_range.flags) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range.flags" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range.num_hi_50", & start, stride, edge, & airs_sup_gran.fin_tair_range.num_hi_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range.num_hi_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range.num_lo_50", & start, stride, edge, & airs_sup_gran.fin_tair_range.num_lo_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range.num_lo_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range.num_hi_25", & start, stride, edge, & airs_sup_gran.fin_tair_range.num_hi_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range.num_hi_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range.num_lo_25", & start, stride, edge, & airs_sup_gran.fin_tair_range.num_lo_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range.num_lo_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range.num_hi_10", & start, stride, edge, & airs_sup_gran.fin_tair_range.num_hi_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range.num_hi_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range.num_lo_10", & start, stride, edge, & airs_sup_gran.fin_tair_range.num_lo_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range.num_lo_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range.num_bad", & start, stride, edge, & airs_sup_gran.fin_tair_range.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range.num_bad" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range.worst_case", & start, stride, edge, & airs_sup_gran.fin_tair_range.worst_case) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range.worst_case" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_hi.flags", & start, stride, edge, & airs_sup_gran.fin_tair_range_hi.flags) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_hi.flags" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_hi.num_hi_50", & start, stride, edge, & airs_sup_gran.fin_tair_range_hi.num_hi_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_hi.num_hi_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_hi.num_lo_50", & start, stride, edge, & airs_sup_gran.fin_tair_range_hi.num_lo_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_hi.num_lo_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_hi.num_hi_25", & start, stride, edge, & airs_sup_gran.fin_tair_range_hi.num_hi_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_hi.num_hi_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_hi.num_lo_25", & start, stride, edge, & airs_sup_gran.fin_tair_range_hi.num_lo_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_hi.num_lo_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_hi.num_hi_10", & start, stride, edge, & airs_sup_gran.fin_tair_range_hi.num_hi_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_hi.num_hi_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_hi.num_lo_10", & start, stride, edge, & airs_sup_gran.fin_tair_range_hi.num_lo_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_hi.num_lo_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_hi.num_bad", & start, stride, edge, & airs_sup_gran.fin_tair_range_hi.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_hi.num_bad" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_hi.worst_case", & start, stride, edge, & airs_sup_gran.fin_tair_range_hi.worst_case) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_hi.worst_case" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_mid.flags", & start, stride, edge, & airs_sup_gran.fin_tair_range_mid.flags) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_mid.flags" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_mid.num_hi_50", & start, stride, edge, & airs_sup_gran.fin_tair_range_mid.num_hi_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_mid.num_hi_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_mid.num_lo_50", & start, stride, edge, & airs_sup_gran.fin_tair_range_mid.num_lo_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_mid.num_lo_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_mid.num_hi_25", & start, stride, edge, & airs_sup_gran.fin_tair_range_mid.num_hi_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_mid.num_hi_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_mid.num_lo_25", & start, stride, edge, & airs_sup_gran.fin_tair_range_mid.num_lo_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_mid.num_lo_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_mid.num_hi_10", & start, stride, edge, & airs_sup_gran.fin_tair_range_mid.num_hi_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_mid.num_hi_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_mid.num_lo_10", & start, stride, edge, & airs_sup_gran.fin_tair_range_mid.num_lo_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_mid.num_lo_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_mid.num_bad", & start, stride, edge, & airs_sup_gran.fin_tair_range_mid.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_mid.num_bad" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_mid.worst_case", & start, stride, edge, & airs_sup_gran.fin_tair_range_mid.worst_case) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_mid.worst_case" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_lo.flags", & start, stride, edge, & airs_sup_gran.fin_tair_range_lo.flags) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_lo.flags" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_lo.num_hi_50", & start, stride, edge, & airs_sup_gran.fin_tair_range_lo.num_hi_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_lo.num_hi_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_lo.num_lo_50", & start, stride, edge, & airs_sup_gran.fin_tair_range_lo.num_lo_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_lo.num_lo_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_lo.num_hi_25", & start, stride, edge, & airs_sup_gran.fin_tair_range_lo.num_hi_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_lo.num_hi_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_lo.num_lo_25", & start, stride, edge, & airs_sup_gran.fin_tair_range_lo.num_lo_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_lo.num_lo_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_lo.num_hi_10", & start, stride, edge, & airs_sup_gran.fin_tair_range_lo.num_hi_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_lo.num_hi_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_lo.num_lo_10", & start, stride, edge, & airs_sup_gran.fin_tair_range_lo.num_lo_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_lo.num_lo_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_lo.num_bad", & start, stride, edge, & airs_sup_gran.fin_tair_range_lo.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_lo.num_bad" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_tair_range_lo.worst_case", & start, stride, edge, & airs_sup_gran.fin_tair_range_lo.worst_case) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_tair_range_lo.worst_case" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_h2ocd_range.flags", & start, stride, edge, & airs_sup_gran.fin_h2ocd_range.flags) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_h2ocd_range.flags" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_h2ocd_range.num_hi_50", & start, stride, edge, & airs_sup_gran.fin_h2ocd_range.num_hi_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_h2ocd_range.num_hi_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_h2ocd_range.num_lo_50", & start, stride, edge, & airs_sup_gran.fin_h2ocd_range.num_lo_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_h2ocd_range.num_lo_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_h2ocd_range.num_hi_25", & start, stride, edge, & airs_sup_gran.fin_h2ocd_range.num_hi_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_h2ocd_range.num_hi_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_h2ocd_range.num_lo_25", & start, stride, edge, & airs_sup_gran.fin_h2ocd_range.num_lo_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_h2ocd_range.num_lo_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_h2ocd_range.num_hi_10", & start, stride, edge, & airs_sup_gran.fin_h2ocd_range.num_hi_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_h2ocd_range.num_hi_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_h2ocd_range.num_lo_10", & start, stride, edge, & airs_sup_gran.fin_h2ocd_range.num_lo_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_h2ocd_range.num_lo_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_h2ocd_range.num_bad", & start, stride, edge, & airs_sup_gran.fin_h2ocd_range.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_h2ocd_range.num_bad" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_h2ocd_range.worst_case", & start, stride, edge, & airs_sup_gran.fin_h2ocd_range.worst_case) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_h2ocd_range.worst_case" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_ozocd_range.flags", & start, stride, edge, & airs_sup_gran.fin_ozocd_range.flags) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_ozocd_range.flags" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_ozocd_range.num_hi_50", & start, stride, edge, & airs_sup_gran.fin_ozocd_range.num_hi_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_ozocd_range.num_hi_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_ozocd_range.num_lo_50", & start, stride, edge, & airs_sup_gran.fin_ozocd_range.num_lo_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_ozocd_range.num_lo_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_ozocd_range.num_hi_25", & start, stride, edge, & airs_sup_gran.fin_ozocd_range.num_hi_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_ozocd_range.num_hi_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_ozocd_range.num_lo_25", & start, stride, edge, & airs_sup_gran.fin_ozocd_range.num_lo_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_ozocd_range.num_lo_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_ozocd_range.num_hi_10", & start, stride, edge, & airs_sup_gran.fin_ozocd_range.num_hi_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_ozocd_range.num_hi_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_ozocd_range.num_lo_10", & start, stride, edge, & airs_sup_gran.fin_ozocd_range.num_lo_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_ozocd_range.num_lo_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_ozocd_range.num_bad", & start, stride, edge, & airs_sup_gran.fin_ozocd_range.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_ozocd_range.num_bad" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_ozocd_range.worst_case", & start, stride, edge, & airs_sup_gran.fin_ozocd_range.worst_case) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_ozocd_range.worst_case" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_cocd_range.flags", & start, stride, edge, & airs_sup_gran.fin_cocd_range.flags) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_cocd_range.flags" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_cocd_range.num_hi_50", & start, stride, edge, & airs_sup_gran.fin_cocd_range.num_hi_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_cocd_range.num_hi_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_cocd_range.num_lo_50", & start, stride, edge, & airs_sup_gran.fin_cocd_range.num_lo_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_cocd_range.num_lo_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_cocd_range.num_hi_25", & start, stride, edge, & airs_sup_gran.fin_cocd_range.num_hi_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_cocd_range.num_hi_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_cocd_range.num_lo_25", & start, stride, edge, & airs_sup_gran.fin_cocd_range.num_lo_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_cocd_range.num_lo_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_cocd_range.num_hi_10", & start, stride, edge, & airs_sup_gran.fin_cocd_range.num_hi_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_cocd_range.num_hi_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_cocd_range.num_lo_10", & start, stride, edge, & airs_sup_gran.fin_cocd_range.num_lo_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_cocd_range.num_lo_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_cocd_range.num_bad", & start, stride, edge, & airs_sup_gran.fin_cocd_range.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_cocd_range.num_bad" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_cocd_range.worst_case", & start, stride, edge, & airs_sup_gran.fin_cocd_range.worst_case) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_cocd_range.worst_case" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_ch4cd_range.flags", & start, stride, edge, & airs_sup_gran.fin_ch4cd_range.flags) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_ch4cd_range.flags" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_ch4cd_range.num_hi_50", & start, stride, edge, & airs_sup_gran.fin_ch4cd_range.num_hi_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_ch4cd_range.num_hi_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_ch4cd_range.num_lo_50", & start, stride, edge, & airs_sup_gran.fin_ch4cd_range.num_lo_50) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_ch4cd_range.num_lo_50" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_ch4cd_range.num_hi_25", & start, stride, edge, & airs_sup_gran.fin_ch4cd_range.num_hi_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_ch4cd_range.num_hi_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_ch4cd_range.num_lo_25", & start, stride, edge, & airs_sup_gran.fin_ch4cd_range.num_lo_25) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_ch4cd_range.num_lo_25" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_ch4cd_range.num_hi_10", & start, stride, edge, & airs_sup_gran.fin_ch4cd_range.num_hi_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_ch4cd_range.num_hi_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_ch4cd_range.num_lo_10", & start, stride, edge, & airs_sup_gran.fin_ch4cd_range.num_lo_10) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_ch4cd_range.num_lo_10" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_ch4cd_range.num_bad", & start, stride, edge, & airs_sup_gran.fin_ch4cd_range.num_bad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_ch4cd_range.num_bad" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fin_ch4cd_range.worst_case", & start, stride, edge, & airs_sup_gran.fin_ch4cd_range.worst_case) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fin_ch4cd_range.worst_case" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "CC1_Noise_Amp", & start, stride, edge, & airs_sup_gran.CC1_Noise_Amp) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CC1_Noise_Amp" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Tsurf_4_CC1", & start, stride, edge, & airs_sup_gran.Tsurf_4_CC1) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Tsurf_4_CC1" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "TotCld_4_CC1", & start, stride, edge, & airs_sup_gran.TotCld_4_CC1) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "TotCld_4_CC1" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "CC1_RCode", & start, stride, edge, & airs_sup_gran.CC1_RCode) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CC1_RCode" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "CC2_RCode", & start, stride, edge, & airs_sup_gran.CC2_RCode) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CC2_RCode" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Phys_RCode", & start, stride, edge, & airs_sup_gran.Phys_RCode) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Phys_RCode" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "TotCld_below_500mb", & start, stride, edge, & airs_sup_gran.TotCld_below_500mb) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "TotCld_below_500mb" edge(3) = 45 edge(2) = 30 edge(1) = 15 statn = SWrdfld(swid, "Phys_resid_AMSUA", & start, stride, edge, & airs_sup_gran.Phys_resid_AMSUA) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Phys_resid_AMSUA" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Phys_resid_IR_window_790", & start, stride, edge, & airs_sup_gran.Phys_resid_IR_window_790) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Phys_resid_IR_window_790" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Phys_resid_IR_window_844", & start, stride, edge, & airs_sup_gran.Phys_resid_IR_window_844) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Phys_resid_IR_window_844" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Phys_resid_IR_window_917", & start, stride, edge, & airs_sup_gran.Phys_resid_IR_window_917) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Phys_resid_IR_window_917" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Phys_resid_IR_window_1231", & start, stride, edge, & airs_sup_gran.Phys_resid_IR_window_1231) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Phys_resid_IR_window_1231" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Phys_resid_IR_window_2513", & start, stride, edge, & airs_sup_gran.Phys_resid_IR_window_2513) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Phys_resid_IR_window_2513" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Phys_resid_IR_window_2616", & start, stride, edge, & airs_sup_gran.Phys_resid_IR_window_2616) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Phys_resid_IR_window_2616" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "CC_noise_eff_amp_factor", & start, stride, edge, & airs_sup_gran.CC_noise_eff_amp_factor) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CC_noise_eff_amp_factor" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "CC1_noise_eff_amp_factor", & start, stride, edge, & airs_sup_gran.CC1_noise_eff_amp_factor) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CC1_noise_eff_amp_factor" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "totCldH2OStd", & start, stride, edge, & airs_sup_gran.totCldH2OStd) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "totCldH2OStd" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "totCldH2OStdErr", & start, stride, edge, & airs_sup_gran.totCldH2OStdErr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "totCldH2OStdErr" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "CC1_Resid", & start, stride, edge, & airs_sup_gran.CC1_Resid) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CC1_Resid" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "CCfinal_Resid", & start, stride, edge, & airs_sup_gran.CCfinal_Resid) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CCfinal_Resid" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "CCfinal_Noise_Amp", & start, stride, edge, & airs_sup_gran.CCfinal_Noise_Amp) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CCfinal_Noise_Amp" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Tdiff_IR_MW_ret", & start, stride, edge, & airs_sup_gran.Tdiff_IR_MW_ret) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Tdiff_IR_MW_ret" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Tdiff_IR_4CC1", & start, stride, edge, & airs_sup_gran.Tdiff_IR_4CC1) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Tdiff_IR_4CC1" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "TSurfdiff_IR_4CC1", & start, stride, edge, & airs_sup_gran.TSurfdiff_IR_4CC1) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "TSurfdiff_IR_4CC1" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "TSurfdiff_IR_4CC2", & start, stride, edge, & airs_sup_gran.TSurfdiff_IR_4CC2) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "TSurfdiff_IR_4CC2" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "AMSU_Chans_Resid", & start, stride, edge, & airs_sup_gran.AMSU_Chans_Resid) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "AMSU_Chans_Resid" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "TotCld_4_CCfinal", & start, stride, edge, & airs_sup_gran.TotCld_4_CCfinal) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "TotCld_4_CCfinal" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Surf_Resid_Ratio", & start, stride, edge, & airs_sup_gran.Surf_Resid_Ratio) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Surf_Resid_Ratio" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Temp_Resid_Ratio", & start, stride, edge, & airs_sup_gran.Temp_Resid_Ratio) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Temp_Resid_Ratio" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Water_Resid_Ratio", & start, stride, edge, & airs_sup_gran.Water_Resid_Ratio) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Water_Resid_Ratio" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Cloud_Resid_Ratio", & start, stride, edge, & airs_sup_gran.Cloud_Resid_Ratio) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Cloud_Resid_Ratio" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "O3_Resid_Ratio", & start, stride, edge, & airs_sup_gran.O3_Resid_Ratio) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "O3_Resid_Ratio" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "CO_Resid_Ratio", & start, stride, edge, & airs_sup_gran.CO_Resid_Ratio) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CO_Resid_Ratio" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "CH4_Resid_Ratio", & start, stride, edge, & airs_sup_gran.CH4_Resid_Ratio) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "CH4_Resid_Ratio" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "MWCheck_Resid_Ratio", & start, stride, edge, & airs_sup_gran.MWCheck_Resid_Ratio) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MWCheck_Resid_Ratio" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "O3_dof", & start, stride, edge, & airs_sup_gran.O3_dof) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "O3_dof" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "invalid", & start, stride, edge, & airs_sup_gran.invalid) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "invalid" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "all_spots_avg", & start, stride, edge, & airs_sup_gran.all_spots_avg) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "all_spots_avg" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "MW_ret_used", & start, stride, edge, & airs_sup_gran.MW_ret_used) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MW_ret_used" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_clouds", & start, stride, edge, & airs_sup_gran.bad_clouds) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_clouds" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "retrieval_type", & start, stride, edge, & airs_sup_gran.retrieval_type) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "retrieval_type" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Startup", & start, stride, edge, & airs_sup_gran.Startup) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Startup" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_l1b", & start, stride, edge, & airs_sup_gran.bad_l1b) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_l1b" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_l1b_amsu", & start, stride, edge, & airs_sup_gran.bad_l1b_amsu) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_l1b_amsu" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_l1b_hsb", & start, stride, edge, & airs_sup_gran.bad_l1b_hsb) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_l1b_hsb" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_l1b_airs", & start, stride, edge, & airs_sup_gran.bad_l1b_airs) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_l1b_airs" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_l1b_vis", & start, stride, edge, & airs_sup_gran.bad_l1b_vis) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_l1b_vis" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "forecast", & start, stride, edge, & airs_sup_gran.forecast) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "forecast" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "no_psurf_guess", & start, stride, edge, & airs_sup_gran.no_psurf_guess) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "no_psurf_guess" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_temps", & start, stride, edge, & airs_sup_gran.bad_temps) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_temps" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_h2o", & start, stride, edge, & airs_sup_gran.bad_h2o) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_h2o" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_o3", & start, stride, edge, & airs_sup_gran.bad_o3) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_o3" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_co", & start, stride, edge, & airs_sup_gran.bad_co) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_co" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "no_tuning", & start, stride, edge, & airs_sup_gran.no_tuning) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "no_tuning" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "no_ang_corr", & start, stride, edge, & airs_sup_gran.no_ang_corr) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "no_ang_corr" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "no_mw", & start, stride, edge, & airs_sup_gran.no_mw) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "no_mw" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "no_initial", & start, stride, edge, & airs_sup_gran.no_initial) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "no_initial" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "no_final", & start, stride, edge, & airs_sup_gran.no_final) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "no_final" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "mw_fpe", & start, stride, edge, & airs_sup_gran.mw_fpe) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "mw_fpe" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "cloudy_reg_fpe", & start, stride, edge, & airs_sup_gran.cloudy_reg_fpe) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "cloudy_reg_fpe" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "initial_fpe", & start, stride, edge, & airs_sup_gran.initial_fpe) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "initial_fpe" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "final_fpe", & start, stride, edge, & airs_sup_gran.final_fpe) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "final_fpe" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "MWPrecip", & start, stride, edge, & airs_sup_gran.MWPrecip) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MWPrecip" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "MWsurf_T0", & start, stride, edge, & airs_sup_gran.MWsurf_T0) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MWsurf_T0" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "MWsurf_Tinf", & start, stride, edge, & airs_sup_gran.MWsurf_Tinf) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MWsurf_Tinf" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "MWsecant_ratio", & start, stride, edge, & airs_sup_gran.MWsecant_ratio) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MWsecant_ratio" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "MWseaice_conc", & start, stride, edge, & airs_sup_gran.MWseaice_conc) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MWseaice_conc" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "MWresidual_temp", & start, stride, edge, & airs_sup_gran.MWresidual_temp) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MWresidual_temp" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "MWresidual_mois", & start, stride, edge, & airs_sup_gran.MWresidual_mois) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MWresidual_mois" edge(3) = 45 edge(2) = 30 edge(1) = 15 statn = SWrdfld(swid, "MWresidual_AMSUA", & start, stride, edge, & airs_sup_gran.MWresidual_AMSUA) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MWresidual_AMSUA" edge(3) = 45 edge(2) = 30 edge(1) = 5 statn = SWrdfld(swid, "MWresidual_HSB", & start, stride, edge, & airs_sup_gran.MWresidual_HSB) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MWresidual_HSB" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "MWiter_temp", & start, stride, edge, & airs_sup_gran.MWiter_temp) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MWiter_temp" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "MWiter_mois", & start, stride, edge, & airs_sup_gran.MWiter_mois) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MWiter_mois" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "mw_ret_code", & start, stride, edge, & airs_sup_gran.mw_ret_code) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "mw_ret_code" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "cloudy_reg_ret_code", & start, stride, edge, & airs_sup_gran.cloudy_reg_ret_code) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "cloudy_reg_ret_code" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Cloudy_Reg_FOV_chan", & start, stride, edge, & airs_sup_gran.Cloudy_Reg_FOV_chan) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Cloudy_Reg_FOV_chan" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Cloudy_Reg_FOV", & start, stride, edge, & airs_sup_gran.Cloudy_Reg_FOV) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Cloudy_Reg_FOV" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Cloudy_Reg_FOV_BT", & start, stride, edge, & airs_sup_gran.Cloudy_Reg_FOV_BT) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Cloudy_Reg_FOV_BT" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Cloudy_Reg_Score", & start, stride, edge, & airs_sup_gran.Cloudy_Reg_Score) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Cloudy_Reg_Score" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "cloud_ice", & start, stride, edge, & airs_sup_gran.cloud_ice) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "cloud_ice" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "icc_too_cloudy", & start, stride, edge, & airs_sup_gran.icc_too_cloudy) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "icc_too_cloudy" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "icc_low_contrast", & start, stride, edge, & airs_sup_gran.icc_low_contrast) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "icc_low_contrast" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "icc_bad_rad", & start, stride, edge, & airs_sup_gran.icc_bad_rad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "icc_bad_rad" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "icc_contrast", & start, stride, edge, & airs_sup_gran.icc_contrast) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "icc_contrast" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_1st", & start, stride, edge, & airs_sup_gran.bad_1st) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_1st" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_1st_surf", & start, stride, edge, & airs_sup_gran.bad_1st_surf) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_1st_surf" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_1st_cc", & start, stride, edge, & airs_sup_gran.bad_1st_cc) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_1st_cc" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_1st_regres", & start, stride, edge, & airs_sup_gran.bad_1st_regres) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_1st_regres" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_1st_phys", & start, stride, edge, & airs_sup_gran.bad_1st_phys) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_1st_phys" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fcc_too_cloudy", & start, stride, edge, & airs_sup_gran.fcc_too_cloudy) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fcc_too_cloudy" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fcc_low_contrast", & start, stride, edge, & airs_sup_gran.fcc_low_contrast) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fcc_low_contrast" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fcc_bad_rad", & start, stride, edge, & airs_sup_gran.fcc_bad_rad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fcc_bad_rad" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fcc_contrast1", & start, stride, edge, & airs_sup_gran.fcc_contrast1) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fcc_contrast1" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "fcc_contrast2", & start, stride, edge, & airs_sup_gran.fcc_contrast2) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "fcc_contrast2" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_final", & start, stride, edge, & airs_sup_gran.bad_final) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_final" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_final_cc", & start, stride, edge, & airs_sup_gran.bad_final_cc) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_final_cc" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_final_ir", & start, stride, edge, & airs_sup_gran.bad_final_ir) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_final_ir" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_final_surf", & start, stride, edge, & airs_sup_gran.bad_final_surf) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_final_surf" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_final_temp", & start, stride, edge, & airs_sup_gran.bad_final_temp) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_final_temp" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_final_h2o", & start, stride, edge, & airs_sup_gran.bad_final_h2o) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_final_h2o" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_final_o3", & start, stride, edge, & airs_sup_gran.bad_final_o3) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_final_o3" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_final_cloud", & start, stride, edge, & airs_sup_gran.bad_final_cloud) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_final_cloud" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_cc_cld_ret", & start, stride, edge, & airs_sup_gran.bad_cc_cld_ret) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_cc_cld_ret" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "MW_IR_ret_differ", & start, stride, edge, & airs_sup_gran.MW_IR_ret_differ) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MW_IR_ret_differ" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_MW_low_resid", & start, stride, edge, & airs_sup_gran.bad_MW_low_resid) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_MW_low_resid" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "MW_low_atm_resid", & start, stride, edge, & airs_sup_gran.MW_low_atm_resid) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MW_low_atm_resid" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "final_AMSU_ret", & start, stride, edge, & airs_sup_gran.final_AMSU_ret) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "final_AMSU_ret" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "final_HSB_ret", & start, stride, edge, & airs_sup_gran.final_HSB_ret) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "final_HSB_ret" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "final_cloud_ret", & start, stride, edge, & airs_sup_gran.final_cloud_ret) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "final_cloud_ret" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "final_surf_ret", & start, stride, edge, & airs_sup_gran.final_surf_ret) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "final_surf_ret" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "final_temp_ret", & start, stride, edge, & airs_sup_gran.final_temp_ret) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "final_temp_ret" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "final_h2o_ret", & start, stride, edge, & airs_sup_gran.final_h2o_ret) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "final_h2o_ret" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "final_o3_ret", & start, stride, edge, & airs_sup_gran.final_o3_ret) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "final_o3_ret" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "final_ch4_ret", & start, stride, edge, & airs_sup_gran.final_ch4_ret) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "final_ch4_ret" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "final_co_ret", & start, stride, edge, & airs_sup_gran.final_co_ret) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "final_co_ret" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "final_co2_ret", & start, stride, edge, & airs_sup_gran.final_co2_ret) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "final_co2_ret" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_vis_rad", & start, stride, edge, & airs_sup_gran.bad_vis_rad) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_vis_rad" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_vis_cal", & start, stride, edge, & airs_sup_gran.bad_vis_cal) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_vis_cal" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_vis_det_temp", & start, stride, edge, & airs_sup_gran.bad_vis_det_temp) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_vis_det_temp" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "bad_scan_hd_temp", & start, stride, edge, & airs_sup_gran.bad_scan_hd_temp) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "bad_scan_hd_temp" edge(2) = 45 edge(1) = 30 statn = SWrdfld(swid, "Initial_CC_score", & start, stride, edge, & airs_sup_gran.Initial_CC_score) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Initial_CC_score" edge(3) = 45 edge(2) = 30 edge(1) = 10 statn = SWrdfld(swid, "Initial_CC_subscores", & start, stride, edge, & airs_sup_gran.Initial_CC_subscores) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "Initial_CC_subscores" edge(3) = 45 edge(2) = 30 edge(1) = 6 statn = SWrdfld(swid, "MODIS_emis", & start, stride, edge, & airs_sup_gran.MODIS_emis) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MODIS_emis" edge(3) = 45 edge(2) = 30 edge(1) = 6 statn = SWrdfld(swid, "MODIS_emis_dev", & start, stride, edge, & airs_sup_gran.MODIS_emis_dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MODIS_emis_dev" edge(5) = 45 edge(4) = 30 edge(3) = 6 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "MODIS_emis_spots", & start, stride, edge, & airs_sup_gran.MODIS_emis_spots) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MODIS_emis_spots" edge(5) = 45 edge(4) = 30 edge(3) = 6 edge(2) = 3 edge(1) = 3 statn = SWrdfld(swid, "MODIS_emis_spots_dev", & start, stride, edge, & airs_sup_gran.MODIS_emis_spots_dev) if (statn .ne. 0) & print *, "Error ", statn, " reading field ", & "MODIS_emis_spots_dev" ! Final clean-up statn = swdetach(swid) if (statn .ne. 0) & print *, "Error detaching from input file ", file_name statn = swclose(fid) if (statn .ne. 0) & print *, "Error closing input file ", file_name return end
Document Actions
NASA Logo - nasa.gov
NASA Privacy Policy and Important Notices
Last updated: Sep 09, 2009 02:26 PM ET
Top