OB.DAAC Logo
NASA Logo
Ocean Color Science Software

ocssw V2022
atrem_tpvmr_init.f
Go to the documentation of this file.
1 
2 ********************************************************************************
3 * *
4 * Name: TPVMR_INIT *
5 * Purpose: Initializes atmospheric temperature, pressure, and water vapor *
6 * volume mixing ratio (ppmv) profiles. *
7 * 1 = tropical *
8 * 2 = mid latitude summer *
9 * 3 = mid latitude winter *
10 * 4 = subarctic summer *
11 * 5 = subarctic winter *
12 * 6 = US standard 1976 *
13 * 7 = User input model atmosphere. Initially set to *
14 * US standard 62. A user should modify this initial *
15 * setting by his/her own model atmosphere *
16 * *
17 * An atmospheric model contains height (km), temperature (K), *
18 * pressure (mbar), and water vapor volume mixing ratio (ppmv) *
19 * at layer boundaries. The number of layer boundaries is *
20 * specified at the beginning of the model. *
21 * Parameters: none *
22 * Globals used: none *
23 * Global output: TPVMR - a two dimensional array containing the values for *
24 * six standard atmospheric models. *
25 * Return Codes: none *
26 * Special Considerations: None *
27 * *
28 ********************************************************************************
29  BLOCK DATA tpvmr_init
30 
31  dimension tpvmr(7,81)
32 
33  COMMON /tpvmr_init1/ tpvmr
34 
35 C Tropical model
36  DATA (tpvmr(1,i),i=1,81)/
37  & 20.0,
38  & 0.0, 1.013e+03, 299.700, 2.593e+04,
39  & 1.0, 9.040e+02, 293.700, 1.949e+04,
40  & 2.0, 8.050e+02, 287.700, 1.534e+04,
41  & 3.0, 7.150e+02, 283.700, 8.600e+03,
42  & 4.0, 6.330e+02, 277.000, 4.441e+03,
43  & 5.0, 5.590e+02, 270.300, 3.346e+03,
44  & 6.0, 4.920e+02, 263.600, 2.101e+03,
45  & 7.0, 4.320e+02, 257.000, 1.289e+03,
46  & 8.0, 3.780e+02, 250.300, 7.637e+02,
47  & 10.0, 2.860e+02, 237.000, 1.912e+02,
48  & 12.0, 2.130e+02, 223.600, 2.905e+01,
49  & 14.0, 1.560e+02, 210.300, 6.220e+00,
50  & 17.0, 9.370e+01, 194.800, 2.900e+00,
51  & 20.0, 5.650e+01, 206.700, 2.600e+00,
52  & 25.0, 2.570e+01, 221.400, 3.250e+00,
53  & 30.0, 1.220e+01, 232.300, 4.000e+00,
54  & 40.0, 3.050e+00, 254.000, 5.200e+00,
55  & 50.0, 8.540e-01, 270.200, 6.000e+00,
56  & 70.0, 5.800e-02, 218.900, 4.500e+00,
57  & 100.0, 2.890e-04, 190.700, 4.000e-01/
58 
59 
60 C Mid latitude summer model
61  DATA (tpvmr(2,i),i=1,81)/
62  & 20.0,
63  & 0.0, 1.013e+03, 294.200, 1.876e+04,
64  & 1.0, 9.020e+02, 289.700, 1.378e+04,
65  & 2.0, 8.020e+02, 285.200, 9.680e+03,
66  & 3.0, 7.100e+02, 279.200, 5.984e+03,
67  & 4.0, 6.280e+02, 273.200, 3.813e+03,
68  & 5.0, 5.540e+02, 267.200, 2.225e+03,
69  & 6.0, 4.870e+02, 261.200, 1.510e+03,
70  & 7.0, 4.260e+02, 254.700, 1.020e+03,
71  & 8.0, 3.720e+02, 248.200, 6.464e+02,
72  & 10.0, 2.810e+02, 235.300, 2.472e+02,
73  & 12.0, 2.090e+02, 222.300, 2.944e+01,
74  & 14.0, 1.530e+02, 215.700, 5.000e+00,
75  & 17.0, 9.500e+01, 215.700, 3.200e+00,
76  & 20.0, 5.950e+01, 219.200, 3.300e+00,
77  & 25.0, 2.770e+01, 225.100, 4.200e+00,
78  & 30.0, 1.320e+01, 233.700, 4.700e+00,
79  & 40.0, 3.330e+00, 257.500, 5.100e+00,
80  & 50.0, 9.510e-01, 275.700, 5.500e+00,
81  & 70.0, 6.700e-02, 218.100, 3.700e+00,
82  & 100.0, 2.580e-04, 190.500, 4.000e-01/
83 
84 
85 C Mid latitude winter model
86  DATA (tpvmr(3,i),i=1,81)/
87  & 20.0,
88  & 0.0, 1.018e+03, 272.200, 4.316e+03,
89  & 1.0, 8.973e+02, 268.700, 3.454e+03,
90  & 2.0, 7.897e+02, 265.200, 2.788e+03,
91  & 3.0, 6.938e+02, 261.700, 2.088e+03,
92  & 4.0, 6.081e+02, 255.700, 1.280e+03,
93  & 5.0, 5.313e+02, 249.700, 8.241e+02,
94  & 6.0, 4.627e+02, 243.700, 5.103e+02,
95  & 7.0, 4.016e+02, 237.700, 2.321e+02,
96  & 8.0, 3.473e+02, 231.700, 1.077e+02,
97  & 10.0, 2.568e+02, 219.700, 2.960e+01,
98  & 12.0, 1.882e+02, 218.700, 6.000e+00,
99  & 14.0, 1.378e+02, 217.700, 4.800e+00,
100  & 17.0, 8.610e+01, 216.200, 4.500e+00,
101  & 20.0, 5.370e+01, 215.200, 4.500e+00,
102  & 25.0, 2.440e+01, 215.200, 4.650e+00,
103  & 30.0, 1.110e+01, 217.400, 4.750e+00,
104  & 40.0, 2.530e+00, 243.200, 4.950e+00,
105  & 50.0, 6.830e-01, 265.700, 4.950e+00,
106  & 70.0, 4.700e-02, 230.700, 3.300e+00,
107  & 100.0, 4.074e-04, 218.600, 4.000e-01/
108 
109 
110 C Subarctic summer model
111  DATA (tpvmr(4,i),i=1,81)/
112  & 20.0,
113  & 0.0, 1.010e+03, 287.200, 1.194e+04,
114  & 1.0, 8.960e+02, 281.700, 8.701e+03,
115  & 2.0, 7.929e+02, 276.300, 6.750e+03,
116  & 3.0, 7.000e+02, 270.900, 4.820e+03,
117  & 4.0, 6.160e+02, 265.500, 3.380e+03,
118  & 5.0, 5.410e+02, 260.100, 2.218e+03,
119  & 6.0, 4.740e+02, 253.100, 1.330e+03,
120  & 7.0, 4.130e+02, 246.100, 7.971e+02,
121  & 8.0, 3.590e+02, 239.200, 3.996e+02,
122  & 10.0, 2.677e+02, 225.200, 4.240e+01,
123  & 12.0, 1.977e+02, 225.200, 6.000e+00,
124  & 14.0, 1.460e+02, 225.200, 4.000e+00,
125  & 17.0, 9.280e+01, 225.200, 4.050e+00,
126  & 20.0, 5.900e+01, 225.200, 4.600e+00,
127  & 25.0, 2.780e+01, 228.100, 4.900e+00,
128  & 30.0, 1.340e+01, 235.100, 5.000e+00,
129  & 40.0, 3.400e+00, 262.100, 5.000e+00,
130  & 50.0, 9.870e-01, 277.200, 4.950e+00,
131  & 70.0, 7.100e-02, 216.600, 3.300e+00,
132  & 100.0, 2.480e-04, 190.400, 4.000e-01/
133 
134 
135 C Subarctic winter model
136  DATA (tpvmr(5,i),i=1,81)/
137  & 20.0,
138  & 0.0, 1.013e+03, 257.200, 1.405e+03,
139  & 1.0, 8.878e+02, 259.100, 1.615e+03,
140  & 2.0, 7.775e+02, 255.900, 1.427e+03,
141  & 3.0, 6.798e+02, 252.700, 1.166e+03,
142  & 4.0, 5.932e+02, 247.700, 7.898e+02,
143  & 5.0, 5.158e+02, 240.900, 4.309e+02,
144  & 6.0, 4.467e+02, 234.100, 2.369e+02,
145  & 7.0, 3.853e+02, 227.300, 1.470e+02,
146  & 8.0, 3.308e+02, 220.600, 3.384e+01,
147  & 10.0, 2.418e+02, 217.200, 2.000e+01,
148  & 12.0, 1.766e+02, 217.200, 6.000e+00,
149  & 14.0, 1.291e+02, 217.200, 4.500e+00,
150  & 17.0, 8.058e+01, 216.000, 4.650e+00,
151  & 20.0, 5.014e+01, 214.200, 4.800e+00,
152  & 25.0, 2.256e+01, 211.200, 5.000e+00,
153  & 30.0, 1.020e+01, 216.000, 5.000e+00,
154  & 40.0, 2.243e+00, 234.700, 5.000e+00,
155  & 50.0, 5.719e-01, 259.300, 4.950e+00,
156  & 70.0, 4.000e-02, 245.400, 3.300e+00,
157  & 100.0, 4.230e-04, 218.500, 4.000e-01/
158 
159 
160 C US standard 1976 model
161  DATA (tpvmr(6,i),i=1,81)/
162  & 20.0,
163  & 0.0, 1.013e+03, 288.200, 7.745e+03,
164  & 1.0, 8.986e+02, 281.700, 6.071e+03,
165  & 2.0, 7.950e+02, 275.200, 4.631e+03,
166  & 3.0, 7.012e+02, 268.700, 3.182e+03,
167  & 4.0, 6.166e+02, 262.200, 2.158e+03,
168  & 5.0, 5.405e+02, 255.700, 1.397e+03,
169  & 6.0, 4.722e+02, 249.200, 9.254e+02,
170  & 7.0, 4.111e+02, 242.700, 5.720e+02,
171  & 8.0, 3.565e+02, 236.200, 3.667e+02,
172  & 10.0, 2.650e+02, 223.300, 6.996e+01,
173  & 12.0, 1.940e+02, 216.700, 1.906e+01,
174  & 14.0, 1.417e+02, 216.700, 5.927e+00,
175  & 17.0, 8.850e+01, 216.700, 3.850e+00,
176  & 20.0, 5.529e+01, 216.700, 3.900e+00,
177  & 25.0, 2.549e+01, 221.600, 4.425e+00,
178  & 30.0, 1.197e+01, 226.500, 4.725e+00,
179  & 40.0, 2.871e+00, 250.400, 5.025e+00,
180  & 50.0, 7.978e-01, 270.700, 5.225e+00,
181  & 70.0, 5.520e-02, 219.600, 3.500e+00,
182  & 100.0, 3.200e-04, 195.100, 4.000e-01/
183 
184 
185 C Model 7: User model. Initially was set to the US standard 1976 model.
186 C A user should modify this initial setting by his/her own
187 C atmospheric model (possibly from radiosonde measurements).
188 C The model atmosphere should have no more than 20 layer boundaries.
189 C The units are: height (km), temperature (K), pressure (mbar),
190 C and water vapor mixing ratio (ppmv).
191  DATA (tpvmr(7,i),i=1,81)/
192  & 20.0,
193  & 0.0, 1.013e+03, 288.200, 7.745e+03,
194  & 1.0, 8.986e+02, 281.700, 6.071e+03,
195  & 2.0, 7.950e+02, 275.200, 4.631e+03,
196  & 3.0, 7.012e+02, 268.700, 3.182e+03,
197  & 4.0, 6.166e+02, 262.200, 2.158e+03,
198  & 5.0, 5.405e+02, 255.700, 1.397e+03,
199  & 6.0, 4.722e+02, 249.200, 9.254e+02,
200  & 7.0, 4.111e+02, 242.700, 5.720e+02,
201  & 8.0, 3.565e+02, 236.200, 3.667e+02,
202  & 10.0, 2.650e+02, 223.300, 6.996e+01,
203  & 12.0, 1.940e+02, 216.700, 1.906e+01,
204  & 14.0, 1.417e+02, 216.700, 5.927e+00,
205  & 17.0, 8.850e+01, 216.700, 3.850e+00,
206  & 20.0, 5.529e+01, 216.700, 3.900e+00,
207  & 25.0, 2.549e+01, 221.600, 4.425e+00,
208  & 30.0, 1.197e+01, 226.500, 4.725e+00,
209  & 40.0, 2.871e+00, 250.400, 5.025e+00,
210  & 50.0, 7.978e-01, 270.700, 5.225e+00,
211  & 70.0, 5.520e-02, 219.600, 3.500e+00,
212  & 100.0, 3.200e-04, 195.100, 4.000e-01/
213 
214  END