Page 1 Source Listing O3CLIM
2025-03-12 18:22 /tmp/ifort17m3lE.i
1 # 1 "O3CLIM.F"
2 C&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
3 SUBROUTINE O3CLIM
4 C ******************************************************************
5 C$$$ SUBPROGRAM DOCUMENTATION BLOCK
6 C . . .
7 C SUBPROGRAM: O3CLIM GENERATE SEASONAL OZONE DISTRIBUTION
8 C PRGRMMR: GFDL/CAMPANA ORG: W/NP22 DATE: ??-??-??
9 C
10 C ABSTRACT:
11 C O3CLIM COMPUTES THE SEASONAL CLIMATOLOGY OF OZONE USING
12 C 81-LAYER DATA FROM GFDL.
13 C
14 C PROGRAM HISTORY LOG:
15 C ??-??-?? GFDL/KC - ORIGINATOR
16 C 96-07-26 BLACK - MODIFIED FOR ETA MODEL
17 C 2019:05-02 EBISUZAKI - FIXED COMMON BLOCK AND EQUIVANCE FOR IFORT
18 C
19 C USAGE: CALL O3CLIM FROM SUBROUTINE RADTN
20 C INPUT ARGUMENT LIST:
21 C NONE
22 C
23 C OUTPUT ARGUMENT LIST:
24 C NONE
25 C
26 C OUTPUT FILES:
27 C NONE
28 C
29 C SUBPROGRAMS CALLED:
30 C
31 C UNIQUE:
32 C NONE
33 C
34 C LIBRARY:
35 C NONE
36 C
37 C COMMON BLOCKS: SEASO3
38 C O3DATA
39 C
40 C ATTRIBUTES:
41 C LANGUAGE: FORTRAN 90
42 C MACHINE : IBM SP
43 C$$$
44 C----------------------------------------------------------------------
45 P A R A M E T E R
46 & (NL=81,NLP1=NL+1,NLGTH=37*NL
47 &, NKK=41,NK=81,NKP=NK+1)
48 C----------------------------------------------------------------------
49 INCLUDE "SEASO3.comm"
50 # 1 "./sp.h" 1
51 # 4
52
53 # 50 "O3CLIM.F" 2
54 C----------------------------------------------------------------------
63 C O M M O N /O3DATA/
64 & PH(82), P(81), O3HI(10,25)
65 &,O3LO1(10,16),O3LO2(10,16),O3LO3(10,16),O3LO4(10,16)
Page 2 Source Listing O3CLIM
2025-03-12 18:22 O3CLIM.F
66 C----------------------------------------------------------------------
67 D I M E N S I O N
68 & PSTD(NL),TEMPN(19),O3O3(37,NL,4),O35DEG(37,NL)
69 &,XRAD1(NLGTH),XRAD2(NLGTH),XRAD3(NLGTH),XRAD4(NLGTH)
70 &,DDUO3N(19,NL),DUO3N(19,41)
71 &,RO3(10,41),RO3M(10,40),RO31(10,41),RO32(10,41)
72 &,O3HI1(10,16), O3HI2(10,9)
73 &,RSTD(81),RBAR(NL),RDATA(81)
74 &,PHALF(NL), PH1(45), PH2(37), P1(48), P2(33)
75
76 C----------------------------------------------------------------------
77 E Q U I V A L E N C E
78 & (O3HI1(1,1),O3HI(1,1)),(O3HI2(1,1),O3HI(1,17))
79 &,(PH1(1),PH(1)),(PH2(1),PH(46))
80 &,(P1(1),P(1)),(P2(1),P(49))
81 C----------------------------------------------------------------------
82 E Q U I V A L E N C E
83 & (XRAD1(1),XDUO3N(1,1),O3O3(1,1,1))
84 &,(XRAD2(1),XDO3N2(1,1))
85 &,(XRAD3(1),XDO3N3(1,1)),(XRAD4(1),XDO3N4(1,1))
86 C----------------------------------------------------------------------
87 C----------------------------------------------------------------------
88 C***
89 C*** COMPUTE DETAILED O3 PROFILE FROM THE ORIGINAL GFDL PRESSURES
90 C*** WHERE OUTPUT FROM O3INT (PSTD) IS TOP DOWN IN MB*1.E3
91 C*** AND PSFC=1013.25 MB ......K.A.C. DEC94
92 C***
93 DO K=1,NK
94 PH(K)=PH(K)*1013250.
95 P(K)=P(K)*1013250.
96 ENDDO
97 C
98 PH(NKP)=PH(NKP)*1013250.
99 C
100 DO K=1,NL
101 PSTD(K)=P(K)
102 ENDDO
103 C
104 DO K=1,25
105 DO N=1,10
106 RO31(N,K)=O3HI(N,K)
107 RO32(N,K)=O3HI(N,K)
108 ENDDO
109 ENDDO
110 C----------------------------------------------------------------------
111 DO 100 NCASE=1,4
112 C
113 C*** NCASE=1: SPRING (IN N.H.)
114 C*** NCASE=2: FALL (IN N.H.)
115 C*** NCASE=3: WINTER (IN N.H.)
116 C*** NCASE=4: SUMMER (IN N.H.)
117 C
118 IPLACE=2
119 IF(NCASE.EQ.2)IPLACE=4
120 IF(NCASE.EQ.3)IPLACE=1
121 IF(NCASE.EQ.4)IPLACE=3
122 C
Page 3 Source Listing O3CLIM
2025-03-12 18:22 O3CLIM.F
123 IF(NCASE.EQ.1.OR.NCASE.EQ.2)THEN
124 DO K=26,41
125 DO N=1,10
126 RO31(N,K)=O3LO1(N,K-25)
127 RO32(N,K)=O3LO2(N,K-25)
128 ENDDO
129 ENDDO
130 ENDIF
131 C
132 IF(NCASE.EQ.3.OR.NCASE.EQ.4)THEN
133 DO K=26,41
134 DO N=1,10
135 RO31(N,K)=O3LO3(N,K-25)
136 RO32(N,K)=O3LO4(N,K-25)
137 ENDDO
138 ENDDO
139 ENDIF
140 C
141 DO 25 KK=1,NKK
142 DO N=1,10
143 DUO3N(N,KK)=RO31(11-N,KK)
144 DUO3N(N+9,KK)=RO32(N,KK)
145 ENDDO
146 DUO3N(10,KK)=0.5*(RO31(1,KK)+RO32(1,KK))
147 25 CONTINUE
148 C
149 C***FOR NCASE=2 OR NCASE=4,REVERSE LATITUDE ARRANGEMENT OF CORR. SEASON
150 C
151 IF(NCASE.EQ.2.OR.NCASE.EQ.4)THEN
152 DO 50 KK=1,NKK
153 DO N=1,19
154 TEMPN(N)=DUO3N(20-N,KK)
155 ENDDO
156 DO N=1,19
157 DUO3N(N,KK)=TEMPN(N)
158 ENDDO
159 50 CONTINUE
160 ENDIF
161 C
162 C*** DUO3N NOW IS O3 PROFILE FOR APPROPRIATE SEASON AT STD PRESSURE
163 C*** LEVELS
164 C
165 C*** BEGIN LATITUDE (10 DEG) LOOP
166 C
167 DO 75 N=1,19
168 C
169 DO KK=1,NKK
170 RSTD(KK)=DUO3N(N,KK)
171 ENDDO
172 C
173 NKM=NK-1
174 NKMM=NK-3
175 C***
176 C*** BESSELS HALF-POINT INTERPOLATION FORMULA
177 C***
178 DO K=4,NKMM,2
179 KI=K/2
Page 4 Source Listing O3CLIM
2025-03-12 18:22 O3CLIM.F
180 RDATA(K)=0.5*(RSTD(KI)+RSTD(KI+1))-(RSTD(KI+2)-RSTD(KI+1)
181 1 -RSTD(KI)+RSTD(KI-1))/16.
182 ENDDO
183 C
184 RDATA(2)=0.5*(RSTD(2)+RSTD(1))
185 RDATA(NKM)=0.5*(RSTD(NKK)+RSTD(NKK-1))
186 C
187 C*** PUT UNCHANGED DATA INTO NEW ARRAY
188 C
189 DO K=1,NK,2
190 KQ=(K+1)/2
191 RDATA(K)=RSTD(KQ)
192 ENDDO
193 C
194 DO KK=1,NL
195 DDUO3N(N,KK)=RDATA(KK)*.01
196 ENDDO
197 C
198 75 CONTINUE
199 C
200 C*** END OF LATITUDE LOOP
201 C
202 C----------------------------------------------------------------------
203 C***
204 C*** CREATE 5 DEG OZONE QUANTITIES BY LINEAR INTERPOLATION OF
205 C*** 10 DEG VALUES
206 C***
207 DO 90 KK=1,NL
208 C
209 DO N=1,19
210 O35DEG(2*N-1,KK)=DDUO3N(N,KK)
211 ENDDO
212 C
213 DO N=1,18
214 O35DEG(2*N,KK)=0.5*(DDUO3N(N,KK)+DDUO3N(N+1,KK))
215 ENDDO
216 C
217 90 CONTINUE
218 C
219 DO JJ=1,37
220 DO KEN=1,NL
221 O3O3(JJ,KEN,IPLACE)=O35DEG(JJ,KEN)
222 ENDDO
223 ENDDO
224 C
225 100 CONTINUE
226 C----------------------------------------------------------------------
227 C*** END OF LOOP OVER CASES
228 C----------------------------------------------------------------------
229 C***
230 C*** AVERAGE CLIMATOLOGICAL VALUS OF O3 FROM 5 DEG LAT MEANS, SO THAT
231 C*** TIME AND SPACE INTERPOLATION WILL WORK (SEE SUBR OZON2D)
232 C***
233 DO I=1,NLGTH
234 AVG=0.25*(XRAD1(I)+XRAD2(I)+XRAD3(I)+XRAD4(I))
235 A1=0.5*(XRAD2(I)-XRAD4(I))
236 B1=0.5*(XRAD1(I)-XRAD3(I))
Page 5 Source Listing O3CLIM
2025-03-12 18:22 O3CLIM.F
237 B2=0.25*((XRAD1(I)+XRAD3(I))-(XRAD2(I)+XRAD4(I)))
238 XRAD1(I)=AVG
239 XRAD2(I)=A1
240 XRAD3(I)=B1
241 XRAD4(I)=B2
242 ENDDO
243 C***
244 C*** CONVERT GFDL PRESSURE (MICROBARS) TO PA
245 C***
246 DO N=1,NL
247 PRGFDL(N)=PSTD(N)*1.E-1
248 ENDDO
249 C
250 RETURN
251 END
ENTRY POINTS
Name
o3clim_
SYMBOL CROSS REFERENCE
Name Object Declared Type Bytes Dimen Elements Attributes References
100 Label 225 111
25 Label 147 141
50 Label 159 152
75 Label 198 167
90 Label 217 207
A1 Local 235 R(4) 4 scalar 235,239
AVG Local 234 R(4) 4 scalar 234,238
B1 Local 236 R(4) 4 scalar 236,240
B2 Local 237 R(4) 4 scalar 237,241
DDUO3N Local 70 R(4) 4 2 1539 195,210,214
DUO3N Local 70 R(4) 4 2 779 143,144,146,154,157,170
I Local 233 I(4) 4 scalar 233,234,235,236,237,238,239,240,24
1
IPLACE Local 118 I(4) 4 scalar 118,119,120,121,221
JJ Local 219 I(4) 4 scalar 219,221
K Local 93 I(4) 4 scalar 93,94,95,100,101,104,106,107,124,1
26,127,133,135,136,178,179,180,189
,190,191
KEN Local 220 I(4) 4 scalar 220,221
KI Local 179 I(4) 4 scalar 179,180,181
KK Local 141 I(4) 4 scalar 141,143,144,146,152,154,157,169,17
0,194,195,207,210,214
KQ Local 190 I(4) 4 scalar 190,191
N Local 105 I(4) 4 scalar 105,106,107,125,126,127,134,135,13
6,142,143,144,153,154,156,157,167,
170,195,209,210,213,214,246,247
NCASE Local 111 I(4) 4 scalar 111,119,120,121,123,132,151
NK Param 47 I(4) 4 scalar 47,93,173,174,189
NKK Param 47 I(4) 4 scalar 141,152,169,185
Page 6 Source Listing O3CLIM
2025-03-12 18:22 Symbol Table O3CLIM.F
Name Object Declared Type Bytes Dimen Elements Attributes References
NKM Local 173 I(4) 4 scalar 173,185
NKMM Local 174 I(4) 4 scalar 174,178
NKP Param 47 I(4) 4 scalar 98
NL Param 46 I(4) 4 scalar 46,58,60,68,70,73,74,100,194,207,2
20,246
NLGTH Param 46 I(4) 4 scalar 69,233
NLP1 Param 46 I(4) 4 scalar
O35DEG Local 68 R(4) 4 2 2997 210,214,221
O3CLIM Subr 3
O3DATA Common 63 4212
PHALF Local 74 R(4) 4 1 81
PSTD Local 68 R(4) 4 1 81 101,247
RBAR Local 73 R(4) 4 1 81
RDATA Local 73 R(4) 4 1 81 180,184,185,191,195
RO3 Local 71 R(4) 4 2 410
RO31 Local 71 R(4) 4 2 410 106,126,135,143,146
RO32 Local 71 R(4) 4 2 410 107,127,136,144,146
RO3M Local 71 R(4) 4 2 400
RSTD Local 73 R(4) 4 1 81 170,180,181,184,185,191
SEASO3 Common 56 48276 SAVE
TEMPN Local 68 R(4) 4 1 19 154,157
TYPE COMPONENTS/COMMON VARIABLES
Name Type Bytes Offset Dimen Elements Attributes References
O3HI R(4) 4 652 2 250 COM 106,107
O3HI1 R(4) 4 652 2 160 COM
O3HI2 R(4) 4 1292 2 90 COM
O3LO1 R(4) 4 1652 2 160 COM 126
O3LO2 R(4) 4 2292 2 160 COM 127
O3LO3 R(4) 4 2932 2 160 COM 135
O3LO4 R(4) 4 3572 2 160 COM 136
O3O3 R(4) 4 0 3 11988 COM 221
P R(4) 4 328 1 81 COM 95,101
P1 R(4) 4 328 1 48 COM
P2 R(4) 4 520 1 33 COM
PH R(4) 4 0 1 82 COM 94,98
PH1 R(4) 4 0 1 45 COM
PH2 R(4) 4 180 1 37 COM
PRGFDL R(4) 4 47952 1 81 COM 247
XDO3N2 R(4) 4 11988 2 2997 COM
XDO3N3 R(4) 4 23976 2 2997 COM
XDO3N4 R(4) 4 35964 2 2997 COM
XDUO3N R(4) 4 0 2 2997 COM
XRAD1 R(4) 4 0 1 2997 COM 234,236,237,238
XRAD2 R(4) 4 11988 1 2997 COM 234,235,237,239
XRAD3 R(4) 4 23976 1 2997 COM 234,236,237,240
XRAD4 R(4) 4 35964 1 2997 COM 234,235,237,241
Page 7 Source Listing O3CLIM
2025-03-12 18:22 O3CLIM.F
252 C*********************************************************************
253 BLOCK DATA O3GFDL
254 C*********************************************************************
255 C O M M O N /O3DATA/
256 & PH1(45),PH2(37),P1(48),P2(33),O3HI1(10,16),O3HI2(10,9)
257 &,O3LO1(10,16),O3LO2(10,16),O3LO3(10,16),O3LO4(10,16)
258 C---------------------------------------------------------------------
259 DATA PH1/ 0.,
260 1 0.1027246E-04, 0.1239831E-04, 0.1491845E-04, 0.1788053E-04,
261 2 0.2135032E-04, 0.2540162E-04, 0.3011718E-04, 0.3558949E-04,
262 3 0.4192172E-04, 0.4922875E-04, 0.5763817E-04, 0.6729146E-04,
263 4 0.7834518E-04, 0.9097232E-04, 0.1053635E-03, 0.1217288E-03,
264 5 0.1402989E-03, 0.1613270E-03, 0.1850904E-03, 0.2119495E-03,
265 6 0.2423836E-03, 0.2768980E-03, 0.3160017E-03, 0.3602623E-03,
266 7 0.4103126E-03, 0.4668569E-03, 0.5306792E-03, 0.6026516E-03,
267 8 0.6839018E-03, 0.7759249E-03, 0.8803303E-03, 0.9987843E-03,
268 9 0.1133178E-02, 0.1285955E-02, 0.1460360E-02, 0.1660001E-02,
269 o 0.1888764E-02, 0.2151165E-02, 0.2452466E-02, 0.2798806E-02,
270 1 0.3197345E-02, 0.3656456E-02, 0.4185934E-02, 0.4797257E-02/
271 DATA PH2/
272 1 0.5503893E-02, 0.6321654E-02, 0.7269144E-02, 0.8368272E-02,
273 2 0.9644873E-02, 0.1112946E-01, 0.1285810E-01, 0.1487354E-01,
274 3 0.1722643E-01, 0.1997696E-01, 0.2319670E-01, 0.2697093E-01,
275 4 0.3140135E-01, 0.3660952E-01, 0.4274090E-01, 0.4996992E-01,
276 5 0.5848471E-01, 0.6847525E-01, 0.8017242E-01, 0.9386772E-01,
277 6 0.1099026E 00, 0.1286765E 00, 0.1506574E 00, 0.1763932E 00,
278 7 0.2065253E 00, 0.2415209E 00, 0.2814823E 00, 0.3266369E 00,
279 8 0.3774861E 00, 0.4345638E 00, 0.4984375E 00, 0.5697097E 00,
280 9 0.6490189E 00, 0.7370409E 00, 0.8344896E 00, 0.9421190E 00,
281 o 0.1000000E 01/
282 DATA P1/
283 1 0.9300000E-05, 0.1129521E-04, 0.1360915E-04, 0.1635370E-04,
284 2 0.1954990E-04, 0.2331653E-04, 0.2767314E-04, 0.3277707E-04,
285 3 0.3864321E-04, 0.4547839E-04, 0.5328839E-04, 0.6234301E-04,
286 4 0.7263268E-04, 0.8450696E-04, 0.9793231E-04, 0.1133587E-03,
287 5 0.1307170E-03, 0.1505832E-03, 0.1728373E-03, 0.1982122E-03,
288 6 0.2266389E-03, 0.2592220E-03, 0.2957792E-03, 0.3376068E-03,
289 7 0.3844381E-03, 0.4379281E-03, 0.4976965E-03, 0.5658476E-03,
290 8 0.6418494E-03, 0.7287094E-03, 0.8261995E-03, 0.9380076E-03,
291 9 0.1063498E-02, 0.1207423E-02, 0.1369594E-02, 0.1557141E-02,
292 o 0.1769657E-02, 0.2015887E-02, 0.2295520E-02, 0.2620143E-02,
293 1 0.2989651E-02, 0.3419469E-02, 0.3909867E-02, 0.4481491E-02,
294 2 0.5135272E-02, 0.5898971E-02, 0.6774619E-02, 0.7799763E-02/
295 DATA P2/
296 1 0.8978218E-02, 0.1036103E-01, 0.1195488E-01, 0.1382957E-01,
297 2 0.1599631E-01, 0.1855114E-01, 0.2151235E-01, 0.2501293E-01,
298 3 0.2908220E-01, 0.3390544E-01, 0.3952926E-01, 0.4621349E-01,
299 4 0.5403168E-01, 0.6330472E-01, 0.7406807E-01, 0.8677983E-01,
300 5 0.1015345E 00, 0.1189603E 00, 0.1391863E 00, 0.1630739E 00,
301 6 0.1908004E 00, 0.2235461E 00, 0.2609410E 00, 0.3036404E 00,
302 7 0.3513750E 00, 0.4055375E 00, 0.4656677E 00, 0.5335132E 00,
303 8 0.6083618E 00, 0.6923932E 00, 0.7845676E 00, 0.8875882E 00,
304 9 0.1000000E 01/
305 DATA O3HI1/
306 1 .55,.50,.45,.45,.40,.35,.35,.30,.30,.30,
307 2 .55,.51,.46,.47,.42,.38,.37,.36,.35,.35,
308 3 .55,.53,.48,.49,.44,.42,.41,.40,.38,.38,
Page 8 Source Listing O3GFDL
2025-03-12 18:22 O3CLIM.F
309 4 .60,.55,.52,.52,.50,.47,.46,.44,.42,.41,
310 5 .65,.60,.55,.56,.53,.52,.50,.48,.45,.45,
311 6 .75,.65,.60,.60,.55,.55,.55,.50,.48,.47,
312 7 .80,.75,.75,.75,.70,.70,.65,.63,.60,.60,
313 8 .90,.85,.85,.80,.80,.75,.75,.74,.72,.71,
314 9 1.10,1.05,1.00,.90,.90,.90,.85,.83,.80,.80,
315 o 1.40,1.30,1.25,1.25,1.25,1.20,1.15,1.10,1.05,1.00,
316 1 1.7,1.7,1.6,1.6,1.6,1.6,1.6,1.6,1.5,1.5,
317 2 2.1,2.0,1.9,1.9,1.9,1.8,1.8,1.8,1.7,1.7,
318 3 2.4,2.3,2.2,2.2,2.2,2.1,2.1,2.1,2.0,2.0,
319 4 2.7,2.5,2.5,2.5,2.5,2.5,2.4,2.4,2.3,2.3,
320 5 2.9,2.8,2.7,2.7,2.7,2.7,2.7,2.7,2.6,2.6,
321 6 3.1,3.1,3.0,3.0,3.0,3.0,3.0,3.0,2.9,2.8/
322 DATA O3HI2/
323 1 3.3,3.4,3.4,3.6,3.7,3.9,4.0,4.1,4.0,3.8,
324 2 3.6,3.8,3.9,4.2,4.7,5.3,5.6,5.7,5.5,5.2,
325 3 4.1,4.3,4.7,5.2,6.0,6.7,7.0,6.8,6.4,6.2,
326 4 5.4,5.7,6.0,6.6,7.3,8.0,8.4,7.7,7.1,6.7,
327 5 6.7,6.8,7.0,7.6,8.3,10.0,9.6,8.2,7.5,7.2,
328 6 9.2,9.3,9.4,9.6,10.3,10.6,10.0,8.5,7.7,7.3,
329 7 12.6,12.1,12.0,12.1,11.7,11.0,10.0,8.6,7.8,7.4,
330 8 14.2,13.5,13.1,12.8,11.9,10.9,9.8,8.5,7.8,7.5,
331 9 14.3,14.0,13.4,12.7,11.6,10.6,9.3,8.4,7.6,7.3/
332 DATA O3LO1/
333 1 14.9,14.2,13.3,12.5,11.2,10.3,9.5,8.6,7.5,7.4,
334 2 14.5,14.1,13.0,11.8,10.5,9.8,9.2,7.9,7.4,7.4,
335 3 11.8,11.5,10.9,10.5,9.9,9.6,8.9,7.5,7.2,7.2,
336 4 7.3,7.7,7.8,8.4,8.4,8.5,7.9,7.4,7.1,7.1,
337 5 4.1,4.4,5.3,6.6,6.9,7.5,7.4,7.2,7.0,6.9,
338 6 1.8,1.9,2.5,3.3,4.5,5.8,6.3,6.3,6.4,6.1,
339 7 0.4,0.5,0.8,1.2,2.7,3.6,4.6,4.7,5.0,5.2,
340 8 .10,.15,.20,.50,1.4,2.1,3.0,3.2,3.5,3.9,
341 9 .07,.10,.12,.30,1.0,1.4,1.8,1.9,2.3,2.5,
342 o .06,.08,.10,.15,.60,.80,1.4,1.5,1.5,1.6,
343 1 .05,.05,.06,.09,.20,.40,.70,.80,.90,.90,
344 2 .05,.05,.06,.08,.10,.13,.20,.25,.30,.40,
345 3 .05,.05,.05,.06,.07,.07,.08,.09,.10,.13,
346 4 .05,.05,.05,.05,.06,.06,.06,.06,.07,.07,
347 5 .05,.05,.05,.05,.05,.05,.05,.06,.06,.06,
348 6 .04,.04,.04,.04,.04,.04,.04,.05,.05,.05/
349 DATA O3LO2/
350 1 14.8,14.2,13.8,12.2,11.0,9.8,8.5,7.8,7.4,6.9,
351 2 13.2,13.0,12.5,11.3,10.4,9.0,7.8,7.5,7.0,6.6,
352 3 10.6,10.6,10.7,10.1,9.4,8.6,7.5,7.0,6.5,6.1,
353 4 7.0,7.3,7.5,7.5,7.5,7.3,6.7,6.4,6.0,5.8,
354 5 3.8,4.0,4.7,5.0,5.2,5.9,5.8,5.6,5.5,5.5,
355 6 1.4,1.6,2.4,3.0,3.7,4.1,4.6,4.8,5.1,5.0,
356 7 .40,.50,.90,1.2,2.0,2.7,3.2,3.6,4.3,4.1,
357 8 .07,.10,.20,.30,.80,1.4,2.1,2.4,2.7,3.0,
358 9 .06,.07,.09,.15,.30,.70,1.2,1.4,1.6,2.0,
359 o .05,.05,.06,.12,.15,.30,.60,.70,.80,.80,
360 1 .04,.05,.06,.08,.09,.15,.30,.40,.40,.40,
361 2 .04,.04,.05,.055,.06,.09,.12,.13,.15,.15,
362 3 .03,.03,.045,.052,.055,.06,.07,.07,.06,.07,
363 4 .03,.03,.04,.051,.052,.052,.06,.06,.05,.05,
364 5 .02,.02,.03,.05,.05,.05,.04,.04,.04,.04,
365 6 .02,.02,.02,.04,.04,.04,.03,.03,.03,.03/
Page 9 Source Listing O3GFDL
2025-03-12 18:22 O3CLIM.F
366 DATA O3LO3/
367 1 14.5,14.0,13.5,11.3,11.0,10.0,9.0,8.3,7.5,7.3,
368 2 13.5,13.2,12.5,11.1,10.4,9.7,8.2,7.8,7.4,6.8,
369 3 10.8,10.9,11.0,10.4,10.0,9.6,7.9,7.5,7.0,6.7,
370 4 7.3,7.5,7.8,8.5,9.0,8.5,7.7,7.4,6.9,6.5,
371 5 4.1,4.5,5.3,6.2,7.3,7.7,7.3,7.0,6.6,6.4,
372 6 1.8,2.0,2.2,3.8,4.3,5.6,6.2,6.2,6.4,6.2,
373 7 .30,.50,.60,1.5,2.8,3.7,4.5,4.7,5.5,5.6,
374 8 .09,.10,.15,.60,1.2,2.1,3.0,3.5,4.0,4.3,
375 9 .06,.08,.10,.30,.60,1.1,1.9,2.2,2.9,3.0,
376 o .04,.05,.06,.15,.45,.60,1.1,1.3,1.6,1.8,
377 1 .04,.04,.04,.08,.20,.30,.55,.60,.75,.90,
378 2 .04,.04,.04,.05,.06,.10,.12,.15,.20,.25,
379 3 .04,.04,.03,.04,.05,.06,.07,.07,.07,.08,
380 4 .03,.03,.04,.05,.05,.05,.05,.05,.05,.05,
381 5 .03,.03,.03,.04,.04,.04,.05,.05,.04,.04,
382 6 .02,.02,.02,.04,.04,.04,.04,.04,.03,.03/
383 DATA O3LO4/
384 1 14.2,13.8,13.2,12.5,11.7,10.5,8.6,7.8,7.5,6.6,
385 2 12.5,12.4,12.2,11.7,10.8,9.8,7.8,7.2,6.5,6.1,
386 3 10.6,10.5,10.4,10.1,9.6,9.0,7.1,6.8,6.1,5.9,
387 4 7.0,7.4,7.9,7.8,7.6,7.3,6.2,6.1,5.8,5.6,
388 5 4.2,4.6,5.1,5.6,5.9,5.9,5.9,5.8,5.6,5.3,
389 6 2.1,2.3,2.6,2.9,3.5,4.3,4.8,4.9,5.1,5.1,
390 7 0.7,0.8,1.0,1.5,2.0,2.8,3.5,3.6,3.7,4.0,
391 8 .15,.20,.40,.50,.60,1.4,2.1,2.2,2.3,2.5,
392 9 .08,.10,.15,.25,.30,.90,1.2,1.3,1.4,1.6,
393 o .07,.08,.10,.14,.20,.50,.70,.90,.90,.80,
394 1 .05,.06,.08,.12,.14,.20,.35,.40,.60,.50,
395 2 .05,.05,.08,.09,.09,.09,.11,.12,.15,.18,
396 3 .04,.05,.06,.07,.07,.08,.08,.08,.08,.08,
397 4 .04,.04,.05,.07,.07,.07,.07,.07,.06,.05,
398 5 .02,.02,.04,.05,.05,.05,.05,.05,.04,.04,
399 6 .02,.02,.03,.04,.04,.04,.04,.04,.03,.03/
400 END
Page 10 Source Listing O3GFDL
2025-03-12 18:22 Symbol Table O3CLIM.F
SYMBOL CROSS REFERENCE
Name Object Declared Type Bytes Dimen Elements Attributes References
O3DATA Common 255 4212
O3GFDL Block 253 scalar
TYPE COMPONENTS/COMMON VARIABLES
Name Type Bytes Offset Dimen Elements Attributes References
O3HI1 R(4) 4 652 2 160 COM,SAVE 305
O3HI2 R(4) 4 1292 2 90 COM,SAVE 322
O3LO1 R(4) 4 1652 2 160 COM,SAVE 332
O3LO2 R(4) 4 2292 2 160 COM,SAVE 349
O3LO3 R(4) 4 2932 2 160 COM,SAVE 366
O3LO4 R(4) 4 3572 2 160 COM,SAVE 383
P1 R(4) 4 328 1 48 COM,SAVE 282
P2 R(4) 4 520 1 33 COM,SAVE 295
PH1 R(4) 4 0 1 45 COM,SAVE 259
PH2 R(4) 4 180 1 37 COM,SAVE 271
Page 11 Source Listing O3GFDL
2025-03-12 18:22 Subprograms/Common Blocks O3CLIM.F
SUBPROGRAMS/COMMON BLOCKS
Name Object Declared Type Bytes Dimen Elements Attributes References
O3CLIM Subr 3
O3DATA Common 63 4212
O3DATA Common 255 4212
O3GFDL Block 253 scalar
SEASO3 Common 56 48276 SAVE
COMPILER OPTIONS BEING USED
-align noall -align nonone
-align nocommons -align nodcommons
-align noqcommons -align nozcommons
-align records -align nosequence
-align norec1byte -align norec2byte
-align norec4byte -align norec8byte
-align norec16byte -align norec32byte
-align norec64byte -align noarray8byte
-align noarray16byte -align noarray32byte
-align noarray64byte -align noarray128byte
-align noarray256byte -altparam
-assume accuracy_sensitive -assume nobscc
-assume nobuffered_io -assume nobuffered_stdout
-assume byterecl -assume nocontiguous_assumed_shape
-assume nocontiguous_pointer -assume nocc_omp
-assume nocstring -assume nodummy_aliases
-assume nofpe_summary -assume noieee_fpe_flags
-assume nominus0 -assume noold_boz
-assume old_complex_align -assume old_unit_star
-assume old_inquire_recl -assume old_ldout_format
-assume old_ldout_zero -assume noold_logical_assign
-assume noold_logical_ldio -assume old_maxminloc
-assume old_xor -assume noprotect_allocates
-assume protect_constants -assume noprotect_parens
-assume split_common -assume source_include
-assume nostd_intent_in -assume std_minus0_rounding
-assume nostd_mod_proc_name -assume std_value
-assume realloc_lhs -assume underscore
-assume no2underscores -assume norecursion
no -auto -auto_scalar
no -bintext -ccdefault default
-check noarg_temp_created -check noassume
-check nobounds -check nocontiguous
-check noformat -check nooutput_conversion
-check nooverflow -check nopointers
-check noshape -check nostack
-check nouninitialized -check noudio_iostat
-coarray-num-procs 0 no -coarray-config-file
-convert big_endian -cross_reference
-D __INTEL_COMPILER=1910 -D __INTEL_COMPILER_UPDATE=3
-D __unix__ -D __unix
-D __linux__ -D __linux
-D __gnu_linux__ -D unix
Page 12 Source Listing O3GFDL
2025-03-12 18:22 O3CLIM.F
-D linux -D __ELF__
-D __x86_64 -D __x86_64__
-D __amd64 -D __amd64__
-D __INTEL_COMPILER_BUILD_DATE=20200925 -D __INTEL_OFFLOAD
-D __MMX__ -D __SSE__
-D __SSE_MATH__ -D __SSE2__
-D __SSE2_MATH__ -D __SSE3__
-D __SSSE3__ -D __SSE4_1__
-D __SSE4_2__ -D __POPCNT__
-D __PCLMUL__ -D __AES__
-D __AVX__ -D __F16C__
-D __AVX_I__ -D __RDRND__
-D __FMA__ -D __FP_FAST_FMA
-D __FP_FAST_FMAF -D __BMI__
-D __LZCNT__ -D __AVX2__
-D __haswell -D __haswell__
-D __tune_haswell__ -D __core_avx2
-D __core_avx2__ -D __tune_core_avx2__
-D __CRAY_X86_ROME -D __CRAYXT_COMPUTE_LINUX_TARGET
-double_size 64 no -d_lines
no -Qdyncom -error_limit 30
no -f66 no -f77rtl
no -fast -fpscomp nofilesfromcmd
-fpscomp nogeneral -fpscomp noioformat
-fpscomp noldio_spacing -fpscomp nologicals
-fixed no -fpconstant
-fpe3 -fprm nearest
no -ftz -fp_model precise
-fp_model nofast -fp_model nostrict
-fp_model nosource -fp_model nodouble
-fp_model noextended -fp_model novery_fast
-fp_model noexcept -fp_model nono_except
-fp_modbits nofp_contract -fp_modbits nono_fp_contract
-fp_modbits nofenv_access -fp_modbits nono_fenv_access
-fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range
-fp_modbits noprec_div -fp_modbits nono_prec_div
-fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt
-fp_modbits noftz -fp_modbits no_ftz
-fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range
-fp_modbits notrunc_compares -fp_modbits nono_trunc_compares
-fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares
-fp_modbits nohonor_f32_conversion -fp_modbits nono_honor_f32_conversion
-fp_modbits nohonor_f64_conversion -fp_modbits nono_honor_f64_conversion
-fp_modbits nono_x87_copy -fp_modbits nono_no_x87_copy
-fp_modbits noexception_semantics -fp_modbits nono_exception_semantics
-fp_modbits noprecise_libm_functions -fp_modbits nono_precise_libm_functions
-heap_arrays 0 no -threadprivate_compat
-g2 -iface nomixed_str_len_arg
-iface nono_mixed_str_len_arg -init noarrays
-init nohuge -init noinfinity
-init nominus_huge -init nominus_infinity
-init nominus_tiny -init nonan
-init nosnan -init notiny
-init nozero no -intconstant
-integer_size 32 no -mixed_str_len_arg
no -module -names lowercase
no -noinclude no -o
Page 13 Source Listing O3GFDL
2025-03-12 18:22 O3CLIM.F
-offload-build=host -openmp-simd
-O2 no -pad_source
-real_size 32 no -recursive
-reentrancy threaded -vec=simd
-show nofullpath -show noinclude
-show map -show options
no -syntax_only no -threadcom
no -U no -vms
-w noall -w nonone
-w alignments -w nodeclarations
-w noexternals -w general
-w noignore_bounds -w noignore_loc
-w nointerfaces -w noshape
-w notruncated_source -w uncalled
-w uninitialized -w nounused
-w usage no -wrap-margins
-includepath : /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/,
.f90,./.f90,/opt/cray/pe/mpich/8.1.12/ofi/intel/19.0/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/ipp/include/.f90,
/pe/intel/compilers_and_libraries_2020.4.304/linux/mkl/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/.f90,
/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/stdlib/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/tbb/include/.f90,
/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/intel64/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/icc/.f90,
/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/.f90,/usr/lib64/gcc/x86_64-suse-linux/7/include/.f90,
/usr/lib64/gcc/x86_64-suse-linux/7/include-fixed/.f90,/usr/include/.f90,/usr/include/.f90,/usr/include/.f90
-list filename : O3CLIM.lst
no -o
COMPILER: Intel(R) Fortran 19.1-1655