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