!---- ! ! This program reads the accompanying CAVE version of the SARB/CRS ! file and outputs all data for each footprint. ! A list of all CRS variables is made at the bottom of this program. ! It is suggested that one looks over the list, decides which variables ! are required, then modify this program to extract only those variables ! desired. ! ! First set the desired input file as shown below on line 42, eg. ! ! fn='larc_COV_200105_crs.e2b' ! ! Then compile with: ! !>f90 readcrs.f90 ! ! Run with: ! !>a.out ! ! ASCII Output is in: data.out ! !---- Program readcavecrs Implicit None !-------------- ! Input arrays !-------------- Integer, Parameter :: nv = 515 Integer :: i,j,i1,i2,irec,ios,ifp Real, Dimension(nv,7500) :: data Character (len=40) :: lab(nv),key(100) Character (len=100) :: fn !--- ! Variable Definition !--- Call label(lab,key,nv) !--- ! Set file name and Read in data !--- fn = 'TERRA/BSRN/bsrn_LAU_200103_crs.e2b' Open(1,file=trim(fn),& form='unformatted',access='direct',recl=nv*4,status='old') ifp = 1 ios = 0 1 Read(1,rec=ifp,iostat=ios)data(:,ifp) if (ios /= 0) goto 555 ifp=ifp+1 goto 1 !--- 555 Close(1) print*,ifp ifp = ifp-1 Open(2,file='data.out') write(2,*)'For file: ',trim(fn) write(2,*)'number of footprints within 15km (TERRA), 10km(TRMM) of surface site - ',ifp Write(2,*) Write(2,*)"Acronym key for labels" Write(2,*)"------------------------------------------" Write(2,"(a40)")key(1:62) Do i = 1,ifp Write(2,"(/a25,i4,a14)")"--------------Footprint #",i,"--------------" Do j=1,nv Write(2,"(f16.6,1x,a40)")data(j,i),lab(j) Enddo Enddo Close(2) End Program readcavecrs Subroutine label(lab,key,nv) Implicit None Integer :: nv Character (len=40) :: lab(nv),key(100) ! #no. is the identifier in the ! SSF and CRS CERES Data Product Catalogs ! at asd-www.larc.nasa.gov/ceres/docs.html ! \/ ! \/ lab( 1) = '#1 julian day' lab( 2) = '#1 fraction julian day' lab( 3) = '#2 sat radius from earth center (km)' lab( 4) = '#3 x vel (km/sec)' lab( 5) = '#4 y vel (km/sec)' lab( 6) = '#5 z vel (km/sec)' lab( 7) = '#6 sat colatitude (deg)' lab( 8) = '#7 sat longitude (deg)' lab( 9) = '#8 sun colatitude (deg)' lab( 10) = '#9 sun longitude (deg)' lab( 11) = '#10 sfc colatitude (deg)' lab( 12) = '#11 sfc longitude (deg)' lab( 13) = '#12 sample no. (1-660)' lab( 14) = '#13 packet no. (-)' lab( 15) = '#14 cone ang (deg)' lab( 16) = '#15 clock ang (deg)' lab( 17) = '#16 cone ang rate (deg/sec)' lab( 18) = '#17 clock ang rate (deg/sec)' lab( 19) = '#18 along track ang from ground (deg)' lab( 20) = '#19 cross track ang from ground (deg)' lab( 21) = '#20 viewing zenith ang (deg)' lab( 22) = '#21 solar zenith ang (deg)' lab( 23) = '#22 rel azimuth wrt clock ang (deg)' lab( 24) = '#23 viewing azimuth ang wrt north (deg)' lab( 25) = '#24 sfc alt (m)' lab( 26) = '#25 1st IGBP scene type in fp (-)' lab( 27) = '#25 2nd IGBP scene type in fp (-)' lab( 28) = '#25 3rd IGBP scene type in fp (-)' lab( 29) = '#25 4th IGBP scene type in fp (-)' lab( 30) = '#25 5th IGBP scene type in fp (-)' lab( 31) = '#25 6th IGBP scene type in fp (-)' lab( 32) = '#25 7th IGBP scene type in fp (-)' lab( 33) = '#25 8th IGBP scene type in fp (-)' lab( 34) = '#26 % of 1st scene type in fp (-)' lab( 35) = '#26 % of 2nd scene type in fp (-)' lab( 36) = '#26 % of 3rd scene type in fp (-)' lab( 37) = '#26 % of 4th scene type in fp (-)' lab( 38) = '#26 % of 5th scene type in fp (-)' lab( 39) = '#26 % of 6th scene type in fp (-)' lab( 40) = '#26 % of 7th scene type in fp (-)' lab( 41) = '#26 % of 8th scene type in fp (-)' lab( 42) = '#27 SW ADM type (1-5000) (-)' lab( 43) = '#28 LW ADM type (1-5000) (-)' lab( 44) = '#29 WN ADM type (1-5000) (-)' lab( 45) = '#30 CRH Alb Threshhold Snow (%)' lab( 46) = '#31 Tot Channel Rad (W/m2/str)' lab( 47) = '#32 SW Channel Rad (W/m2/str)' lab( 48) = '#33 WN Channel Rad (W/m2/str/mc)' lab( 49) = '#34 quality flag (-)' lab( 50) = '#35 SW Rad (W/m2/str)' lab( 51) = '#36 LW Rad (W/m2/str)' lab( 52) = '#37 WN Rad (W/m2/str/mc)' lab( 53) = '#38 SW Flux (W/m2)' lab( 54) = '#39 LW Flux (W/m2)' lab( 55) = '#40 WN Flux (W/m2/micron)' lab( 56) = '#41 Mod-A Dn SW at Sfc (W/m2)' lab( 57) = '#42 Mod-A Dn LW at Sfc (W/m2)' lab( 58) = '#43 Mod-A Dn Wn at Sfc (W/m2/mc)' lab( 59) = '#44 Mod-A Net SW at Sfc (W/m2)' lab( 60) = '#45 Mod-A Net LW at Sfc (W/m2)' lab( 61) = '#46 Mod-B Dn SW at Sfc (W/m2)' lab( 62) = '#47 Mod-B Dn LW at Sfc (W/m2)' lab( 63) = '#48 Mod-B Net SW at Sfc (W/m2)' lab( 64) = '#49 Mod-B Net LW at sfc (W/m2)' lab( 65) = '#50 IGBP based Sfc alb (-)' lab( 66) = '#51 IGBP based Sfc emiss (-)' lab( 67) = '#52 IGBP based Sfc WN emiss (-)' lab( 68) = '#53 No. of pixels within fp (-)' lab( 69) = '#54 % Coverage of fp by imager (-)' lab( 70) = '#55 Mean pixel viewing zenith ang (deg)' lab( 71) = '#56 Mean pixel rel azimuth ang (deg)' lab( 72) = '#57 Mean Sfc Wind U vel (m/s)' lab( 73) = '#58 Mean Sfc Wind V vel (m/s)' lab( 74) = '#59 Mean Sfc Skin Temp (K)' lab( 75) = '#60 Mean Col Avg RH (%)' lab( 76) = '#61 Mean PW (cm)' lab( 77) = '#62 PW source flag (-)' lab( 78) = '#63 Extrapolation over Cld area? (-)' lab( 79) = '#64 General procedure notes (-)' lab( 80) = '#65 Cld Algorithm notes (-)' lab( 81) = '#66 % Clr at subpixel resolution (-)' lab( 82) = '#67 % Strong Clr (-)' lab( 83) = '#68 % Weak Clr (-)' lab( 84) = '#69 % Snow/Ice Coverage (-)' lab( 85) = '#70 % Aer B coverage (-)' lab( 86) = '#71 Aer B Type (-)' lab( 87) = '#72 % coverage supplement (-)' lab( 88) = '#73 Total Aer OD A vis (-)' lab( 89) = '#74 Total Aer OD A NearIR (-)' lab( 90) = '#75 Aer A supplement 1 (-)' lab( 91) = '#76 Aer A supplement 2 (-)' lab( 92) = '#77 Aer A supplement 3 (-)' lab( 93) = '#78 Aer A supplement 4 (-)' lab( 94) = '#79 Imager based skin temp (K)' lab( 95) = '#80 Vertical temp change (K)' lab( 96) = '#81 Cld ovr conditions (-)' lab( 97) = '#81 Cld ovr conditions (-)' lab( 98) = '#81 Cld ovr conditions (-)' lab( 99) = '#81 Cld ovr conditions (-)' lab(100) = '#82 Cld layer notes (-)' lab(101) = '#82 Cld layer notes (-)' lab(102) = '#83 Mean Cld OD Cld Lev 1 (-)' lab(103) = '#83 Mean Cld OD Cld Lev 2 (-)' lab(104) = '#84 Std Cld OD Cld Lev 1 (-)' lab(105) = '#84 Std Cld OD Cld Lev 2 (-)' lab(106) = '#85 Mean Log Cld OD Cld Lev 1 (-)' lab(107) = '#85 Mean Log Cld OD Cld Lev 2 (-)' lab(108) = '#86 Std Log Cld OD Cld Lev 1 (-)' lab(109) = '#86 Std Log Cld OD Cld Lev 2 (-)' lab(110) = '#87 Mean Cld emiss (-)' lab(111) = '#87 Mean Cld emiss (-)' lab(112) = '#88 Std Cld emiss (-)' lab(113) = '#88 Std Cld emiss (-)' lab(114) = '#89 Mean Cld liq wat path (-)' lab(115) = '#89 Mean Cld liq wat path (-)' lab(116) = '#90 Std Cld liq wat path (-)' lab(117) = '#90 Std Cld liq wat path (-)' lab(118) = '#91 Mean Cld ice wat path (-)' lab(119) = '#91 Mean Cld ice wat path (-)' lab(120) = '#92 Std Cld ice wat path (-)' lab(121) = '#92 Std Cld ice wat path (-)' lab(122) = '#93 Mean Cld top Prs (hPa)' lab(123) = '#93 Mean Cld top Prs (hPa)' lab(124) = '#94 Std Cld top Prs (hPa)' lab(125) = '#94 Std Cld top Prs (hPa)' lab(126) = '#95 Mean Cld eff emitting Prs (hPa)' lab(127) = '#95 Mean Cld eff emitting Prs (hPa)' lab(128) = '#96 Std Cld eff emitting Prs (hPa)' lab(129) = '#96 Std Cld eff emitting Prs (hPa)' lab(130) = '#97 Mean Cld eff emitting temp (K)' lab(131) = '#97 Mean Cld eff emitting temp (K)' lab(132) = '#98 Std Cld eff emitting temp (K)' lab(133) = '#98 Std Cld eff emitting temp (K)' lab(134) = '#99 Mean Cld eff emitting hgt (m)' lab(135) = '#99 Mean Cld eff emitting hgt (m)' lab(136) = '#100 Std Cld eff emitting hgt (m)' lab(137) = '#100 Std Cld eff emitting hgt (m)' lab(138) = '#101 Mean Cld bottom Prs (hPa)' lab(139) = '#101 Mean Cld bottom Prs (hPa)' lab(140) = '#102 Std Cld bottom Prs (hPa)' lab(141) = '#102 Std Cld bottom Prs (hPa)' lab(142) = '#103 Mean Cld wat droplet radius (mc)' lab(143) = '#103 Mean Cld wat droplet radius (mc)' lab(144) = '#104 Std Cld wat droplet radius (mc)' lab(145) = '#104 Std Cld wat droplet radius (mc)' lab(146) = '#105 Mean Cld ice crystal dia (mc)' lab(147) = '#105 Mean Cld ice crystal dia (mc)' lab(148) = '#106 Std Cld ice crystal dia (mc)' lab(149) = '#106 Std Cld ice crystal dia (mc)' lab(150) = '#107 Mean Cld phase' lab(151) = '#107 Mean Cld phase' lab(152) = '#108 Mean 1.6 mc wat drop radius (mc)' lab(153) = '#108 Mean 1.6 mc wat drop radius (mc)' lab(154) = '#109 Mean 1.6 mc ice crystal dia (mc)' lab(155) = '#109 Mean 1.6 mc ice crystal dia (mc)' lab(156) = '#110 Mean 1.6 mc phase (-)' lab(157) = '#110 Mean 1.6 mcr phase (-)' lab(158) = '#111 Mean Cld aspect ratio (-)' lab(159) = '#111 Mean Cld aspect ratio (-)' lab(160) = '#112 Std Cld aspect ratio (-)' lab(161) = '#112 Std Cld aspect ratio (-)' lab(162) = '#113 Cld OD %tile, lay 1 (-)' lab(163) = '#113 Cld OD %tile, lay 1 (-)' lab(164) = '#113 Cld OD %tile, lay 1 (-)' lab(165) = '#113 Cld OD %tile, lay 1 (-)' lab(166) = '#113 Cld OD %tile, lay 1 (-)' lab(167) = '#113 Cld OD %tile, lay 1 (-)' lab(168) = '#113 Cld OD %tile, lay 1 (-)' lab(169) = '#113 Cld OD %tile, lay 1 (-)' lab(170) = '#113 Cld OD %tile, lay 1 (-)' lab(171) = '#113 Cld OD %tile, lay 1 (-)' lab(172) = '#113 Cld OD %tile, lay 1 (-)' lab(173) = '#113 Cld OD %tile, lay 1 (-)' lab(174) = '#113 Cld OD %tile, lay 1 (-)' lab(175) = '#113 Cld OD %tile, lay 2 (-)' lab(176) = '#113 Cld OD %tile, lay 2 (-)' lab(177) = '#113 Cld OD %tile, lay 2 (-)' lab(178) = '#113 Cld OD %tile, lay 2 (-)' lab(179) = '#113 Cld OD %tile, lay 2 (-)' lab(180) = '#113 Cld OD %tile, lay 2 (-)' lab(181) = '#113 Cld OD %tile, lay 2 (-)' lab(182) = '#113 Cld OD %tile, lay 2 (-)' lab(183) = '#113 Cld OD %tile, lay 2 (-)' lab(184) = '#113 Cld OD %tile, lay 2 (-)' lab(185) = '#113 Cld OD %tile, lay 2 (-)' lab(186) = '#113 Cld OD %tile, lay 2 (-)' lab(187) = '#113 Cld OD %tile, lay 2 (-)' lab(188) = '#114 Cld IR emiss %tile, lay 1 (-)' lab(189) = '#114 Cld IR emiss %tile, lay 1 (-)' lab(190) = '#114 Cld IR emiss %tile, lay 1 (-)' lab(191) = '#114 Cld IR emiss %tile, lay 1 (-)' lab(192) = '#114 Cld IR emiss %tile, lay 1 (-)' lab(193) = '#114 Cld IR emiss %tile, lay 1 (-)' lab(194) = '#114 Cld IR emiss %tile, lay 1 (-)' lab(195) = '#114 Cld IR emiss %tile, lay 1 (-)' lab(196) = '#114 Cld IR emiss %tile, lay 1 (-)' lab(197) = '#114 Cld IR emiss %tile, lay 1 (-)' lab(198) = '#114 Cld IR emiss %tile, lay 1 (-)' lab(199) = '#114 Cld IR emiss %tile, lay 1 (-)' lab(200) = '#114 Cld IR emiss %tile, lay 1 (-)' lab(201) = '#114 Cld IR emiss %tile, lay 2 (-)' lab(202) = '#114 Cld IR emiss %tile, lay 2 (-)' lab(203) = '#114 Cld IR emiss %tile, lay 2 (-)' lab(204) = '#114 Cld IR emiss %tile, lay 2 (-)' lab(205) = '#114 Cld IR emiss %tile, lay 2 (-)' lab(206) = '#114 Cld IR emiss %tile, lay 2 (-)' lab(207) = '#114 Cld IR emiss %tile, lay 2 (-)' lab(208) = '#114 Cld IR emiss %tile, lay 2 (-)' lab(209) = '#114 Cld IR emiss %tile, lay 2 (-)' lab(210) = '#114 Cld IR emiss %tile, lay 2 (-)' lab(211) = '#114 Cld IR emiss %tile, lay 2 (-)' lab(212) = '#114 Cld IR emiss %tile, lay 2 (-)' lab(213) = '#114 Cld IR emiss %tile, lay 2 (-)' lab(214) = '#115 channel central rad (W/m2/str)' lab(215) = '#115 channel central rad (W/m2/str)' lab(216) = '#115 channel central rad (W/m2/str)' lab(217) = '#115 channel central rad (W/m2/str)' lab(218) = '#115 channel central rad (W/m2/str)' lab(219) = '#116 % subpixel clr coverage (-)' lab(220) = '#117 % subpixel cld coverage (-)' lab(221) = '#118 Mean rad over Clr area (W/m2/str)' lab(222) = '#118 Mean rad over clr area (W/m2/str)' lab(223) = '#118 Mean rad over clr area (W/m2/str)' lab(224) = '#118 Mean rad over clr area (W/m2/str)' lab(225) = '#118 Mean rad over clr area (W/m2/str)' lab(226) = '#119 Std rad over clr area (W/m2/str)' lab(227) = '#119 Std rad over clr area (W/m2/str)' lab(228) = '#119 Std rad over clr area (W/m2/str)' lab(229) = '#119 Std rad over clr area (W/m2/str)' lab(230) = '#119 Std rad over clr area (W/m2/str)' lab(231) = '#120 Mean rad over cld area (W/m2/str)' lab(232) = '#120 Mean rad over cld area (W/m2/str)' lab(233) = '#120 Mean rad over cld area (W/m2/str)' lab(234) = '#120 Mean rad over cld area (W/m2/str)' lab(235) = '#120 Mean rad over cld area (W/m2/str)' lab(236) = '#121 Std rad over cld area (W/m2/str)' lab(237) = '#121 Std rad over cld area (W/m2/str)' lab(238) = '#121 Std rad over cld area (W/m2/str)' lab(239) = '#121 Std rad over cld area (W/m2/str)' lab(240) = '#121 Std rad over cld area (W/m2/str)' lab(241) = '#122 Mean rad over fp (W/m2/str)' lab(242) = '#122 Mean rad over fp (W/m2/str)' lab(243) = '#122 Mean rad over fp (W/m2/str)' lab(244) = '#122 Mean rad over fp (W/m2/str)' lab(245) = '#122 Mean rad over fp (W/m2/str)' lab(246) = '#123 Std rad over fp (W/m2/str)' lab(247) = '#123 Std rad over fp (W/m2/str)' lab(248) = '#123 Std rad over fp (W/m2/str)' lab(249) = '#123 Std rad over fp (W/m2/str)' lab(250) = '#123 Std rad over fp (W/m2/str)' lab(251) = '#124 5th %tile of rad over fp' lab(252) = '#124 5th %tile of rad over fp' lab(253) = '#124 5th %tile of rad over fp' lab(254) = '#124 5th %tile of rad over fp' lab(255) = '#124 5th %tile of rad over fp' lab(256) = '#125 95th %tile of rad over fp' lab(257) = '#125 95th %tile of rad over fp' lab(258) = '#125 95th %tile of rad over fp' lab(259) = '#125 95th %tile of rad over fp' lab(260) = '#125 95th %tile of rad over fp' lab(261) = '#126 Mean rad cld lay 1 novr (W/m2/str)' lab(262) = '#126 Mean rad cld lay 1 novr (W/m2/str)' lab(263) = '#126 Mean rad cld lay 1 novr (W/m2/str)' lab(264) = '#126 Mean rad cld lay 1 novr (W/m2/str)' lab(265) = '#126 Mean rad cld lay 1 novr (W/m2/str)' lab(266) = '#127 Std rad cld lay 1 novr (W/m2/str)' lab(267) = '#127 Std rad cld lay 1 novr (W/m2/str)' lab(268) = '#127 Std rad cld lay 1 novr (W/m2/str)' lab(269) = '#127 Std rad cld lay 1 novr (W/m2/str)' lab(270) = '#127 Std rad cld lay 1 novr (W/m2/str)' lab(271) = '#128 Mean rad cld lay 2 novr (W/m2/str)' lab(272) = '#128 Mean rad cld lay 2 novr (W/m2/str)' lab(273) = '#128 Mean rad cld lay 2 novr (W/m2/str)' lab(274) = '#128 Mean rad cld lay 2 novr (W/m2/str)' lab(275) = '#128 Mean rad cld lay 2 novr (W/m2/str)' lab(276) = '#129 Std rad cld lay 2 novr (W/m2/str)' lab(277) = '#129 Std rad cld lay 2 novr (W/m2/str)' lab(278) = '#129 Std rad cld lay 2 novr (W/m2/str)' lab(279) = '#129 Std rad cld lay 2 novr (W/m2/str)' lab(280) = '#129 Std rad cld lay 2 novr (W/m2/str)' lab(281) = '#130 Mean rad cld lay 1&2 ovr (W/m2/str)' lab(282) = '#130 Mean rad cld lay 1&2 ovr (W/m2/str)' lab(283) = '#130 Mean rad cld lay 1&2 ovr (W/m2/str)' lab(284) = '#130 Mean rad cld lay 1&2 ovr (W/m2/str)' lab(285) = '#130 Mean rad cld lay 1&2 ovr (W/m2/str)' lab(286) = '#131 Std rad cld lay 1&2 ovr (W/m2/str)' lab(287) = '#131 Std rad cld lay 1&2 ovr (W/m2/str)' lab(288) = '#131 Std rad cld lay 1&2 ovr (W/m2/str)' lab(289) = '#131 Std rad cld lay 1&2 ovr (W/m2/str)' lab(290) = '#131 Std rad cld lay 1&2 ovr (W/m2/str)' lab(291) = 'spare to line up on 64 bit bound' !----------------- ! Begin crs labels !----------------- lab(292) = '#132 PAR (W/m2)' lab(293) = '#133 Direct/Diffuse Ratio (-)' lab(294) = '#134 Corrected initial sfc alb (-)' lab(295) = '#135 Number of levels in profile (-)' lab(296) = '#136 Prs of levels in profile (hPa)' lab(297) = '#136 Prs of levels in profile (hPa)' lab(298) = '#136 Prs of levels in profile (hPa)' lab(299) = '#136 Prs of levels in profile (hPa)' lab(300) = '#136 Prs of levels in profile (hPa)' lab(301) = '#137 Tuned SW flux Up Prist sky (W/m2)' lab(302) = '#137 Tuned SW flux Up Prist sky (W/m2)' lab(303) = '#138 Tuned SW flux Dn Prist sky (W/m2)' lab(304) = '#138 Tuned SW flux Dn Prist sky (W/m2)' lab(305) = '#139 Tuned LW flux Up Prist sky (W/m2)' lab(306) = '#139 Tuned LW flux Up Prist sky (W/m2)' lab(307) = '#140 Tuned LW flux Dn Prist sky (W/m2)' lab(308) = '#140 Tuned LW flux Dn Prist sky (W/m2)' lab(309) = '#141 Tuned WN flux Up Prist sky (W/m2)' lab(310) = '#141 Tuned WN flux Up Prist sky (W/m2)' lab(311) = '#142 Tuned WN flux Dn Prist sky (W/m2)' lab(312) = '#142 Tuned WN flux Dn Prist sky (W/m2)' lab(313) = '#143 Tuned SW flux Up Clr sky (W/m2)' lab(314) = '#143 Tuned SW flux Up Clr sky (W/m2)' lab(315) = '#143 Tuned SW flux Up Clr sky (W/m2)' lab(316) = '#143 Tuned SW flux Up Clr sky (W/m2)' lab(317) = '#143 Tuned SW flux Up Clr sky (W/m2)' lab(318) = '#144 Tuned SW flux Dn Clr sky (W/m2)' lab(319) = '#144 Tuned SW flux Dn Clr sky (W/m2)' lab(320) = '#144 Tuned SW flux Dn Clr sky (W/m2)' lab(321) = '#144 Tuned SW flux Dn Clr sky (W/m2)' lab(322) = '#144 Tuned SW flux Dn Clr sky (W/m2)' lab(323) = '#145 Tuned LW flux Up Clr sky (W/m2)' lab(324) = '#145 Tuned LW flux Up Clr sky (W/m2)' lab(325) = '#145 Tuned LW flux Up Clr sky (W/m2)' lab(326) = '#145 Tuned LW flux Up Clr sky (W/m2)' lab(327) = '#145 Tuned LW flux Up Clr sky (W/m2)' lab(328) = '#146 Tuned LW flux Dn Clr sky (W/m2)' lab(329) = '#146 Tuned LW flux Dn Clr sky (W/m2)' lab(330) = '#146 Tuned LW flux Dn Clr sky (W/m2)' lab(331) = '#146 Tuned LW flux Dn Clr sky (W/m2)' lab(332) = '#146 Tuned LW flux Dn Clr sky (W/m2)' lab(333) = '#147 Tuned WN flux Up Clr sky (W/m2)' lab(334) = '#147 Tuned WN flux Up Clr sky (W/m2)' lab(335) = '#147 Tuned WN flux Up Clr sky (W/m2)' lab(336) = '#147 Tuned WN flux Up Clr sky (W/m2)' lab(337) = '#147 Tuned WN flux Up Clr sky (W/m2)' lab(338) = '#148 Tuned WN flux Dn Clr sky (W/m2)' lab(339) = '#148 Tuned WN flux Dn Clr sky (W/m2)' lab(340) = '#148 Tuned WN flux Dn Clr sky (W/m2)' lab(341) = '#148 Tuned WN flux Dn Clr sky (W/m2)' lab(342) = '#148 Tuned WN flux Dn Clr sky (W/m2)' lab(343) = '#149 Tuned SW flux Up Tot sky (W/m2)' lab(344) = '#149 Tuned SW flux Up Tot sky (W/m2)' lab(345) = '#149 Tuned SW flux Up Tot sky (W/m2)' lab(346) = '#149 Tuned SW flux Up Tot sky (W/m2)' lab(347) = '#149 Tuned SW flux Up Tot sky (W/m2)' lab(348) = '#150 Tuned SW flux Dn Tot sky (W/m2)' lab(349) = '#150 Tuned SW flux Dn Tot sky (W/m2)' lab(350) = '#150 Tuned SW flux Dn Tot sky (W/m2)' lab(351) = '#150 Tuned SW flux Dn Tot sky (W/m2)' lab(352) = '#150 Tuned SW flux Dn Tot sky (W/m2)' lab(353) = '#151 Tuned LW flux Up Tot sky (W/m2)' lab(354) = '#151 Tuned LW flux Up Tot sky (W/m2)' lab(355) = '#151 Tuned LW flux Up Tot sky (W/m2)' lab(356) = '#151 Tuned LW flux Up Tot sky (W/m2)' lab(357) = '#151 Tuned LW flux Up Tot sky (W/m2)' lab(358) = '#152 Tuned LW flux Dn Tot sky (W/m2)' lab(359) = '#152 Tuned LW flux Dn Tot sky (W/m2)' lab(360) = '#152 Tuned LW flux Dn Tot sky (W/m2)' lab(361) = '#152 Tuned LW flux Dn Tot sky (W/m2)' lab(362) = '#152 Tuned LW flux Dn Tot sky (W/m2)' lab(363) = '#153 Tuned WN flux Up Tot sky (W/m2)' lab(364) = '#153 Tuned WN flux Up Tot sky (W/m2)' lab(365) = '#153 Tuned WN flux Up Tot sky (W/m2)' lab(366) = '#153 Tuned WN flux Up Tot sky (W/m2)' lab(367) = '#153 Tuned WN flux Up Tot sky (W/m2)' lab(368) = '#154 Tuned WN flux Dn Tot sky (W/m2)' lab(369) = '#154 Tuned WN flux Dn Tot sky (W/m2)' lab(370) = '#154 Tuned WN flux Dn Tot sky (W/m2)' lab(371) = '#154 Tuned WN flux Dn Tot sky (W/m2)' lab(372) = '#154 Tuned WN flux Dn Tot sky (W/m2)' lab(373) = '#155 Adj SW flux Up Sfc Prist sky (W/m2)' lab(374) = '#156 Adj SW flux Up TOA Prist sky (W/m2)' lab(375) = '#157 Adj SW flux Dn Sfc Prist sky (W/m2)' lab(376) = '#158 Adj LW flux Up Sfc Prist sky (W/m2)' lab(377) = '#159 Adj LW flux Dn Sfc Prist sky (W/m2)' lab(378) = '#160 Adj LW flux Up TOA Prist sky (W/m2)' lab(379) = '#161 Adj WN flux Up Sfc Prist sky (W/m2)' lab(380) = '#162 Adj WN flux Dn Sfc Prist sky (W/m2)' lab(381) = '#163 Adj WN flux Up TOA Prist sky (W/m2)' lab(382) = '#164 Adj SW flux Up Sfc Clr sky (W/m2)' lab(383) = '#165 Adj SW flux Up TOA Clr sky (W/m2)' lab(384) = '#166 Adj SW flux Dn Sfc Clr sky (W/m2)' lab(385) = '#167 Adj LW flux Up Sfc Clr sky (W/m2)' lab(386) = '#168 Adj LW flux Dn Sfc Clr sky (W/m2)' lab(387) = '#169 Adj LW flux Up TOA Clr sky (W/m2)' lab(388) = '#170 Adj WN flux Up Sfc Clr sky (W/m2)' lab(389) = '#171 Adj WN flux Dn Sfc Clr sky (W/m2)' lab(390) = '#172 Adj WN flux Up TOA Clr sky (W/m2)' lab(391) = '#173 Adj SW flux Up Sfc Tot sky (W/m2)' lab(392) = '#174 Adj SW flux Up TOA Tot sky (W/m2)' lab(393) = '#175 Adj SW flux Dn Sfc Tot sky (W/m2)' lab(394) = '#176 Adj LW flux Up Sfc Tot sky (W/m2)' lab(395) = '#177 Adj LW flux Dn Sfc Tot sky (W/m2)' lab(396) = '#178 Adj LW flux Up TOA Tot sky (W/m2)' lab(397) = '#179 Adj WN flux Up Sfc Tot sky (W/m2)' lab(398) = '#180 Adj WN flux Dn Sfc Tot sky (W/m2)' lab(399) = '#181 Adj WN flux Up TOA Tot sky (W/m2)' lab(400) = '#182 Mod WN filt rad TOA (W/m2/str)' lab(401) = '#183 Adj Mod WN filt rad TOA (W/m2/str)' lab(402) = '#184 WN flux, sat emu TOA (W/m2/str)' lab(403) = '#185 Adj WN flux, sat emu TOA (W/m2/str)' lab(404) = '#186 LW unfilt rad sat emu TOA(W/m2/str)' lab(405) = '#187 Adj LW unfilt rad sat emu TOA' lab(406) = '#188 Initial PW (cm)' lab(407) = '#189 Adj to PW (cm)' lab(408) = '#190 Initial upper trop PW (cm)' lab(409) = '#191 Adj to upper trop PW (cm)' lab(410) = '#192 Initial upper trop RH (%)' lab(411) = '#193 Adj to upper trop RH (%)' lab(412) = '#194 Adj to the Sfc alb (-)' lab(413) = '#195 Initial Aer OD (-)' lab(414) = '#196 Adj to the Aer OD (-)' lab(415) = '#197 Initial skin temp (K)' lab(416) = '#198 Adj to skin temp (K)' lab(417) = '#199 Adj to vis OD mean (-)' lab(418) = '#199 Adj to vis OD mean (-)' lab(419) = '#200 Adj to cld fractional area mean (%)' lab(420) = '#200 Adj to cld fractional area mean (%)' lab(421) = '#201 Adj to cld eff temp mean (K)' lab(422) = '#201 Adj to cld eff temp mean (K)' lab(423) = '#202 Flag type,%,hgt for aer constit (-)' lab(424) = '#202 Flag type,%,hgt for aer constit (-)' lab(425) = '#202 Flag type,%,hgt for aer constit (-)' lab(426) = '#202 Flag type,%,hgt for aer constit (-)' lab(427) = '#202 Flag type,%,hgt for aer constit (-)' lab(428) = '#202 Flag type,%,hgt for aer constit (-)' lab(429) = '#202 Flag type,%,hgt for aer constit (-)' lab(430) = '#203 Sfc alb and aer OD source flag (-)' lab(431) = '#204 Number of tuning iterations (-)' lab(432) = '#205 Constrainment status flag (-)' lab(433) = '#206 Sigma table configuration flag (-)' lab(434) = '#207 Tuned SW flux Up TOA CNA (W/m2)' lab(435) = '#207 Tuned SW flux Up SFC CNA (W/m2)' lab(436) = '#208 Tuned SW flux Dn TOA CNA (W/m2)' lab(437) = '#208 Tuned SW flux Dn SFC CNA (W/m2)' lab(438) = '#209 Tuned LW flux Up TOA CNA (W/m2)' lab(439) = '#209 Tuned LW flux Up SFC CNA (W/m2)' lab(440) = '#210 Tuned LW flux Dn TOA CNA (W/m2)' lab(441) = '#210 Tuned LW flux Dn SFC CNA (W/m2)' lab(442) = '#211 Tuned WN flux Up TOA CNA (W/m2)' lab(443) = '#211 Tuned WN flux Up SFC CNA (W/m2)' lab(444) = '#212 Tuned WN flux Dn TOA CNA (W/m2)' lab(445) = '#212 Tuned WN flux Dn SFC CNA (W/m2)' lab(446) = '#213 Adj SW flux Up Sfc CNA (W/m2)' lab(447) = '#214 Adj SW flux Up TOA CNA (W/m2)' lab(448) = '#215 Adj SW flux Dn Sfc CNA (W/m2)' lab(449) = '#216 Adj LW flux Up Sfc CNA (W/m2)' lab(450) = '#217 Adj LW flux Dn Sfc CNA (W/m2)' lab(451) = '#218 Adj LW flux Up TOA CNA (W/m2)' lab(452) = '#219 Adj WN flux Up Sfc CNA (W/m2)' lab(453) = '#220 Adj WN flux Dn Sfc CNA (W/m2)' lab(454) = '#221 Adj WN flux Up TOA CNA (W/m2)' !--- ! These values are derived variables from the CRS data and ! consequently not listed in CERES data product catalogs. !--- lab(455) = '#Der CAVE 15 minute index index for fp (-)' lab(456) = '#Der Local Time (Hour.Fraction-of-Hour)' lab(457) = '#Der fp distance from surface site (km)' lab(458) = '#Der Cld fraction for lay 1 (%)' lab(459) = '#Der Cld fraction for lay 2 (%)' lab(460) = '#Der Clr fraction of footprint (%)' lab(461) = '#Der Unt SW Up Flux sfc Prist (W/m2)' lab(462) = '#Der Unt SW Up Flux TOA Prist (W/m2)' lab(463) = '#Der Unt SW Dn Flux sfc Prist (W/m2)' lab(464) = '#Der Unt LW Up Flux sfc Prist (W/m2)' lab(465) = '#Der Unt LW Dn Flux sfc Prist (W/m2)' lab(466) = '#Der Unt LW Up Flux TOA Prist (W/m2)' lab(467) = '#Der Unt Wn Up Flux sfc Prist (W/m2)' lab(468) = '#Der Unt Wn Dn Flux sfc Prist (W/m2)' lab(469) = '#Der Unt Wn Up Flux TOA Prist (W/m2)' lab(470) = '#Der Unt SW Up Flux sfc Clr (W/m2)' lab(471) = '#Der Unt SW Up Flux TOA Clr (W/m2)' lab(472) = '#Der Unt SW Dn Flux sfc Clr (W/m2)' lab(473) = '#Der Unt LW Up Flux sfc Clr (W/m2)' lab(474) = '#Der Unt LW Dn Flux sfc Clr (W/m2)' lab(475) = '#Der Unt LW Up Flux TOA Clr (W/m2)' lab(476) = '#Der Unt Wn Up Flux sfc Clr (W/m2)' lab(477) = '#Der Unt Wn Dn Flux sfc Clr (W/m2)' lab(478) = '#Der Unt Wn Up Flux TOA Clr (W/m2)' lab(479) = '#Der Unt SW Up Flux sfc Tot (W/m2)' lab(480) = '#Der Unt SW Up Flux TOA Tot (W/m2)' lab(481) = '#Der Unt SW Dn Flux sfc Tot (W/m2)' lab(482) = '#Der Unt LW Up Flux sfc Tot (W/m2)' lab(483) = '#Der Unt LW Dn Flux sfc Tot (W/m2)' lab(484) = '#Der Unt LW Up Flux TOA Tot (W/m2)' lab(485) = '#Der Unt Wn Up Flux sfc Tot (W/m2)' lab(486) = '#Der Unt Wn Dn Flux sfc Tot (W/m2)' lab(487) = '#Der Unt Wn Up Flux TOA Tot (W/m2)' lab(488) = '#Der Unt SW Up Flux sfc CNA (W/m2)' lab(489) = '#Der Unt SW Up Flux TOA CNA (W/m2)' lab(490) = '#Der Unt SW Dn Flux sfc CNA (W/m2)' lab(491) = '#Der Unt LW Up Flux sfc CNA (W/m2)' lab(492) = '#Der Unt LW Dn Flux sfc CNA (W/m2)' lab(493) = '#Der Unt LW Up Flux TOA CNA (W/m2)' lab(494) = '#Der Unt Wn Up Flux sfc CNA (W/m2)' lab(495) = '#Der Unt Wn Dn Flux sfc CNA (W/m2)' lab(496) = '#Der Unt Wn Up Flux TOA CNA (W/m2)' lab(497) = '#Der Tun Alb TOA Prist (-)' lab(498) = '#Der Unt Alb TOA Prist (-)' lab(499) = '#Der Tun Alb TOA Clr (-)' lab(500) = '#Der Unt Alb TOA Clr (-)' lab(501) = '#Der Tun Alb TOA CNA (-)' lab(502) = '#Der Unt Alb TOA CNA (-)' lab(503) = '#Der Tun Alb TOA (-)' lab(504) = '#Der Unt Alb TOA (-)' lab(505) = '#Der CERES observed alb TOA (-)' lab(506) = '#Der Tun Alb sfc Prist (-)' lab(507) = '#Der Unt Alb sfc Prist (-)' lab(508) = '#Der Tun Alb sfc Clr (-)' lab(509) = '#Der Unt Alb sfc Clr (-)' lab(510) = '#Der Tun Alb sfc CNA (-)' lab(511) = '#Der Unt Alb sfc CNA (-)' lab(512) = '#Der Tun Alb sfc (-)' lab(513) = '#Der Unt Alb sfc (-)' lab(514) = '#Der Tun Alb sfc input to mod (-)' lab(515) = '#Der Glint Angle(deg)' key( 1) = 'Adj - Adjustment' key( 2) = 'ADM - Anisotropic Directional Model' key( 3) = 'aer - aerosol' key( 4) = 'alb - albedo' key( 5) = 'alt - altitude' key( 6) = 'ang - angle' key( 7) = 'avg - average' key( 8) = 'azi - azimuth' key( 9) = 'cld - cloud' key(10) = 'clr - clear' key(11) = 'CNA - All-sky w/o aerosol' ! "Clouds No Aerosol (CNA)" key(12) = 'constit- contsituent' key(13) = 'deg - degrees' key(14) = '#Der - variable derived from CRS data' key(15) = 'Dn - downward' key(16) = 'Dia - diameter' key(17) = 'eff - effective' key(18) = 'Emiss - emissivity' key(19) = 'emu - emulated' key(20) = 'fp - footprint' key(21) = 'hgt - height' key(22) = 'hPa - hecto-Pascals' key(23) = 'IGBP - Intern Geosphere Biosphere Proj' key(24) = 'IR - infra-red' key(25) = 'K - Kelvin' key(26) = 'km - kilometers' key(27) = 'lay - layer' key(28) = 'lev - level' key(29) = 'liq - liquid' key(30) = 'LW - longwave' key(31) = 'm - meters' key(32) = 'mc - micron' key(33) = 'Mod - model' key(34) = 'No. - number' key(35) = 'novr - no overlap' key(36) = 'OD - Optical Depth' key(37) = 'ovr - overlap' key(38) = '% - percent' key(39) = 'Prist - pristine' key(40) = 'Prs - pressure' key(41) = 'PW - Precipitable Water' key(42) = 'Rad - radiance' key(43) = 'rel - relative' key(44) = 'RH - Relative Humidity' key(45) = 'SW - shortwave' key(46) = 'std - standard deviation' key(47) = 'sat - satellite' key(48) = 'sec - second' key(49) = 'Sfc - surface' key(50) = 'str - steridian' key(51) = 'temp - temperature' key(52) = 'Tot - total' key(53) = 'trop - tropospheric' key(54) = 'Tun - tuned' key(55) = 'unfilt - unfiltered' key(56) = 'Unt - untuned' key(57) = 'Up - Upward' key(58) = 'vel - velocity' key(59) = 'W - Watts' key(60) = 'Wat - Water' key(61) = 'WN - window' key(62) = 'wrt - with respect to' key(63:100) = '-' End Subroutine label