Page 1 Source Listing O3CLIM 2025-03-12 18:21 /tmp/ifortPVtody.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:21 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:21 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:21 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:21 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:21 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:21 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:21 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:21 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:21 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:21 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:21 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:21 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