function d2atts  (flag:integer)
begin
; long_name and symbolic abbreviations are from pgs 11-15 of
;             World Climate Research Program
;     International Satellite Cloud Climatology Project
;                       (ISCCP)
;           Documentation of New Cloud Datasets
;                    January 1996

; note: NCL is 0 based so the indices will be one less than 
;       the documentation and corresponding d2read.f program

  varName  = new (130, "string")
  longName = new (130, "string")
  units    = new (130, "string")
  comment  = new (130, "string")
  daytime  = new (130, "string")
;------------------------------------------------------------------------------
; Box identification. 
;------------------------------------------------------------------------------ 
  varName(   0) = "BoxLatIndex"
  varName(   1) = "BoxLonIndex"
  varName(   2) = "BoxWestIndex"
  varName(   3) = "BoxEastIndex"

  longName(  0) = "Latitude index (equal-area and equal-angle)" 
  longName(  1) = "Longitude index (equal-area)" 
  longName(  2) = "Western-most longitude index (equal-angle)"
  longName(  3) = "Eastern-most longitude index (equal-angle)" 

;----------------------------------------------------------------------------- 
; Miscellaneous: refer to equal area grid 
;----------------------------------------------------------------------------- 
  varName(   4) = "LWC"
  longName(  4) = "Land/water/coast code"  
  units(4)      = "1=water; 2=land; 3=coast"
  comment(4)    = "water: land <= 35%,land: land >= 65%"

  varName(   5) = "Nobs"   
  longName(  5) = "Number of observations"

  varName(   6) = "Nobs_daytime"   
  longName(  6) = "Number of day-time observations"

;----------------------------------------------------------------------------- 
; Cloud amount (CA)                                                            
;----------------------------------------------------------------------------- 
  varName(   7) = "CA"
  varName(   8) = "CA_IR"

  longName(  7) = "Mean cloud amount"                
  longName(  8) = "Mean IR-marginal cloud amount"

  units(7:8)    = "%"
  comment(7:8)  = "CA: Cloud amount"                                       
;-----------------------------------------------------------------------------
; Frequency Distribution (CA)                                                
;----------------------------------------------------------------------------- 
  varName(   9) = "CA_Frq_0010"
  varName(  10) = "CA_Frq_1020"
  varName(  11) = "CA_Frq_2030"
  varName(  12) = "CA_Frq_3040"
  varName(  13) = "CA_Frq_4050"
  varName(  14) = "CA_Frq_5060"
  varName(  15) = "CA_Frq_6070"
  varName(  16) = "CA_Frq_7080"
  varName(  17) = "CA_Frq_8090"
  varName(  18) = "CA_Frq_90100"

  longName(  9) = "Frequency of mean cloud amount  0-10%" 
  longName( 10) = "Frequency of mean cloud amount 10-20%"
  longName( 11) = "Frequency of mean cloud amount 20-30%" 
  longName( 12) = "Frequency of mean cloud amount 30-40%"
  longName( 13) = "Frequency of mean cloud amount 40-50%" 
  longName( 14) = "Frequency of mean cloud amount 50-60%" 
  longName( 15) = "Frequency of mean cloud amount 60-70%" 
  longName( 16) = "Frequency of mean cloud amount 70-80%" 
  longName( 17) = "Frequency of mean cloud amount 80-90%"
  longName( 18) = "Frequency of mean cloud amount 90-100%"

  units( 9:18)  = "%"
  comment( 9:18)= "CA: Frequency Distribution: Cloud amount"  
;---------------------------------------------------------------------------- 
; Mean cloud top pressure (PC)  
;---------------------------------------------------------------------------- 
  varName(  19) = "PC"
  varName(  20) = "PC_Sd_Time"
  varName(  21) = "PC_Sd_Space"

  longName( 19) = "Mean cloud pressure"
  longName( 20) = "Standard deviation over time"
  longName( 21) = "Mean standard deviation over space"

  units(19:21)   = "mb"
  comment(19:21) = "PC: Mean cloud top pressure"

;----------------------------------------------------------------------------- 
; Mean cloud top temperature (TC) 
;----------------------------------------------------------------------------- 
  varName(  22) = "TC"
  varName(  23) = "TC_Sd_Time"
  varName(  24) = "TC_Sd_Space"

  longName( 22) = "Mean cloud temperature"
  longName( 23) = "Standard deviation over time"
  longName( 24) = "Mean standard deviation over space"

  units(22:24)   = "K"
  comment(22:24) = "TC: Mean cloud top temperature"

;----------------------------------------------------------------------------- 
; Mean cloud optical thickness (TAU)
;----------------------------------------------------------------------------- 
  varName(  25) = "TAU"
  varName(  26) = "TAU_Sd_Time"
  varName(  27) = "TAU_Sd_Space"

  longName( 25) = "Mean cloud TAU"
  longName( 26) = "Standard deviation over time"
  longName( 27) = "Mean standard deviation over space"

  units(25:27)   = ""
  comment(25:27) = "TAU: Mean cloud optical thickness"

;---------------------------------------------------------------------------- 
; Mean cloud water path (WP)   
;----------------------------------------------------------------------------- 
  varName(  28) = "WP"
  varName(  29) = "WP_Sd_Time"
  varName(  30) = "WP_Sd_Space"

  longName( 28) = "Water path (WP)"   
  longName( 29) = "Standard deviation over time"
  longName( 30) = "Mean standard deviation over space"

  units(28:30)   = "g/m2"
  comment(28:30) = "WP: Mean cloud water path"   

;----------------------------------------------------------------------------- 
; IR cloud types 
;-----------------------------------------------------------------------------
  varName(  31) = "CA_Low"
  varName(  32) = "PC_Low"
  varName(  33) = "TC_Low"
  varName(  34) = "CA_Mid"
  varName(  35) = "PC_Mid"
  varName(  36) = "TC_Mid"
  varName(  37) = "CA_High"
  varName(  38) = "PC_High"
  varName(  39) = "TC_High"

  longName( 31) = "Mean low cloud amount"
  longName( 32) = "Mean PC for low clouds"
  longName( 33) = "Mean TC for low clouds"
  longName( 34) = "Mean middle cloud amount"
  longName( 35) = "Mean PC for middle clouds"
  longName( 36) = "Mean TC for middle clouds"
  longName( 37) = "Mean high cloud amount"
  longName( 38) = "Mean PC for high clouds"
  longName( 39) = "Mean TC for high clouds"

  units(31:37:3)   = "%"
  units(32:38:3)   = "mb"
  units(33:39:3)   = "K"
  comment(31:39) = "IR cloud type" 

;----------------------------------------------------------------------------- 
; LOW cloud types (vis-adjusted TC) 
;----------------------------------------------------------------------------- 
  varName(  40) = "CA_C_Liquid"
  varName(  41) = "PC_C_Liquid"
  varName(  42) = "TC_C_Liquid"
  varName(  43) = "TAU_C_Liquid"
  varName(  44) = "WP_C_Liquid"
  varName(  45) = "CA_SC_Liquid"
  varName(  46) = "PC_SC_Liquid"
  varName(  47) = "TC_SC_Liquid"
  varName(  48) = "TAU_SC_Liquid"
  varName(  49) = "WP_SC_Liquid"
  varName(  50) = "CA_S_Liquid"
  varName(  51) = "PC_S_Liquid"
  varName(  52) = "TC_S_Liquid"
  varName(  53) = "TAU_S_Liquid"
  varName(  54) = "WP_S_Liquid"

  varName(  55) = "CA_C_Ice"
  varName(  56) = "PC_C_Ice"
  varName(  57) = "TC_C_Ice"
  varName(  58) = "TAU_C_Ice"
  varName(  59) = "WP_C_Ice"
  varName(  60) = "CA_SC_Ice"
  varName(  61) = "PC_SC_Ice"
  varName(  62) = "TC_SC_Ice"
  varName(  63) = "TAU_SC_Ice"
  varName(  64) = "WP_SC_Ice"
  varName(  65) = "CA_S_Ice"
  varName(  66) = "PC_S_Ice"
  varName(  67) = "TC_S_Ice"
  varName(  68) = "TAU_S_Ice"
  varName(  69) = "WP_S_Ice"

  longName( 40) = "Mean CA for cloud type 1 = Cumulus,liquid" 
  longName( 41) = "Mean PC for cloud type 1 = Cumulus,liquid"
  longName( 42) = "Mean TC for cloud type 1 = Cumulus,liquid"
  longName( 43) = "Mean TAU for cloud type 1 = Cumulus,liquid"
  longName( 44) = "Mean WP for cloud type 1 = Cumulus,liquid"
  longName( 45) = "Mean CA for cloud type 2 = Stratocumulus,liquid"
  longName( 46) = "Mean PC for cloud type 2 = Stratocumulus,liquid"
  longName( 47) = "Mean TC for cloud type 2 = Stratocumulus,liquid"
  longName( 48) = "Mean TAU for cloud type 2 = Stratocumulus,liquid"
  longName( 49) = "Mean WP for cloud type 2 = Stratocumulus,liquid"
  longName( 50) = "Mean CA for cloud type 3 = Stratus,liquid"
  longName( 51) = "Mean PC for cloud type 3 = Stratus,liquid"
  longName( 52) = "Mean TC for cloud type 3 = Stratus,liquid"
  longName( 53) = "Mean TAU for cloud type 3 = Stratus,liquid"
  longName( 54) = "Mean WP for cloud type 3 = Stratus,liquid"
  longName( 55) = "Mean CA for cloud type 4 = Cumulus,ice"
  longName( 56) = "Mean PC for cloud type 4 = Cumulus,ice"
  longName( 57) = "Mean TC for cloud type 4 = Cumulus,ice"
  longName( 58) = "Mean TAU for cloud type 4 = Cumulus,ice"
  longName( 59) = "Mean WP for cloud type 4 = Cumulus,ice"
  longName( 60) = "Mean CA for cloud type 5 = Stratocumulus,ice"
  longName( 61) = "Mean PC for cloud type 5 = Stratocumulus,ice"
  longName( 62) = "Mean TC for cloud type 5 = Stratocumulus,ice"
  longName( 63) = "Mean TAU for cloud type 5 = Stratocumulus,ice"
  longName( 64) = "Mean WP for cloud type 5 = Stratocumulus,ice"
  longName( 65) = "Mean CA for cloud type 6 = Stratus,ice"
  longName( 66) = "Mean PC for cloud type 6 = Stratus,ice"
  longName( 67) = "Mean TC for cloud type 6 = Stratus,ice"
  longName( 68) = "Mean TAU for cloud type 6 = Stratus,ice"
  longName( 69) = "Mean WP for cloud type 6 = Stratus,ice"

  units( 40: 65:5) = "%"
  units( 41: 66:5) = "mb"
  units( 42: 67:5) = "K"
  units( 43: 68:5) = ""
  units( 44: 69:5) = "g/m2"

  comment(40:69)   = "VIS/IR/NIR LOW cloud type (vis-adjusted TC)"
  daytime(40:69)   = "d variable: defined for local daytime: undefined at night"

;----------------------------------------------------------------------------- 
; MIDDLE cloud types (VIS-adjusted TC) 
;----------------------------------------------------------------------------- 
  varName(  70) = "CA_AC_Liquid"
  varName(  71) = "PC_AC_Liquid"
  varName(  72) = "TC_AC_Liquid"
  varName(  73) = "TAU_AC_Liquid"
  varName(  74) = "WP_AC_Liquid"
  varName(  75) = "CA_AS_Liquid"
  varName(  76) = "PC_AS_Liquid"
  varName(  77) = "TC_AS_Liquid"
  varName(  78) = "TAU_AS_Liquid"
  varName(  79) = "WP_AS_Liquid"
  varName(  80) = "CA_NS_Liquid"
  varName(  81) = "PC_NS_Liquid"
  varName(  82) = "TC_NS_Liquid"
  varName(  83) = "TAU_NS_Liquid"
  varName(  84) = "WP_NS_Liquid"
  varName(  85) = "CA_AC_Ice"
  varName(  86) = "PC_AC_Ice"
  varName(  87) = "TC_AC_Ice"
  varName(  88) = "TAU_AC_Ice"
  varName(  89) = "WP_AC_Ice"
  varName(  90) = "CA_AS_Ice"
  varName(  91) = "PC_AS_Ice"
  varName(  92) = "TC_AS_Ice"
  varName(  93) = "TAU_AS_Ice"
  varName(  94) = "WP_AS_Ice"
  varName(  95) = "CA_NS_Ice"
  varName(  96) = "PC_NS_Ice"
  varName(  97) = "TC_NS_Ice"
  varName(  98) = "TAU_NS_Ice"
  varName(  99) = "WP_NS_Ice"

  longName( 70) = "Mean CA for cloud type 7 = Altocumulus,liquid"
  longName( 71) = "Mean PC for cloud type 7 = Altocumulus,liquid"
  longName( 72) = "Mean TC for cloud type 7 = Altocumulus,liquid"
  longName( 73) = "Mean TAU for cloud type 7 = Altocumulus,liquid"
  longName( 74) = "Mean WP for cloud type 7 = Altocumulus,liquid"
  longName( 75) = "Mean CA for cloud type 8 = Altostratus,liquid"
  longName( 76) = "Mean PC for cloud type 8 = Altostratus,liquid"
  longName( 77) = "Mean TC for cloud type 8 = Altostratus,liquid"
  longName( 78) = "Mean TAU for cloud type 8 = Altostratus,liquid"
  longName( 79) = "Mean WP for cloud type 8 = Altostratus,liquid"
  longName( 80) = "Mean CA for cloud type 9 = Nimbostratus,liquid"
  longName( 81) = "Mean PC for cloud type 9 = Nimbostratus,liquid"
  longName( 82) = "Mean TC for cloud type 9 = Nimbostratus,liquid"
  longName( 83) = "Mean TAU for cloud type 9 = Nimbostratus,liquid"
  longName( 84) = "Mean WP for cloud type 9 = Nimbostratus,liquid"
  longName( 85) = "Mean CA for cloud type 10 = Altocumulus,ice"
  longName( 86) = "Mean PC for cloud type 10 = Altocumulus,ice"
  longName( 87) = "Mean TC for cloud type 10 = Altocumulus,ice"
  longName( 88) = "Mean TAU for cloud type 10 = Altocumulus,ice"
  longName( 89) = "Mean WP for cloud type 10 = Altocumulus,ice"
  longName( 90) = "Mean CA for cloud type 11 = Altostratus,ice"
  longName( 91) = "Mean PC for cloud type 11 = Altostratus,ice"
  longName( 92) = "Mean TC for cloud type 11 = Altostratus,ice"
  longName( 93) = "Mean TAU for cloud type 11 = Altostratus,ice"
  longName( 94) = "Mean WP for cloud type 11 = Altostratus,ice"
  longName( 95) = "Mean CA for cloud type 12 = Nimbostratus,ice"
  longName( 96) = "Mean PC for cloud type 12 = Nimbostratus,ice"
  longName( 97) = "Mean TC for cloud type 12 = Nimbostratus,ice"
  longName( 98) = "Mean TAU for cloud type 12 = Nimbostratus,ice"
  longName( 99) = "Mean WP for cloud type 12 = Nimbostratus,ice"

  units( 70: 95:5) = "%"
  units( 71: 96:5) = "mb"
  units( 72: 97:5) = "K"
  units( 73: 98:5) = ""
  units( 74: 99:5) = "g/m2"

  comment(70:99)   = "VIS/IR/NIR MIDDLE cloud type (VIS-adjusted TC)"
  daytime(70:99)   = "d variable: defined for local daytime: undefined at night"

;----------------------------------------------------------------------------- 
; HIGH cloud types (VIS-adjusted TC)  
;----------------------------------------------------------------------------- 
  varName( 100) = "CA_CI"
  varName( 101) = "PC_CI"
  varName( 102) = "TC_CI"
  varName( 103) = "TAU_CI"
  varName( 104) = "WP_CI"
  varName( 105) = "CA_CIS"
  varName( 106) = "PC_CIS"
  varName( 107) = "TC_CIS"
  varName( 108) = "TAU_CIS"
  varName( 109) = "WP_CIS"
  varName( 110) = "CA_DC"
  varName( 111) = "PC_DC"
  varName( 112) = "TC_DC"
  varName( 113) = "TAU_DC"
  varName( 114) = "WP_DC"

  longName(100) = "Mean CA for cloud type 13 = Cirrus" 
  longName(101) = "Mean PC for cloud type 13 = Cirrus"
  longName(102) = "Mean TC for cloud type 13 = Cirrus"
  longName(103) = "Mean TAU for cloud type 13 = Cirrus"
  longName(104) = "Mean WP for cloud type 13 = Cirrus"
  longName(105) = "Mean CA for cloud type 14 = Cirrostratus"
  longName(106) = "Mean PC for cloud type 14 = Cirrostratus"
  longName(107) = "Mean TC for cloud type 14 = Cirrostratus"
  longName(108) = "Mean TAU for cloud type 14 = Cirrostratus"
  longName(109) = "Mean WP for cloud type 14 = Cirrostratus"
  longName(110) = "Mean CA for cloud type 15 = Deep convective"
  longName(111) = "Mean PC for cloud type 15 = Deep convective"
  longName(112) = "Mean TC for cloud type 15 = Deep convective"
  longName(113) = "Mean TAU for cloud type 15 = Deep convective"
  longName(114) = "Mean WP for cloud type 15 = Deep convective"

  units(100:110:5) = "%"
  units(101:111:5) = "mb"
  units(102:112:5) = "K"
  units(103:113:5) = ""
  units(104:114:5) = "g/m2"

  comment(100:114) = "VIS/IR/NIR HIGH cloud type (VIS-adjusted TC)" 
  daytime(100:114) = "d variable: defined for local daytime: undefined at night"

;----------------------------------------------------------------------------- 
; Mean surface skin temperature (TS)  
;----------------------------------------------------------------------------- 
  varName( 115) = "TS"
  varName( 116) = "TS_Sd_Space"

  longName(115) = "Mean TS from clear sky composite"
  longName(116) = "Standard deviation over space"

  units(115:116)   = "K"
  comment(115:116) = "TS: Mean surface skin temperature" 

;----------------------------------------------------------------------------- 
; Mean surface reflectance (RS)  
;----------------------------------------------------------------------------- 
  varName( 117) = "RS"
  longName(117) = "Mean RS from clear sky composite"

  units(117)    = ""
  comment(117)  = "RS: Mean surface visible reflectance"

;----------------------------------------------------------------------------- 
; Snow/Ice cover 
;-----------------------------------------------------------------------------
  varName( 118) = "SI_Cover"
  longName(118) = "Mean snow/ice amount"
  units(118)    = "%"
  comment(118)  = "Snow/Ice cover"

;--------------------------------------------------------------------- 
; TOVS atmospheric information 
;--------------------------------------------------------------------- 
  varName( 119) = "PS_TOVS"
  longName(119) = "TOVS: Mean Surface pressure"
  units(119)    = "mb"
  
  varName( 120) = "TSA_TOVS"
  varName( 121) = "T740_TOVS"
  varName( 122) = "T500_TOVS"
  varName( 123) = "T375_TOVS"

  longName(120) = "TOVS: Mean Near-surface air temperature"
  longName(121) = "TOVS: Mean Temperature at 740 mb"
  longName(122) = "TOVS: Mean Temperature at 500 mb"
  longName(123) = "TOVS: Mean Temperature at 375 mb"
  units(120:123)= "K"

  varName( 124) = "PT_TOVS"
  varName( 125) = "TT_TOVS"
  varName( 126) = "T50_TOVS"
  varName( 127) = "PW_Low_TOVS"
  varName( 128) = "PW_Mid_TOVS"
  varName( 129) = "O3_TOVS"

  longName(124) = "Mean Tropopause pressure"
  units(124)    = "mb"
  longName(125) = "Mean Tropopause temperature"
  units(125)    = "K"
  longName(126) = "Mean Stratosphere temperature at 50 mb"
  units(126)    = "K"
  longName(127) = "Mean Precipitable water for 1000-680 mb"
  longName(128) = "Mean Precipitable water for 680-310 mb"
  units(127:128)= "cm"
  longName(129) = "Mean Ozone abundance"
  units(129)    = "Dobson"

  comment(124:129) = "TOVS: TIROS Operational Vertical Sounder"

  if (flag.eq.0) then
      return (varName)
  end if
  if (flag.eq.1) then
      return (longName)
  end if
  if (flag.eq.2) then
      return (units)
  end if
  if (flag.eq.3) then
      return (comment)
  end if
  if (flag.eq.4) then
      return (daytime)
  end if

end