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