ungrib/src/ngl/w3/idsdef.f

   1       SUBROUTINE IDSDEF(IPTV,IDS)
   2 C$$$  SUBPROGRAM DOCUMENTATION BLOCK
   3 C
   4 C SUBPROGRAM: IDSDEF         SETS DEFAULT DECIMAL SCALINGS
   5 C   PRGMMR: IREDELL          ORG: W/NMC23     DATE: 92-10-31
   6 C
   7 C ABSTRACT: SETS DECIMAL SCALINGS DEFAULTS FOR VARIOUS PARAMETERS.
   8 C   A DECIMAL SCALING OF -3 MEANS DATA IS PACKED IN KILO-SI UNITS.
   9 C
  10 C PROGRAM HISTORY LOG:
  11 C   92-10-31  IREDELL
  12 C
  13 C USAGE:    CALL IDSDEF(IPTV,IDS)
  14 C   INPUT ARGUMENTS:
  15 C     IPTV         PARAMTER TABLE VERSION (ONLY 1 OR 2 IS RECOGNIZED)
  16 C   OUTPUT ARGUMENTS:
  17 C     IDS          INTEGER (255) DECIMAL SCALINGS
  18 C                  (UNKNOWN DECIMAL SCALINGS WILL NOT BE SET)
  19 C
  20 C ATTRIBUTES:
  21 C   LANGUAGE: CRAY FORTRAN
  22 C
  23 C$$$
  24       DIMENSION IDS(255)
  25 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  26       IF(IPTV.EQ.1.OR.IPTV.EQ.2) THEN
  27         IDS(001)=-1     ! PRESSURE (PA)
  28         IDS(002)=-1     ! SEA-LEVEL PRESSURE (PA)
  29         IDS(003)=3      ! PRESSURE TENDENCY (PA/S)
  30                         !
  31                         !
  32         IDS(006)=-1     ! GEOPOTENTIAL (M2/S2)
  33         IDS(007)=0      ! GEOPOTENTIAL HEIGHT (M)
  34         IDS(008)=0      ! GEOMETRIC HEIGHT (M)
  35         IDS(009)=0      ! STANDARD DEVIATION OF HEIGHT (M)
  36                         !
  37         IDS(011)=1      ! TEMPERATURE (K)
  38         IDS(012)=1      ! VIRTUAL TEMPERATURE (K)
  39         IDS(013)=1      ! POTENTIAL TEMPERATURE (K)
  40         IDS(014)=1      ! PSEUDO-ADIABATIC POTENTIAL TEMPERATURE (K)
  41         IDS(015)=1      ! MAXIMUM TEMPERATURE (K)
  42         IDS(016)=1      ! MINIMUM TEMPERATURE (K)
  43         IDS(017)=1      ! DEWPOINT TEMPERATURE (K)
  44         IDS(018)=1      ! DEWPOINT DEPRESSION (K)
  45         IDS(019)=4      ! TEMPERATURE LAPSE RATE (K/M)
  46         IDS(020)=0      ! VISIBILITY (M)
  47                         ! RADAR SPECTRA 1 ()
  48                         ! RADAR SPECTRA 2 ()
  49                         ! RADAR SPECTRA 3 ()
  50                         !
  51         IDS(025)=1      ! TEMPERATURE ANOMALY (K)
  52         IDS(026)=-1     ! PRESSURE ANOMALY (PA)
  53         IDS(027)=0      ! GEOPOTENTIAL HEIGHT ANOMALY (M)
  54                         ! WAVE SPECTRA 1 ()
  55                         ! WAVE SPECTRA 2 ()
  56                         ! WAVE SPECTRA 3 ()
  57         IDS(031)=0      ! WIND DIRECTION (DEGREES)
  58         IDS(032)=1      ! WIND SPEED (M/S)
  59         IDS(033)=1      ! ZONAL WIND (M/S)
  60         IDS(034)=1      ! MERIDIONAL WIND (M/S)
  61         IDS(035)=-4     ! STREAMFUNCTION (M2/S)
  62         IDS(036)=-4     ! VELOCITY POTENTIAL (M2/S)
  63         IDS(037)=-1     ! MONTGOMERY STREAM FUNCTION (M2/S2)
  64         IDS(038)=8      ! SIGMA VERTICAL VELOCITY (1/S)
  65         IDS(039)=3      ! PRESSURE VERTICAL VELOCITY (PA/S)
  66         IDS(040)=4      ! GEOMETRIC VERTICAL VELOCITY (M/S)
  67         IDS(041)=6      ! ABSOLUTE VORTICITY (1/S)
  68         IDS(042)=6      ! ABSOLUTE DIVERGENCE (1/S)
  69         IDS(043)=6      ! RELATIVE VORTICITY (1/S)
  70         IDS(044)=6      ! RELATIVE DIVERGENCE (1/S)
  71         IDS(045)=4      ! VERTICAL U SHEAR (1/S)
  72         IDS(046)=4      ! VERTICAL V SHEAR (1/S)
  73         IDS(047)=0      ! DIRECTION OF CURRENT (DEGREES)
  74                         ! SPEED OF CURRENT (M/S)
  75                         ! U OF CURRENT (M/S)
  76                         ! V OF CURRENT (M/S)
  77         IDS(051)=4      ! SPECIFIC HUMIDITY (KG/KG)
  78         IDS(052)=0      ! RELATIVE HUMIDITY (PERCENT)
  79         IDS(053)=4      ! HUMIDITY MIXING RATIO (KG/KG)
  80         IDS(054)=1      ! PRECIPITABLE WATER (KG/M2)
  81         IDS(055)=-1     ! VAPOR PRESSURE (PA)
  82         IDS(056)=-1     ! SATURATION DEFICIT (PA)
  83         IDS(057)=1      ! EVAPORATION (KG/M2)
  84         IDS(058)=1      ! CLOUD ICE (KG/M2)
  85         IDS(059)=6      ! PRECIPITATION RATE (KG/M2/S)
  86         IDS(060)=0      ! THUNDERSTORM PROBABILITY (PERCENT)
  87         IDS(061)=1      ! TOTAL PRECIPITATION (KG/M2)
  88         IDS(062)=1      ! LARGE-SCALE PRECIPITATION (KG/M2)
  89         IDS(063)=1      ! CONVECTIVE PRECIPITATION (KG/M2)
  90         IDS(064)=6      ! WATER EQUIVALENT SNOWFALL RATE (KG/M2/S)
  91         IDS(065)=0      ! WATER EQUIVALENT OF SNOW DEPTH (KG/M2)
  92         IDS(066)=2      ! SNOW DEPTH (M)
  93                         ! MIXED-LAYER DEPTH (M)
  94                         ! TRANSIENT THERMOCLINE DEPTH (M)
  95                         ! MAIN THERMOCLINE DEPTH (M)
  96                         ! MAIN THERMOCLINE ANOMALY (M)
  97         IDS(071)=0      ! TOTAL CLOUD COVER (PERCENT)
  98         IDS(072)=0      ! CONVECTIVE CLOUD COVER (PERCENT)
  99         IDS(073)=0      ! LOW CLOUD COVER (PERCENT)
 100         IDS(074)=0      ! MIDDLE CLOUD COVER (PERCENT)
 101         IDS(075)=0      ! HIGH CLOUD COVER (PERCENT)
 102         IDS(076)=1      ! CLOUD WATER (KG/M2)
 103                         !
 104         IDS(078)=1      ! CONVECTIVE SNOW (KG/M2)
 105         IDS(079)=1      ! LARGE SCALE SNOW (KG/M2)
 106         IDS(080)=1      ! WATER TEMPERATURE (K)
 107         IDS(081)=0      ! SEA-LAND MASK ()
 108                         ! DEVIATION OF SEA LEVEL FROM MEAN (M)
 109         IDS(083)=5      ! ROUGHNESS (M)
 110         IDS(084)=1      ! ALBEDO (PERCENT)
 111         IDS(085)=1      ! SOIL TEMPERATURE (K)
 112         IDS(086)=0      ! SOIL WETNESS (KG/M2)
 113         IDS(087)=0      ! VEGETATION (PERCENT)
 114                         ! SALINITY (KG/KG)
 115         IDS(089)=4      ! DENSITY (KG/M3)
 116         IDS(090)=1      ! RUNOFF (KG/M2)
 117         IDS(091)=0      ! ICE CONCENTRATION ()
 118                         ! ICE THICKNESS (M)
 119         IDS(093)=0      ! DIRECTION OF ICE DRIFT (DEGREES)
 120                         ! SPEED OF ICE DRIFT (M/S)
 121                         ! U OF ICE DRIFT (M/S)
 122                         ! V OF ICE DRIFT (M/S)
 123                         ! ICE GROWTH (M)
 124                         ! ICE DIVERGENCE (1/S)
 125         IDS(099)=1      ! SNOW MELT (KG/M2)
 126                         ! SIG HEIGHT OF WAVES AND SWELL (M)
 127         IDS(101)=0      ! DIRECTION OF WIND WAVES (DEGREES)
 128                         ! SIG HEIGHT OF WIND WAVES (M)
 129                         ! MEAN PERIOD OF WIND WAVES (S)
 130         IDS(104)=0      ! DIRECTION OF SWELL WAVES (DEGREES)
 131                         ! SIG HEIGHT OF SWELL WAVES (M)
 132                         ! MEAN PERIOD OF SWELL WAVES (S)
 133         IDS(107)=0      ! PRIMARY WAVE DIRECTION (DEGREES)
 134                         ! PRIMARY WAVE MEAN PERIOD (S)
 135         IDS(109)=0      ! SECONDARY WAVE DIRECTION (DEGREES)
 136                         ! SECONDARY WAVE MEAN PERIOD (S)
 137         IDS(111)=0      ! NET SOLAR RADIATIVE FLUX AT SURFACE (W/M2)
 138         IDS(112)=0      ! NET LONGWAVE RADIATIVE FLUX AT SURFACE (W/M2)
 139         IDS(113)=0      ! NET SOLAR RADIATIVE FLUX AT TOP (W/M2)
 140         IDS(114)=0      ! NET LONGWAVE RADIATIVE FLUX AT TOP (W/M2)
 141         IDS(115)=0      ! NET LONGWAVE RADIATIVE FLUX (W/M2)
 142         IDS(116)=0      ! NET SOLAR RADIATIVE FLUX (W/M2)
 143         IDS(117)=0      ! TOTAL RADIATIVE FLUX (W/M2)
 144                         !
 145                         !
 146                         !
 147         IDS(121)=0      ! LATENT HEAT FLUX (W/M2)
 148         IDS(122)=0      ! SENSIBLE HEAT FLUX (W/M2)
 149         IDS(123)=0      ! BOUNDARY LAYER DISSIPATION (W/M2)
 150         IDS(124)=3      ! U WIND STRESS (N/M2)
 151         IDS(125)=3      ! V WIND STRESS (N/M2)
 152                         ! WIND MIXING ENERGY (J)
 153                         ! IMAGE DATA ()
 154         IDS(128)=-1     ! MEAN SEA-LEVEL PRESSURE (STDATM) (PA)
 155         IDS(129)=-1     ! MEAN SEA-LEVEL PRESSURE (MAPS) (PA)
 156         IDS(130)=-1     ! MEAN SEA-LEVEL PRESSURE (ETA) (PA)
 157         IDS(131)=1      ! SURFACE LIFTED INDEX (K)
 158         IDS(132)=1      ! BEST LIFTED INDEX (K)
 159         IDS(133)=1      ! K INDEX (K)
 160         IDS(134)=1      ! SWEAT INDEX (K)
 161         IDS(135)=10     ! HORIZONTAL MOISTURE DIVERGENCE (KG/KG/S)
 162         IDS(136)=4      ! SPEED SHEAR (1/S)
 163         IDS(137)=3      ! 3-HR PRESSURE TENDENCY (PA/S)
 164         IDS(138)=6      ! BRUNT-VAISALA FREQUENCY SQUARED (1/S2)
 165         IDS(139)=11     ! POTENTIAL VORTICITY (MASS-WEIGHTED) (1/S/M)
 166         IDS(140)=0      ! RAIN MASK ()
 167         IDS(141)=0      ! FREEZING RAIN MASK ()
 168         IDS(142)=0      ! ICE PELLETS MASK ()
 169         IDS(143)=0      ! SNOW MASK ()
 170         IDS(144)=3      ! VOLUMETRIC SOIL MOISTURE CONTENT (FRACTION)
 171         IDS(145)=0      ! POTENTIAL EVAPORATION RATE (W/M2)
 172         IDS(146)=0      ! CLOUD WORKFUNCTION (J/KG)
 173         IDS(147)=3      ! U GRAVITY WAVE STRESS (N/M2)
 174         IDS(148)=3      ! V GRAVITY WAVE STRESS (N/M2)
 175         IDS(149)=10     ! POTENTIAL VORTICITY (M2/S/KG)
 176                         ! COVARIANCE BETWEEN V AND U (M2/S2)
 177                         ! COVARIANCE BETWEEN U AND T (K*M/S)
 178                         ! COVARIANCE BETWEEN V AND T (K*M/S)
 179                         !
 180                         !
 181         IDS(155)=0      ! GROUND HEAT FLUX (W/M2)
 182         IDS(156)=0      ! CONVECTIVE INHIBITION (W/M2)
 183         IDS(157)=0      ! CONVECTIVE APE (J/KG)
 184         IDS(158)=0      ! TURBULENT KE (J/KG)
 185         IDS(159)=-1     ! CONDENSATION PRESSURE OF LIFTED PARCEL (PA)
 186         IDS(160)=0      ! CLEAR SKY UPWARD SOLAR FLUX (W/M2)
 187         IDS(161)=0      ! CLEAR SKY DOWNWARD SOLAR FLUX (W/M2)
 188         IDS(162)=0      ! CLEAR SKY UPWARD LONGWAVE FLUX (W/M2)
 189         IDS(163)=0      ! CLEAR SKY DOWNWARD LONGWAVE FLUX (W/M2)
 190         IDS(164)=0      ! CLOUD FORCING NET SOLAR FLUX (W/M2)
 191         IDS(165)=0      ! CLOUD FORCING NET LONGWAVE FLUX (W/M2)
 192         IDS(166)=0      ! VISIBLE BEAM DOWNWARD SOLAR FLUX (W/M2)
 193         IDS(167)=0      ! VISIBLE DIFFUSE DOWNWARD SOLAR FLUX (W/M2)
 194         IDS(168)=0      ! NEAR IR BEAM DOWNWARD SOLAR FLUX (W/M2)
 195         IDS(169)=0      ! NEAR IR DIFFUSE DOWNWARD SOLAR FLUX (W/M2)
 196                         !
 197                         !
 198         IDS(172)=3      ! MOMENTUM FLUX (N/M2)
 199         IDS(173)=0      ! MASS POINT MODEL SURFACE ()
 200         IDS(174)=0      ! VELOCITY POINT MODEL SURFACE ()
 201         IDS(175)=0      ! SIGMA LAYER NUMBER ()
 202         IDS(176)=2      ! LATITUDE (DEGREES)
 203         IDS(177)=2      ! EAST LONGITUDE (DEGREES)
 204                         !
 205                         !
 206                         !
 207         IDS(181)=9      ! X-GRADIENT LOG PRESSURE (1/M)
 208         IDS(182)=9      ! Y-GRADIENT LOG PRESSURE (1/M)
 209         IDS(183)=5      ! X-GRADIENT HEIGHT (M/M)
 210         IDS(184)=5      ! Y-GRADIENT HEIGHT (M/M)
 211                         !
 212                         !
 213                         !
 214                         !
 215                         !
 216                         !
 217                         !
 218                         !
 219                         !
 220                         !
 221                         !
 222                         !
 223                         !
 224                         !
 225                         !
 226                         !
 227         IDS(201)=0      ! ICE-FREE WATER SURCACE (PERCENT)
 228                         !
 229                         !
 230         IDS(204)=0      ! DOWNWARD SOLAR RADIATIVE FLUX (W/M2)
 231         IDS(205)=0      ! DOWNWARD LONGWAVE RADIATIVE FLUX (W/M2)
 232                         !
 233         IDS(207)=0      ! MOISTURE AVAILABILITY (PERCENT)
 234                         ! EXCHANGE COEFFICIENT (KG/M2/S)
 235         IDS(209)=0      ! NUMBER OF MIXED LAYER NEXT TO SFC ()
 236                         !
 237         IDS(211)=0      ! UPWARD SOLAR RADIATIVE FLUX (W/M2)
 238         IDS(212)=0      ! UPWARD LONGWAVE RADIATIVE FLUX (W/M2)
 239         IDS(213)=0      ! NON-CONVECTIVE CLOUD COVER (PERCENT)
 240         IDS(214)=6      ! CONVECTIVE PRECIPITATION RATE (KG/M2/S)
 241         IDS(215)=7      ! TOTAL DIABATIC HEATING RATE (K/S)
 242         IDS(216)=7      ! TOTAL RADIATIVE HEATING RATE (K/S)
 243         IDS(217)=7      ! TOTAL DIABATIC NONRADIATIVE HEATING RATE (K/S)
 244         IDS(218)=2      ! PRECIPITATION INDEX (FRACTION)
 245         IDS(219)=1      ! STD DEV OF IR T OVER 1X1 DEG AREA (K)
 246         IDS(220)=4      ! NATURAL LOG OF SURFACE PRESSURE OVER 1 KPA ()
 247                         !
 248         IDS(222)=0      ! 5-WAVE GEOPOTENTIAL HEIGHT (M)
 249         IDS(223)=1      ! PLANT CANOPY SURFACE WATER (KG/M2)
 250                         !
 251                         !
 252                         ! BLACKADARS MIXING LENGTH (M)
 253                         ! ASYMPTOTIC MIXING LENGTH (M)
 254         IDS(228)=1      ! POTENTIAL EVAPORATION (KG/M2)
 255         IDS(229)=0      ! SNOW PHASE-CHANGE HEAT FLUX (W/M2)
 256                         !
 257         IDS(231)=3      ! CONVECTIVE CLOUD MASS FLUX (PA/S)
 258         IDS(232)=0      ! DOWNWARD TOTAL RADIATION FLUX (W/M2)
 259         IDS(233)=0      ! UPWARD TOTAL RADIATION FLUX (W/M2)
 260         IDS(224)=1      ! BASEFLOW-GROUNDWATER RUNOFF (KG/M2)
 261         IDS(225)=1      ! STORM SURFACE RUNOFF (KG/M2)
 262                         !
 263                         !
 264         IDS(238)=0      ! SNOW COVER (PERCENT)
 265         IDS(239)=1      ! SNOW TEMPERATURE (K)
 266                         !
 267         IDS(241)=7      ! LARGE SCALE CONDENSATION HEATING RATE (K/S)
 268         IDS(242)=7      ! DEEP CONVECTIVE HEATING RATE (K/S)
 269         IDS(243)=10     ! DEEP CONVECTIVE MOISTENING RATE (KG/KG/S)
 270         IDS(244)=7      ! SHALLOW CONVECTIVE HEATING RATE (K/S)
 271         IDS(245)=10     ! SHALLOW CONVECTIVE MOISTENING RATE (KG/KG/S)
 272         IDS(246)=7      ! VERTICAL DIFFUSION HEATING RATE (KG/KG/S)
 273         IDS(247)=7      ! VERTICAL DIFFUSION ZONAL ACCELERATION (M/S/S)
 274         IDS(248)=7      ! VERTICAL DIFFUSION MERID ACCELERATION (M/S/S)
 275         IDS(249)=10     ! VERTICAL DIFFUSION MOISTENING RATE (KG/KG/S)
 276         IDS(250)=7      ! SOLAR RADIATIVE HEATING RATE (K/S)
 277         IDS(251)=7      ! LONGWAVE RADIATIVE HEATING RATE (K/S)
 278                         ! DRAG COEFFICIENT ()
 279                         ! FRICTION VELOCITY (M/S)
 280                         ! RICHARDSON NUMBER ()
 281                         !
 282       ENDIF
 283 C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 284       RETURN
 285       END