NCEPLIBS-w3emc 2.12.0
Loading...
Searching...
No Matches
idsdef.f
Go to the documentation of this file.
1C> @file
2C> @brief Sets decimal scalings defaults for various parameters.
3C> @author Mark Iredell @date 1992-10-31
4
5C> Sets decimal scalings defaults for various parameters.
6C> A decimal scaling of -3 means data is packed in kilo-si units.
7C>
8C> Program history log:
9C> - Mark Iredell 1992-10-31
10C>
11C> @param[in] IPTV parameter table version (only 1 or 2 is recognized).
12C> @param[out] IDS integer (255) decimal scalings
13C> (unknown decimal scalings will not be set).
14C>
15C> @author Mark Iredell @date 1992-10-31
16 SUBROUTINE idsdef(IPTV,IDS)
17 dimension ids(255)
18C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
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
276C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
277 RETURN
278 END
idsdef
subroutine idsdef(iptv, ids)
Sets decimal scalings defaults for various parameters.
Definition idsdef.f:17