program PROFcdf_grd c c This is to read the PROFILER data files in netcdf format. c Search for 'select one station' and replace LTHM7 with your station ID. c At the bottom of this program there are some doc about the variables c and their corresponding netcdf variable names. c c Please check PROF.station.info to find out the station info. c You may need to change 'mxsta=32' accordingly. c c To use this program, you need netcdf.inc and libnetcdf.a available. c f77 PROFncdf.f libnetcdf.a c c c c Written by Chi-Fan Shih, (303) 497-1833, chifan@ncar.ucar.edu c c include 'netcdf.inc' parameter (hghmx=36,lowmx=36,mxsta=33,strmx=11) !1997AUG05, 33 stations c parameter (hghmx=36,lowmx=36,mxsta=32,strmx=11) c integer*4 count(4), start(4) character inf*32, anam*31 c character*11 site(mxsta),region(mxsta) integer*4 siteid,regionid integer*4 stasiz,strgsz,hghsiz,lowsiz integer*4 latid,lonid,elevid,nazmid,eazmid, & vazmid,nelvid,eelvid,velvid integer*4 psid,tsid,tdsid,spdsid,dirsid,rainsid integer*4 lowlid,lowuid,lowvid,lowwid & ,nlowm0id,elowm0id,vlowm0id,nlowm2id,elowm2id,vlowm2id & ,qilowid,qslowid integer*4 hghlid,hghuid,hghvid,hghwid & ,nhghm0id,ehghm0id,vhghm0id,nhghm2id,ehghm2id,vhghm2id & ,qihghid,qshghid c real lat(mxsta),lon(mxsta),nazm(mxsta),eazm(mxsta),vazm(mxsta) & ,nelv(mxsta),eelv(mxsta),velv(mxsta) integer*4 elev(mxsta),year,month,day,hour,minute real ps(mxsta),ts(mxsta),tds(mxsta),spds(mxsta) & ,dirs(mxsta),rains(mxsta) real lowl(lowmx),lowu(lowmx,mxsta),lowv(lowmx,mxsta), & loww(lowmx,mxsta),nlowm0(lowmx,mxsta), & elowm0(lowmx,mxsta),vlowm0(lowmx,mxsta),nlowm2(lowmx,mxsta), & elowm2(lowmx,mxsta),vlowm2(lowmx,mxsta) byte qilow(lowmx,mxsta),qslow(lowmx,mxsta) real hghl(hghmx),hghu(hghmx,mxsta),hghv(hghmx,mxsta), & hghw(hghmx,mxsta),nhghm0(hghmx,mxsta), & ehghm0(hghmx,mxsta),vhghm0(hghmx,mxsta),nhghm2(hghmx,mxsta), & ehghm2(hghmx,mxsta),vhghm2(hghmx,mxsta) byte qihgh(hghmx,mxsta),qshgh(hghmx,mxsta) real lvgw,hvgw,freq,gain,eqn,cosn,totn,low20bw,hgh20bw, & lowavep(mxsta),hghavep c integer*4 afid, varid, error c write(6,*) ' enter input filename? <*.prof> ' read(5,'(a)') inf c write(6,*) inf afid = ncopn (inf, NCNOWRIT, error) 1 continue c c get high_level,low_level,string_len c varid=ncdid (afid,'station',error) call ncdinq(afid,varid,anam,stasiz,error) varid=ncdid (afid,'high_level',error) call ncdinq(afid,varid,anam,hghsiz,error) varid=ncdid (afid,'low_level',error) call ncdinq(afid,varid,anam,lowsiz,error) varid=ncdid (afid,'string_len',error) call ncdinq(afid,varid,anam,strgsz,error) c write(*,*) ' station: ',stasiz c write(*,*) ' high_level: ',hghsiz c write(*,*) ' low_level: ',lowsiz c write(*,*) ' string_len: ',strgsz c siteid=ncvid(afid,'id',error) regionid=ncvid(afid,'region',error) do i=1,stasiz start(1) = 1 start(2) = i count(1) = 11 count(2) = 1 call ncvgtc(afid,siteid,start,count,site(i),11,error) call ncvgtc(afid,regionid,start,count,region(i),11,error) enddo c latid=ncvid(afid,'lat',error) start(1) = 1 count(1) = stasiz call ncvgt(afid,latid,start,count,lat,error) c lonid=ncvid(afid,'lon',error) call ncvgt(afid,lonid,start,count,lon,error) c elevid=ncvid(afid,'elev',error) call ncvgt(afid,elevid,start,count,elev,error) c nazmid=ncvid(afid,'azim_n',error) call ncvgt(afid,nazmid,start,count,nazm,error) c eazmid=ncvid(afid,'azim_e',error) call ncvgt(afid,eazmid,start,count,eazm,error) c vazmid=ncvid(afid,'azim_v',error) call ncvgt(afid,vazmid,start,count,vazm,error) c nelvid=ncvid(afid,'elev_n',error) call ncvgt(afid,nelvid,start,count,nelv,error) c eelvid=ncvid(afid,'elev_e',error) call ncvgt(afid,eelvid,start,count,eelv,error) c velvid=ncvid(afid,'elev_v',error) call ncvgt(afid,velvid,start,count,velv,error) c psid=ncvid(afid,'sfc_p',error) call ncvgt(afid,psid,start,count,ps,error) c tsid=ncvid(afid,'sfc_t',error) call ncvgt(afid,tsid,start,count,ts,error) c tdsid=ncvid(afid,'sfc_td',error) call ncvgt(afid,tdsid,start,count,tds,error) c spdsid=ncvid(afid,'sfc_spd',error) call ncvgt(afid,spdsid,start,count,spds,error) c dirsid=ncvid(afid,'sfc_dir',error) call ncvgt(afid,dirsid,start,count,dirs,error) c rainsid=ncvid(afid,'sfc_rain',error) call ncvgt(afid,rainsid,start,count,rains,error) c write(*,*) ' done getting all station info..' c varid=ncvid(afid,'year',error) start(1) = 1 call ncvgt1(afid,varid,start,year,error) varid=ncvid(afid,'month',error) call ncvgt1(afid,varid,start,month,error) varid=ncvid(afid,'day',error) call ncvgt1(afid,varid,start,day,error) varid=ncvid(afid,'hour',error) call ncvgt1(afid,varid,start,hour,error) varid=ncvid(afid,'minute',error) call ncvgt1(afid,varid,start,minute,error) c write(*,*) year,month,day,hour,minute c lowlid=ncvid(afid,'low_level',error) start(1) = 1 count(1) = lowsiz call ncvgt(afid,lowlid,start,count,lowl,error) c lowuid=ncvid(afid,'low_u_wind',error) start(1) = 1 start(2) = 1 count(1) = lowsiz count(2) = stasiz call ncvgt(afid,lowuid,start,count,lowu,error) lowvid=ncvid(afid,'low_v_wind',error) call ncvgt(afid,lowvid,start,count,lowv,error) lowwid=ncvid(afid,'low_w_wind',error) call ncvgt(afid,lowwid,start,count,loww,error) c write(*,*) ' done low_wind...' c nlowm0id=ncvid(afid,'low_moment0_n',error) call ncvgt(afid,nlowm0id,start,count,nlowm0,error) elowm0id=ncvid(afid,'low_moment0_e',error) call ncvgt(afid,elowm0id,start,count,elowm0,error) vlowm0id=ncvid(afid,'low_moment0_v',error) call ncvgt(afid,vlowm0id,start,count,vlowm0,error) c write(*,*) ' done low_moment0...' c nlowm2id=ncvid(afid,'low_moment2_n',error) call ncvgt(afid,nlowm2id,start,count,nlowm2,error) elowm2id=ncvid(afid,'low_moment2_e',error) call ncvgt(afid,elowm2id,start,count,elowm2,error) vlowm2id=ncvid(afid,'low_moment2_v',error) call ncvgt(afid,vlowm2id,start,count,vlowm2,error) c write(*,*) ' done low_moment2...' c qilowid=ncvid(afid,'low_qual_indicator',error) call ncvgt(afid,qilowid,start,count,qilow,error) qslowid=ncvid(afid,'low_qual_summary',error) call ncvgt(afid,qslowid,start,count,qslow,error) c write(*,*) ' done low_quality...' c c high level c hghlid=ncvid(afid,'high_level',error) start(1) = 1 count(1) = hghsiz call ncvgt(afid,hghlid,start,count,hghl,error) c hghuid=ncvid(afid,'high_u_wind',error) start(1) = 1 start(2) = 1 count(1) = hghsiz count(2) = stasiz call ncvgt(afid,hghuid,start,count,hghu,error) hghvid=ncvid(afid,'high_v_wind',error) call ncvgt(afid,hghvid,start,count,hghv,error) hghwid=ncvid(afid,'high_w_wind',error) call ncvgt(afid,hghwid,start,count,hghw,error) c write(*,*) ' done high_wind...' c nhghm0id=ncvid(afid,'high_moment0_n',error) call ncvgt(afid,nhghm0id,start,count,nhghm0,error) ehghm0id=ncvid(afid,'high_moment0_e',error) call ncvgt(afid,ehghm0id,start,count,ehghm0,error) vhghm0id=ncvid(afid,'high_moment0_v',error) call ncvgt(afid,vhghm0id,start,count,vhghm0,error) c write(*,*) ' done high_moment0...' c nhghm2id=ncvid(afid,'high_moment2_n',error) call ncvgt(afid,nhghm2id,start,count,nhghm2,error) ehghm2id=ncvid(afid,'high_moment2_e',error) call ncvgt(afid,ehghm2id,start,count,ehghm2,error) vhghm2id=ncvid(afid,'high_moment2_v',error) call ncvgt(afid,vhghm2id,start,count,vhghm2,error) c write(*,*) ' done high_moment2...' c qihghid=ncvid(afid,'high_qual_indicator',error) call ncvgt(afid,qihghid,start,count,qihgh,error) qshghid=ncvid(afid,'high_qual_summary',error) call ncvgt(afid,qshghid,start,count,qshgh,error) c write(*,*) ' done high_quality...' c start(1) = 1 count(1) = stasiz varid=ncvid(afid,'low_vgw',error) call ncvgt1(afid,varid,start,lvgw,error) varid=ncvid(afid,'high_vgw',error) call ncvgt1(afid,varid,start,hvgw,error) varid=ncvid(afid,'frequency',error) call ncvgt1(afid,varid,start,freq,error) varid=ncvid(afid,'gain',error) call ncvgt1(afid,varid,start,gain,error) varid=ncvid(afid,'equiv_noise',error) call ncvgt1(afid,varid,start,eqn,error) varid=ncvid(afid,'cosmic_noise',error) call ncvgt1(afid,varid,start,cosn,error) varid=ncvid(afid,'total_noise',error) call ncvgt1(afid,varid,start,totn,error) varid=ncvid(afid,'minus20_BW_low',error) call ncvgt1(afid,varid,start,low20bw,error) varid=ncvid(afid,'minus20_BW_high',error) call ncvgt1(afid,varid,start,hgh20bw,error) varid=ncvid(afid,'ave_power_low',error) call ncvgt(afid,varid,start,count,lowavep,error) varid=ncvid(afid,'ave_power_high',error) call ncvgt1(afid,varid,start,hghavep,error) c write(*,*) ' all done, print now...' c ksel=0 do i=1,stasiz c write(*,11) site(i),region(i),lat(i),lon(i),elev(i) 11 format(1x,a11,1x,a11,1x,2f8.2,i10) c c to select one station, say LTHM7, if(site(i).eq.'LTHM7 ') ksel=i enddo c write(*,*) year,month,day,hour,minute write(*,*) '-----------------------' j=ksel write(*,*) 'input : ',inf write(*,*) 'site : ',j,' ',site(j),year,month,day,hour,minute write(*,*) 'lat,lon: ',lat(j),lon(j) write(*,*) 'azim_ : ',nazm(j),eazm(j),vazm(j) write(*,*) 'elev_ : ',nelv(j),eelv(j),velv(j) write(*,*) 'sfc obs: ',ps(j),ts(j),tds(j),spds(j),dirs(j),rains(j) c do k=1,lowmx write(*,*) 'low_level= ',k,' site ',j write(*,*) lowl(k),lowu(k,j),lowv(k,j),loww(k,j) write(*,*) nlowm0(k,j),elowm0(k,j),vlowm0(k,j) write(*,*) nlowm2(k,j),elowm2(k,j),vlowm2(k,j) write(*,*) ' ',qilow(k,j),qslow(k,j) enddo c do k=1,hghmx write(*,*) 'high_level= ',k,' site ',j write(*,*) hghl(k),hghu(k,j),hghv(k,j),hghw(k,j) write(*,*) nhghm0(k,j),ehghm0(k,j),vhghm0(k,j) write(*,*) nhghm2(k,j),ehghm2(k,j),vhghm2(k,j) write(*,*) ' ',qihgh(k,j),qshgh(k,j) enddo c write(*,*) 'last part for site ',j write(*,*) lvgw,hvgw,freq,gain,eqn,cosn write(*,*) totn,low20bw,hgh20bw,lowavep(j),hghavep write(*,*) ' ----------------------- ' call ncclos (afid, error) stop end c c IN THIS PROGRAM ORIGINAL NETCDF NAME c ----------------------- ----------------------- c inf : input filename c hghmx = 36 high_level c lowmx = 36 low_level c strmx = 11 string_len c site(j) station c year,month,day,hour,minute year, month, day, hour, minute c nazm(j) azim_n c eazm(j) azim_e c vazm(j) azim_v c nelv(j) elev_n c eelv(j) elev_e c velv(j) elev_v c ps(j) sfc_p c ts(j) sfc_t c tds(j) sfc_td c spds(j) sfc_spd c dirs(j) sfc_dir c rains(j) sfc_rain c c lowl(j) low_level c lowu(2,j) low_u_wind c lowv(2,j) low_v_wind c loww(2,j) low_w_wind c nlowm0(2,j) low_moment0_n c elowm0(2,j) low_moment0_e c vlowm0(2,j) low_moment0_v c nlowm2(2,j) low_moment2_n c elowm2(2,j) low_moment2_e c vlowm2(2,j) low_moment2_v c qilow(2,j) low_qual_indicator c qslow(2,j) low_qual_summary c c hghl(3,j) high_level c hghu(3,j) high_u_wind c hghv(3,j) high_v_wind c hghw(3,j) high_w_wind c nhghm0(3,j) high_moment0_n c ehghm0(3,j) high_moment0_e c vhghm0(3,j) high_moment0_v c nhghm2(3,j) high_moment2_n c ehghm2(3,j) high_moment2_e c vhghm2(3,j) high_moment2_v c qihgh(3,j) high_qual_indicator c qshgh(3,j) high_qual_summary c c lvgw low_vgw c hvgw high_vgw c freq frequency c gain gain c eqn equiv_noise c cosn cosmic_noise c totn total_noise c low20bw minus20_BW_low c hgh20bw minus20_BW_high c lowavep(j) ave_power_low c hghavep ave_power_high c c c====================================================================================== c The original PROFILER data files are in the following netcdf structure. c netcdf profiler { c dimensions: c station = UNLIMITED ; // (32 currently) c high_level = 36 ; c low_level = 36 ; c string_len = 11 ; c c variables: c char id(station, string_len) ; c id:name = "ID" ; c id:long_name = "Site ID" ; c char region(station, string_len) ; c region:name = "AREA" ; c region:long_name = "Regional ID" ; c float lat(station) ; c lat:name = "LAT" ; c lat:long_name = "North Latitude" ; c lat:units = "degrees" ; c lat:valid_range = -90., 90. ; c float lon(station) ; c lon:name = "LON" ; c lon:long_name = "East Longitude" ; c lon:units = "degrees" ; c lon:valid_range = -180., 180. ; c long elev(station) ; c elev:name = "ELEV" ; c elev:long_name = "Elevation above MSL" ; c elev:units = "meters" ; c elev:valid_range = 0, 8000 ; c float azim_n(station) ; c azim_n:name = "AZIM_N" ; c azim_n:long_name = "Azimuth of north beam" ; c azim_n:units = "degrees" ; c azim_n:valid_range = 0., 360. ; c float azim_e(station) ; c azim_e:name = "AZIM_E" ; c azim_e:long_name = "Azimuth of east beam" ; c azim_e:units = "degrees" ; c azim_e:valid_range = 0., 360. ; c float azim_v(station) ; c azim_v:name = "AZIM_V" ; c azim_v:long_name = "Azimuth of vertical beam" ; c azim_v:units = "degrees" ; c azim_v:valid_range = 0., 360. ; c float elev_n(station) ; c elev_n:name = "ELEV_N" ; c elev_n:long_name = "Elevation of north beam" ; c elev_n:units = "degrees" ; c elev_n:valid_range = 0., 90. ; c float elev_e(station) ; c elev_e:name = "ELEV_E" ; c elev_e:long_name = "Elevation of east beam" ; c elev_e:units = "degrees" ; c elev_e:valid_range = 0., 90. ; c float elev_v(station) ; c elev_v:name = "ELEV_V" ; c elev_v:long_name = "Elevation of vertical beam" ; c elev_v:units = "degrees" ; c elev_v:valid_range = 0., 90. ; c float sfc_p(station) ; c sfc_p:name = "" ; c sfc_p:long_name = "Surface pressure" ; c sfc_p:units = "hPa" ; c sfc_p:valid_range = 0., 1500. ; c float sfc_t(station) ; c sfc_t:name = "" ; c sfc_t:long_name = "Surface temperature" ; c sfc_t:units = "degC" ; c sfc_t:valid_range = -100., 100. ; c float sfc_td(station) ; c sfc_td:name = "TD" ; c sfc_td:long_name = "Surface dew point" ; c sfc_td:units = "degC" ; c sfc_td:valid_range = -100., 100. ; c float sfc_spd(station) ; c sfc_spd:name = "SPD" ; c sfc_spd:long_name = "Surface wind speed" ; c sfc_spd:units = "m/s" ; c sfc_spd:valid_range = -150., 150. ; c float sfc_dir(station) ; c sfc_dir:name = "DIR" ; c sfc_dir:long_name = "Surface wind direction" ; c sfc_dir:units = "degrees" ; c sfc_dir:valid_range = 0., 360. ; c float sfc_rain(station) ; c sfc_rain:name = "RAIN" ; c sfc_rain:long_name = "Surface rain" ; c sfc_rain:units = "mm" ; c sfc_rain:valid_range = 0., 1000. ; c long year ; c year:valid_min = 1985 ; c long month ; c month:valid_range = 1, 12 ; c long day ; c day:valid_range = 1, 31 ; c long hour ; c hour:valid_range = 0, 23 ; c long minute ; c minute:valid_range = 0, 59 ; c float low_level(low_level) ; c low_level:name = "LOW_H" ; c low_level:long_name = "Height above station for low mode" ; c low_level:units = "" ; c low_level:valid_range = 0., 9250. ; c float low_u_wind(station, low_level) ; c low_u_wind:name = "LOW_U" ; c low_u_wind:long_name = "U wind for low mode" ; c low_u_wind:units = "m/s" ; c float low_v_wind(station, low_level) ; c low_v_wind:valid_range = -150., 150. ; c low_v_wind:name = "LOW_V" ; c low_v_wind:long_name = "V wind for low mode" ; c low_v_wind:units = "m/s" ; c float low_w_wind(station, low_level) ; c low_w_wind:name = "LOW_W" ; c low_w_wind:long_name = "W wind for low mode" ; c low_w_wind:units = "m/s" ; c low_w_wind:valid_range = -150., 150. ; c float low_moment0_n(station, low_level) ; c low_moment0_n:name = "LOW_0_N" ; c low_moment0_n:long_name = "0th moment, low mode, north beam" ; c low_moment0_n:units = "dB" ; c float low_moment0_e(station, low_level) ; c low_moment0_e:name = "LOW_0_E" ; c low_moment0_e:long_name = "0th moment, low mode, east beam" ; c low_moment0_e:units = "dB" ; c float low_moment0_v(station, low_level) ; c low_moment0_v:name = "LOW_0_V" ; c low_moment0_v:long_name = "0th moment, low mode, vertical beam" ; c low_moment0_v:units = "dB" ; c float low_moment2_n(station, low_level) ; c low_moment2_n:name = "LOW_2_N" ; c low_moment2_n:long_name = "2nd moment, low mode, north beam" ; c low_moment2_n:units = "m2/s2" ; c float low_moment2_e(station, low_level) ; c low_moment2_e:name = "LOW_2_E" ; c low_moment2_e:long_name = "2nd moment, low mode, east beam" ; c low_moment2_e:units = "m2/s2" ; c float low_moment2_v(station, low_level) ; c low_moment2_v:name = "LOW_2_V" ; c low_moment2_v:long_name = "2nd moment, low mode, vertical beam" ; c low_moment2_v:units = "m2/s2" ; c byte low_qual_indicator(station, low_level) ; c low_qual_indicator:name = "LOW_QI" ; c low_qual_indicator:long_name = "Quality indicator, low mode" ; c byte low_qual_summary(station, low_level) ; c low_qual_summary:name = "LOW_QS" ; c low_qual_summary:long_name = "Quality summary, low mode" ; c float high_level(high_level) ; c high_level:name = "HIGH_H" ; c high_level:long_name = "Height above station for high mode" ; c high_level:units = "" ; c high_level:valid_range = 0., 16250. ; c float high_u_wind(station, high_level) ; c high_u_wind:name = "HIGH_U" ; c high_u_wind:long_name = "U wind for high mode" ; c high_u_wind:units = "m/s" ; c float high_v_wind(station, high_level) ; c high_v_wind:valid_range = -150., 150. ; c high_v_wind:name = "HIGH_V" ; c high_v_wind:long_name = "V wind for high mode" ; c high_v_wind:units = "m/s" ; c float high_w_wind(station, high_level) ; c high_w_wind:name = "HIGH_W" ; c high_w_wind:long_name = "W wind for high mode" ; c high_w_wind:units = "m/s" ; c high_w_wind:valid_range = -150., 150. ; c float high_moment0_n(station, high_level) ; c high_moment0_n:name = "HIGH_0_N" ; c high_moment0_n:long_name = "0th moment, high mode, north beam" ; c high_moment0_n:units = "dB" ; c float high_moment0_e(station, high_level) ; c high_moment0_e:name = "HIGH_0_E" ; c high_moment0_e:long_name = "0th moment, high mode, east beam" ; c high_moment0_e:units = "dB" ; c float high_moment0_v(station, high_level) ; c high_moment0_v:name = "HIGH_0_V" ; c high_moment0_v:long_name = "0th moment, high mode, vertical beam" ; c high_moment0_v:units = "dB" ; c float high_moment2_n(station, high_level) ; c high_moment2_n:name = "HIGH_2_N" ; c high_moment2_n:long_name = "2nd moment, high mode, north beam" ; c high_moment2_n:units = "m2/s2" ; c float high_moment2_e(station, high_level) ; c high_moment2_e:name = "HIGH_2_E" ; c high_moment2_e:long_name = "2nd moment, high mode, east beam" ; c high_moment2_e:units = "m2/s2" ; c float high_moment2_v(station, high_level) ; c high_moment2_v:name = "HIGH_2_V" ; c high_moment2_v:long_name = "2nd moment, high mode, vertical beam" ; c high_moment2_v:units = "m2/s2" ; c byte high_qual_indicator(station, high_level) ; c high_qual_indicator:name = "HIGH_QI" ; c high_qual_indicator:long_name = "Quality indicator, high mode" ; c byte high_qual_summary(station, high_level) ; c high_qual_summary:name = "HIGH_QS" ; c high_qual_summary:long_name = "Quality summary, high mode" ; c float low_vgw ; c low_vgw:name = "LOW_VGW" ; c low_vgw:long_name = "Low mode vertical gate width" ; c low_vgw:units = "" ; c float high_vgw ; c high_vgw:name = "HIGH_VGW" ; c high_vgw:long_name = "High mode vertical gate width" ; c high_vgw:units = "" ; c float frequency ; c frequency:name = "FREQ" ; c frequency:long_name = "Frequency of radar" ; c frequency:units = "Hz" ; c float gain ; c gain:name = "GAIN" ; c gain:long_name = "Gain, decibels relative to isotropic" ; c gain:units = "dBi" ; c float equiv_noise ; c equiv_noise:name = "E_NOISE" ; c equiv_noise:long_name = "Equivalent noise temperature" ; c equiv_noise:units = "" ; c float cosmic_noise ; c cosmic_noise:name = "C_NOISE" ; c cosmic_noise:long_name = "Cosmic background noise temperature" ; c cosmic_noise:units = "" ; c float total_noise ; c total_noise:name = "TOTAL_NOISE" ; c total_noise:long_name = "Total noise temperature" ; c total_noise:units = "" ; c float minus20_BW_low ; c minus20_BW_low:name = "BW_LOW" ; c minus20_BW_low:long_name = "-20 dB bandwidth, low mode" ; c minus20_BW_low:units = "kHz" ; c float minus20_BW_high ; c minus20_BW_high:name = "BW_HIGH" ; c minus20_BW_high:long_name = "-20 dB bandwidth, high mode" ; c minus20_BW_high:units = "kHz" ; c float ave_power_low(station) ; c ave_power_low:name = "POWER_LOW" ; c ave_power_low:long_name = "Average transmitted power, low mode" ; c ave_power_low:units = "" ; c float ave_power_high ; c ave_power_high:name = "POWER_HIGH" ; c ave_power_high:long_name = "Average transmitted power, high mode" ; c ave_power_high:units = "" ; c c // global attributes: c :missing_value = 1.000000069277307e+38 ; c :not_recorded = -9.999999939128214e+37 ; c :missing_val_b = '\0' ; c :missing_val_c = '\1' ; c c data: c c id = c "PLTC2 ", "VBGC1 ", "WSMN5 ", "PRCO2 ", "BMFC3 ", c "VCIO2 ", "LMNO2 ", "HKLO2 ", "NDSK1 ", "HVLK1 ", c "HBRK1 ", "HMRA2 ", "CNWM7 ", "OKOM6 ", "DQUA4 ", c "PATT2 ", "WNFL1 ", "JTNT2 ", "TCUN5 ", "AZCN5 ", c "GDAC2 ", "MBWW4 ", "MRRN1 ", "RWDN1 ", "FBYN1 ", c "NLGN1 ", "WDLM5 ", "BLRW3 ", "SLAI4 ", "LTHM7 ", c "BLMM7 ", "WNCI2 " ; c c}