Page 1 Source Listing OTLFT2 2014-12-17 20:48 OTLFT2.f 1 SUBROUTINE OTLFT2(PBND,TBND,QBND,SLINDX) 2 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 3 C . . . 4 C SUBPROGRAM: OTLFT2 COMPUTES LIFTED INDEX 5 C PRGRMMR: TREADON ORG: W/NP2 DATE: 93-03-10 6 C 7 C ABSTRACT: 8 C THIS ROUTINE COMPUTES LIFTS A PARCEL SPECIFIED BY THE 9 C PASSED PRESSURE, TEMPERATURE, AND SPECIFIC HUMIDITY TO 10 C 500MB AND THEN COMPUTES A LIFTED INDEX. THIS LIFTED 11 C LIFTED INDEX IS THE DIFFERENCE BETWEEN THE LIFTED 12 C PARCEL'S TEMPERATURE AT 500MB AND THE AMBIENT 500MB 13 C TEMPERATURE. 14 C . 15 C 16 C PROGRAM HISTORY LOG: 17 C 93-03-10 RUSS TREADON - MODIFIED OTLIFT2 TO LIFT PARCELS 18 C SPECIFIED BY PASSED P, T, AND Q. 19 C 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D 20 C 00-01-04 JIM TUCCILLO - MPI VERSION 21 C 22 C USAGE: CALL OTLFT2(PBND,TBND,QBND,SLINDX) 23 C INPUT ARGUMENT LIST: 24 C PBND - PARCEL PRESSURE. 25 C TBND - PARCEL TEMPERATURE. 26 C QBND - PARCEL SPECIFIC HUMIDITY. 27 C 28 C OUTPUT ARGUMENT LIST: 29 C SLINDX - LIFTED INDEX. 30 C 31 C OUTPUT FILES: 32 C NONE 33 C 34 C SUBPROGRAMS CALLED: 35 C UTILITIES: 36 C NONE 37 C LIBRARY: 38 C COMMON - CTLBLK 39 C LOOPS 40 C MASKS 41 C PHYS 42 C VRBLS 43 C EXTRA 44 C 45 C ATTRIBUTES: 46 C LANGUAGE: FORTRAN 47 C MACHINE : CRAY C-90 48 C$$$ 49 C 50 C 51 C SET LOCAL PARAMETERS. 52 PARAMETER 53 & (D00=0.E0,H10E5=100000.E0,H5E4=5.E4,CAPA=0.28589641 54 &, D8202=.820231E0) 55 PARAMETER 56 & (ELIVW=2.72E6,CP=1004.6E0,ELOCP=ELIVW/CP) 57 C Page 2 Source Listing OTLFT2 2014-12-17 20:48 OTLFT2.f 58 C INCLUDE GLOBAL PARAMETERS. 59 INCLUDE "parmeta" 77 INCLUDE "parm.tbl" 78 C 79 C SET DEPENDENT PARAMETERS. 81 PARAMETER 82 & (JAM=6+2*(JM-10),LP1=LM+1) 83 C 84 C DECLARE VARIABLES. 85 C 86 L O G I C A L 87 & RUN,FIRST,RESTRT,SIGMA 88 C 89 D I M E N S I O N 90 & ITTB (IM,JM),IQTB (IM,JM),IPTB (IM,JM),ITHTB (IM,JM) 91 &,TBT (IM,JM),QBT (IM,JM) 92 &,APEBT (IM,JM),TTHBT (IM,JM),TTH (IM,JM),PP (IM,JM) 93 &,BQS00 (IM,JM),SQS00 (IM,JM),BQS10 (IM,JM),SQS10 (IM,JM) 94 &,BQ (IM,JM),SQ (IM,JM),TQ (IM,JM),QQ (IM,JM) 95 &,P00 (IM,JM),P10 (IM,JM),P01 (IM,JM),P11 (IM,JM) 96 &,TPSP (IM,JM),APESP (IM,JM),TTHES (IM,JM) 97 &,PSP (IM,JM),THBT (IM,JM),THESP (IM,JM) 98 &,P (IM,JM),TP (IM,JM),BTH (IM,JM),STH (IM,JM) 99 &,BTHE00(IM,JM),STHE00(IM,JM),BTHE10(IM,JM),STHE10(IM,JM) 100 &,T00 (IM,JM),T10 (IM,JM),T01 (IM,JM),T11 (IM,JM) 101 &,PARTMP(IM,JM) 102 &,SLINDX(IM,JM) 103 &,PBND (IM,JM),TBND (IM,JM),QBND (IM,JM) 104 C 105 C INCLUDE COMMON BLOCKS. 106 INCLUDE "CTLBLK.comm" 121 INCLUDE "LOOPS.comm" 129 INCLUDE "MASKS.comm" 137 INCLUDE "PHYS.comm" 158 INCLUDE "VRBLS.comm" 165 INCLUDE "EXTRA.comm" 166 C 167 C DECLARE EQUIVALENCES. 179 EQUIVALENCE 180 & (ITTB (1,1),IPTB (1,1) ) 181 &,(IQTB (1,1),ITHTB (1,1) ) 182 &,(QQ (1,1),APESP (1,1),TTHES (1,1) ) 183 &,(TTH (1,1),TQ (1,1),TP (1,1) ) 184 EQUIVALENCE 185 & (BQS00 (1,1),P00 (1,1),BTHE00(1,1),T00 (1,1) ) 186 &,(SQS00 (1,1),P10 (1,1),STHE00(1,1),T10 (1,1) ) 187 &,(BQS10 (1,1),P01 (1,1),BTHE10(1,1),T01 (1,1) ) 188 &,(SQS10 (1,1),P11 (1,1),STHE10(1,1),T11 (1,1) ) 189 &,(BQ (1,1) ,BTH (1,1) ) 190 &,(SQ (1,1) ,STH (1,1) ) 191 192 C 193 C 194 C******************************************************************** 195 C START OTLFT2 HERE. 196 C 197 C ZERO LIFTED INDEX ARRAY. Page 3 Source Listing OTLFT2 2014-12-17 20:48 OTLFT2.f 198 C 199 DO J=JSTA,JEND 200 DO I=1,IM 201 SLINDX(I,J)=D00 202 ENDDO 203 ENDDO 204 C 205 C--------------FIND EXNER IN BOUNDARY LAYER----------------------------- 206 C 207 DO 130 J=JSTA_M2,JEND_M2 208 DO 130 I=2,IM-1 209 TBT(I,J) = TBND(I,J) 210 QBT(I,J) = QBND(I,J) 211 APEBT(I,J) = PBND(I,J) 212 APEBT(I,J) = (H10E5/APEBT(I,J))**CAPA 213 130 CONTINUE 214 C 215 C--------------SCALING POTENTIAL TEMPERATURE & TABLE INDEX-------------- 216 C 217 DO 140 J=JSTA_M2,JEND_M2 218 DO 140 I=2,IM-1 219 TTHBT(I,J)=TBT(I,J)*APEBT(I,J) 220 TTH(I,J)=(TTHBT(I,J)-THL)*RDTH 221 QQ(I,J)=TTH(I,J)-AINT(TTH(I,J)) 222 ITTB(I,J)=INT(TTH(I,J))+1 223 140 CONTINUE 224 C 225 C--------------KEEPING INDICES WITHIN THE TABLE------------------------- 226 C 227 DO 145 J=JSTA_M2,JEND_M2 228 DO 145 I=2,IM-1 229 IF(ITTB(I,J).LT.1)THEN 230 ITTB(I,J)=1 231 QQ(I,J)=D00 232 ENDIF 233 IF(ITTB(I,J).GE.JTB)THEN 234 ITTB(I,J)=JTB-1 235 QQ(I,J)=D00 236 ENDIF 237 145 CONTINUE 238 C 239 C--------------BASE AND SCALING FACTOR FOR SPEC. HUMIDITY--------------- 240 C 241 DO 150 J=JSTA_M2,JEND_M2 242 DO 150 I=2,IM-1 243 ITTBK=ITTB(I,J) 244 BQS00(I,J)=QS0(ITTBK) 245 SQS00(I,J)=SQS(ITTBK) 246 BQS10(I,J)=QS0(ITTBK+1) 247 SQS10(I,J)=SQS(ITTBK+1) 248 150 CONTINUE 249 C 250 C--------------SCALING SPEC. HUMIDITY & TABLE INDEX--------------------- 251 C 252 DO 160 J=JSTA_M2,JEND_M2 253 DO 160 I=2,IM-1 254 BQ(I,J)=(BQS10(I,J)-BQS00(I,J))*QQ(I,J)+BQS00(I,J) Page 4 Source Listing OTLFT2 2014-12-17 20:48 OTLFT2.f 255 SQ(I,J)=(SQS10(I,J)-SQS00(I,J))*QQ(I,J)+SQS00(I,J) 256 TQ(I,J)=(QBT(I,J)-BQ(I,J))/SQ(I,J)*RDQ 257 PP(I,J)=TQ(I,J)-AINT(TQ(I,J)) 258 IQTB(I,J)=INT(TQ(I,J))+1 259 160 CONTINUE 260 C 261 C--------------KEEPING INDICES WITHIN THE TABLE------------------------- 262 C 263 DO 165 J=JSTA_M2,JEND_M2 264 DO 165 I=2,IM-1 265 IF(IQTB(I,J).LT.1)THEN 266 IQTB(I,J)=1 267 PP(I,J)=D00 268 ENDIF 269 IF(IQTB(I,J).GE.ITB)THEN 270 IQTB(I,J)=ITB-1 271 PP(I,J)=D00 272 ENDIF 273 165 CONTINUE 274 C 275 C--------------SATURATION PRESSURE AT FOUR SURROUNDING TABLE PTS.------- 276 C 277 DO 170 J=JSTA_M2,JEND_M2 278 DO 170 I=2,IM-1 279 IQ=IQTB(I,J) 280 IT=ITTB(I,J) 281 P00(I,J)=PTBL(IQ,IT) 282 P10(I,J)=PTBL(IQ+1,IT) 283 P01(I,J)=PTBL(IQ,IT+1) 284 P11(I,J)=PTBL(IQ+1,IT+1) 285 170 CONTINUE 286 C 287 C--------------SATURATION POINT VARIABLES AT THE BOTTOM----------------- 288 C 289 DO 180 J=JSTA_M2,JEND_M2 290 DO 180 I=2,IM-1 291 TPSP(I,J)=P00(I,J)+(P10(I,J)-P00(I,J))*PP(I,J) 292 1 +(P01(I,J)-P00(I,J))*QQ(I,J) 293 2 +(P00(I,J)-P10(I,J)-P01(I,J)+P11(I,J))*PP(I,J)*QQ(I,J) 294 IF(TPSP(I,J).LE.D00)TPSP(I,J)=H10E5 295 APESP(I,J)=(H10E5/TPSP(I,J))**CAPA 296 TTHES(I,J)=TTHBT(I,J)*EXP(ELOCP*QBT(I,J)*APESP(I,J)/TTHBT(I,J)) 297 180 CONTINUE 298 C 299 C----------------------------------------------------------------------- 300 C 301 DO J=JSTA_M2,JEND_M2 302 DO I=2,IM-1 303 PSP(I,J)=TPSP(I,J) 304 THBT(I,J)=TTHBT(I,J) 305 THESP(I,J)=TTHES(I,J) 306 ENDDO 307 ENDDO 308 C 309 C----------------------------------------------------------------------- 310 C 311 190 CONTINUE Page 5 Source Listing OTLFT2 2014-12-17 20:48 OTLFT2.f 312 C 313 C--------------SCALING PRESSURE & TT TABLE INDEX------------------------ 314 C 315 DO 210 J=JSTA_M2,JEND_M2 316 DO 210 I=2,IM-1 317 P (I,J)=H5E4 318 TP(I,J)=(P(I,J)-PL)*RDP 319 QQ(I,J)=TP(I,J)-AINT(TP(I,J)) 320 IPTB(I,J)=INT(TP(I,J))+1 321 210 CONTINUE 322 C 323 C--------------KEEPING INDICES WITHIN THE TABLE------------------------- 324 C 325 DO 215 J=JSTA_M2,JEND_M2 326 DO 215 I=2,IM-1 327 IF(IPTB(I,J).LT.1)THEN 328 IPTB(I,J)=1 329 QQ(I,J)=D00 330 ENDIF 331 IF(IPTB(I,J).GE.ITB)THEN 332 IPTB(I,J)=ITB-1 333 QQ(I,J)=D00 334 ENDIF 335 215 CONTINUE 336 C 337 C--------------BASE AND SCALING FACTOR FOR THE-------------------------- 338 C 339 DO 220 J=JSTA_M2,JEND_M2 340 DO 220 I=2,IM-1 341 IPTBK=IPTB(I,J) 342 BTHE00(I,J)=THE0(IPTBK) 343 STHE00(I,J)=STHE(IPTBK) 344 BTHE10(I,J)=THE0(IPTBK+1) 345 STHE10(I,J)=STHE(IPTBK+1) 346 220 CONTINUE 347 C 348 C--------------SCALING THE & TT TABLE INDEX----------------------------- 349 C 350 DO 230 J=JSTA_M2,JEND_M2 351 DO 230 I=2,IM-1 352 BTH(I,J)=(BTHE10(I,J)-BTHE00(I,J))*QQ(I,J)+BTHE00(I,J) 353 STH(I,J)=(STHE10(I,J)-STHE00(I,J))*QQ(I,J)+STHE00(I,J) 354 TTH(I,J)=(THESP(I,J)-BTH(I,J))/STH(I,J)*RDTHE 355 PP(I,J)=TTH(I,J)-AINT(TTH(I,J)) 356 ITHTB(I,J)=INT(TTH(I,J))+1 357 230 CONTINUE 358 C 359 C--------------KEEPING INDICES WITHIN THE TABLE------------------------- 360 C 361 DO 235 J=JSTA_M2,JEND_M2 362 DO 235 I=2,IM-1 363 IF(ITHTB(I,J).LT.1)THEN 364 ITHTB(I,J)=1 365 PP(I,J)=D00 366 ENDIF 367 IF(ITHTB(I,J).GE.JTB)THEN 368 ITHTB(I,J)=JTB-1 Page 6 Source Listing OTLFT2 2014-12-17 20:48 OTLFT2.f 369 PP(I,J)=D00 370 ENDIF 371 235 CONTINUE 372 C 373 C--------------TEMPERATURE AT FOUR SURROUNDING TT TABLE PTS.------------ 374 C 375 DO 240 J=JSTA_M2,JEND_M2 376 DO 240 I=2,IM-1 377 ITH=ITHTB(I,J) 378 IP=IPTB(I,J) 379 T00(I,J)=TTBL(ITH,IP) 380 T10(I,J)=TTBL(ITH+1,IP) 381 T01(I,J)=TTBL(ITH,IP+1) 382 T11(I,J)=TTBL(ITH+1,IP+1) 383 240 CONTINUE 384 C 385 C--------------PARCEL TEMPERATURE AT 500MB---------------------------- 386 C 387 DO 300 J=JSTA_M2,JEND_M2 388 DO 300 I=2,IM-1 389 IF(TPSP(I,J).GE.H5E4)THEN 390 PARTMP(I,J)=(T00(I,J)+(T10(I,J)-T00(I,J))*PP(I,J) 391 1 +(T01(I,J)-T00(I,J))*QQ(I,J) 392 2 +(T00(I,J)-T10(I,J)-T01(I,J)+T11(I,J))*PP(I,J)*QQ(I,J)) 393 ELSE 394 PARTMP(I,J)=TBT(I,J)*APEBT(I,J)*D8202 395 ENDIF 396 C 397 C--------------LIFTED INDEX--------------------------------------------- 398 C 399 SLINDX(I,J)=T500(I,J)-PARTMP(I,J) 400 300 CONTINUE 401 C 402 C END OF ROUTINE. 403 RETURN 404 END Page 7 Source Listing OTLFT2 2014-12-17 20:48 Entry Points OTLFT2.f ENTRY POINTS Name otlft2_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 130 Label 130 124,125 140 Label 140 134,135 145 Label 154 144,145 150 Label 165 158,159 160 Label 176 169,170 165 Label 190 180,181 170 Label 202 194,195 180 Label 214 206,207 190 Label 228 210 Label 238 232,233 215 Label 252 242,243 220 Label 263 256,257 230 Label 274 267,268 235 Label 288 278,279 240 Label 300 292,293 300 Label 317 304,305 AETA Scalar 7 R(4) 4 1 45 COM AINT Func 138 scalar 138,174,236,272 ALBASE Scalar 14 R(4) 4 2 91719 COM ALBEDO Scalar 15 R(4) 4 2 91719 COM ALPINT Scalar 4 R(4) 4 3 4219074 COM APEBT Local 74 R(4) 4 2 91719 128,129,136,311 APESP Local 78 R(4) 4 2 91719 212,213 BQ Local 76 R(4) 4 2 91719 171,173 BQS00 Local 75 R(4) 4 2 91719 161,171 BQS10 Local 75 R(4) 4 2 91719 163,171 BTH Local 80 R(4) 4 2 91719 269,271 BTHE00 Local 81 R(4) 4 2 91719 259,269 BTHE10 Local 81 R(4) 4 2 91719 261,269 CAPA Param 53 R(4) 4 scalar 129,212 CI Scalar 4 R(4) 4 scalar COM CP Param 56 R(4) 4 scalar 56 CS Scalar 4 R(4) 4 scalar COM CTLBLK Common 2 96 CZEN Scalar 12 R(4) 4 2 91719 COM CZMEAN Scalar 16 R(4) 4 2 91719 COM D00 Param 53 R(4) 4 scalar 118,148,152,184,188,211,246,250,28 2,286 D8202 Param 54 R(4) 4 scalar 311 DETA Scalar 7 R(4) 4 1 45 COM DFRLG Scalar 7 R(4) 4 1 46 COM DI Scalar 4 R(4) 4 scalar COM DS Scalar 4 R(4) 4 scalar COM DT Scalar 4 R(4) 4 scalar COM Page 8 Source Listing OTLFT2 2014-12-17 20:48 Symbol Table OTLFT2.f Name Object Declared Type Bytes Dimen Elements Attributes References DTD Scalar 3 R(4) 4 scalar COM DTQ2 Scalar 3 R(4) 4 scalar COM ELIVW Param 56 R(4) 4 scalar 56 ELOCP Param 56 R(4) 4 scalar 213 ELWDWN Scalar 13 R(4) 4 2 91719 COM EPSR Scalar 11 R(4) 4 2 91719 COM EXP Func 213 scalar 213 EXTRA Common 3 71506268 FIRST Scalar 69 L(4) 4 scalar COM FIS Scalar 3 R(4) 4 2 91719 COM FSL Scalar 8 R(4) 4 2 91719 COM GFFC Scalar 14 R(4) 4 2 91719 COM GLAT Scalar 12 R(4) 4 2 91719 COM GLON Scalar 12 R(4) 4 2 91719 COM H10E5 Param 53 R(4) 4 scalar 129,211,212 H5E4 Param 53 R(4) 4 scalar 234,306 HBM2 Scalar 3 R(4) 4 2 91719 COM HBOT Scalar 13 R(4) 4 2 91719 COM HDAC Scalar 16 R(4) 4 2 91719 COM HDACV Scalar 16 R(4) 4 2 91719 COM HTM Scalar 5 R(4) 4 3 4127355 COM HTOP Scalar 13 R(4) 4 2 91719 COM I Local 117 I(4) 4 scalar 117,118,125,126,127,128,129,135,13 6,137,138,139,145,146,147,148,150, 151,152,159,160,161,162,163,164,17 0,171,172,173,174,175,181,182,183, 184,186,187,188,195,196,197,198,19 9,200,201,207,208,209,210,211,212, 213,219,220,221,222,233,234,235,23 6,237,243,244,245,246,248,249,250, 257,258,259,260,261,262,268,269,27 0,271,272,273,279,280,281,282,284, 285,286,293,294,295,296,297,298,29 9,305,306,307,308,309,311,316 ICNT Scalar 7 I(4) 4 1 1024 COM IDAT Scalar 3 I(4) 4 1 3 COM IDIM1 Param 14 I(4) 4 scalar IDIM2 Param 14 I(4) 4 scalar IDN Scalar 7 I(4) 4 scalar COM IDSP Scalar 7 I(4) 4 1 1024 COM IDTAD Scalar 4 I(4) 4 scalar COM IGSTL Param 9 I(4) 4 scalar 14 IGSTR Param 9 I(4) 4 scalar 14 IHHA Scalar 3 I(4) 4 1 760 COM IHLA Scalar 3 I(4) 4 1 760 COM IHRST Scalar 3 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 2,3,4,5,6,7,8,9,11,12,13,14,15,16, 72,73,74,75,76,77,78,79,80,81,82,8 3,84,85,117,125,135,145,159,170,18 1,195,207,219,233,243,257,268,279, 293,305 IMJM Param 2 I(4) 4 scalar 5 INPES Param 6 I(4) 4 scalar 11,14 INT Func 139 scalar 139,175,237,273 IOUT Scalar 3 I(4) 4 scalar COM Page 9 Source Listing OTLFT2 2014-12-17 20:48 Symbol Table OTLFT2.f Name Object Declared Type Bytes Dimen Elements Attributes References IP Local 295 I(4) 4 scalar 295,296,297,298,299 IPTB Local 72 I(4) 4 2 91719 237,244,245,248,249,258,295 IPTBK Local 258 I(4) 4 scalar 258,259,260,261,262 IQ Local 196 I(4) 4 scalar 196,198,199,200,201 IQTB Local 72 I(4) 4 2 91719 175,182,183,186,187,196 IT Local 197 I(4) 4 scalar 197,198,199,200,201 ITAIL Param 11 I(4) 4 scalar ITB Param 1 I(4) 4 scalar 8,18,186,187,248,249 ITBQ Param 1 I(4) 4 scalar 9,18 ITH Local 294 I(4) 4 scalar 294,296,297,298,299 ITHTB Local 72 I(4) 4 2 91719 273,280,281,284,285,294 ITTB Local 72 I(4) 4 2 91719 139,146,147,150,151,160,197 ITTBK Local 160 I(4) 4 scalar 160,161,162,163,164 IUP Scalar 7 I(4) 4 scalar COM IVHA Scalar 3 I(4) 4 1 760 COM IVLA Scalar 3 I(4) 4 1 760 COM J Local 116 I(4) 4 scalar 116,118,124,126,127,128,129,134,13 6,137,138,139,144,146,147,148,150, 151,152,158,160,161,162,163,164,16 9,171,172,173,174,175,180,182,183, 184,186,187,188,194,196,197,198,19 9,200,201,206,208,209,210,211,212, 213,218,220,221,222,232,234,235,23 6,237,242,244,245,246,248,249,250, 256,258,259,260,261,262,267,269,27 0,271,272,273,278,280,281,282,284, 285,286,292,294,295,296,297,298,29 9,304,306,307,308,309,311,316 JAM Param 64 I(4) 4 scalar 3 JDIM1 Param 15 I(4) 4 scalar JDIM2 Param 15 I(4) 4 scalar JEND Scalar 6 I(4) 4 scalar COM 116 JEND_2U Scalar 8 I(4) 4 scalar COM JEND_M Scalar 7 I(4) 4 scalar COM JEND_M2 Scalar 7 I(4) 4 scalar COM 124,134,144,158,169,180,194,206,21 8,232,242,256,267,278,292,304 JGSTL Param 10 I(4) 4 scalar 15 JGSTR Param 10 I(4) 4 scalar 15 JM Param 3 I(4) 4 scalar 2,3,4,5,6,7,8,9,11,12,13,14,15,16, 64,72,73,74,75,76,77,78,79,80,81,8 2,83,84,85 JNPES Param 6 I(4) 4 scalar 12,15 JRA Scalar 3 I(4) 4 1 760 COM JSTA Scalar 6 I(4) 4 scalar COM 116 JSTA_2L Scalar 8 I(4) 4 scalar COM JSTA_M Scalar 7 I(4) 4 scalar COM JSTA_M2 Scalar 7 I(4) 4 scalar COM 124,134,144,158,169,180,194,206,21 8,232,242,256,267,278,292,304 JTAIL Param 12 I(4) 4 scalar JTB Param 1 I(4) 4 scalar 8,18,150,151,284,285 JTBQ Param 1 I(4) 4 scalar 18 KMNT Scalar 5 I(4) 4 2 4118670 COM KMNTM Scalar 5 I(4) 4 1 45 COM KTM Scalar 3 I(4) 4 scalar COM LIST Scalar 3 I(4) 4 scalar COM Page 10 Source Listing OTLFT2 2014-12-17 20:48 Symbol Table OTLFT2.f Name Object Declared Type Bytes Dimen Elements Attributes References LM Param 3 I(4) 4 scalar 5,7,64 LMH Scalar 5 I(4) 4 2 91719 COM LMV Scalar 5 I(4) 4 2 91719 COM LOOPS Common 2 748952 LP1 Param 64 I(4) 4 scalar 4,7 LSM Param 3 I(4) 4 scalar MASKS Common 2 34853220 ME Scalar 6 I(4) 4 scalar COM NBC Scalar 3 I(4) 4 scalar COM NBOCO Scalar 4 I(4) 4 scalar COM NCP Scalar 4 I(4) 4 scalar COM NDDAMP Scalar 4 I(4) 4 scalar COM NFCST Scalar 3 I(4) 4 scalar COM NPHS Scalar 5 I(4) 4 scalar COM NPREC Scalar 4 I(4) 4 scalar COM NRADL Scalar 5 I(4) 4 scalar COM NRADS Scalar 5 I(4) 4 scalar COM NSHDE Scalar 4 I(4) 4 scalar COM NTSD Scalar 4 I(4) 4 scalar COM NTSTM Scalar 4 I(4) 4 scalar COM NUM_PROCS Scalar 6 I(4) 4 scalar COM OLDRD Scalar 10 R(4) 4 scalar COM OTLFT2 Subr 1 P Local 80 R(4) 4 2 91719 234,235 P00 Local 77 R(4) 4 2 91719 198,208,209,210 P01 Local 77 R(4) 4 2 91719 200,209,210 P10 Local 77 R(4) 4 2 91719 199,208,210 P11 Local 77 R(4) 4 2 91719 201,210 PARALLEL Common 9 8240 PARTMP Local 83 R(4) 4 2 91719 307,311,316 PBND Dummy 1 R(4) 4 2 91719 ARG,INOUT 128 PD Scalar 3 R(4) 4 2 91719 COM PDSL Scalar 6 R(4) 4 2 91719 COM PDVP1 Scalar 6 R(4) 4 2 91719 COM PFSL Scalar 7 R(4) 4 2 91719 COM PHYS Common 2 7690036 PINT Scalar 4 R(4) 4 3 4219074 COM PL Scalar 5 R(4) 4 scalar COM 235 PLQ Scalar 6 R(4) 4 scalar COM PP Local 74 R(4) 4 2 91719 174,184,188,208,210,272,282,286,30 7,309 PSLP Scalar 6 R(4) 4 2 91719 COM PSP Local 79 R(4) 4 2 91719 220 PT Scalar 3 R(4) 4 scalar COM PTBL Scalar 18 R(4) 4 2 10184 COM 198,199,200,201 PTSL Scalar 7 R(4) 4 2 91719 COM Q Scalar 5 R(4) 4 3 4127355 COM QBND Dummy 1 R(4) 4 2 91719 ARG,INOUT 127 QBT Local 73 R(4) 4 2 91719 127,173,213 QQ Local 76 R(4) 4 2 91719 138,148,152,171,172,209,210,236,24 6,250,269,270,308,309 QS0 Scalar 8 R(4) 4 1 134 COM 161,163 QSL Scalar 9 R(4) 4 2 91719 COM RADIN Scalar 11 R(4) 4 2 91719 COM RADOT Scalar 11 R(4) 4 2 91719 COM Page 11 Source Listing OTLFT2 2014-12-17 20:48 Symbol Table OTLFT2.f Name Object Declared Type Bytes Dimen Elements Attributes References RDP Scalar 5 R(4) 4 scalar COM 235 RDPQ Scalar 6 R(4) 4 scalar COM RDQ Scalar 5 R(4) 4 scalar COM 173 RDTH Scalar 5 R(4) 4 scalar COM 137 RDTHE Scalar 5 R(4) 4 scalar COM 271 RDTHEQ Scalar 6 R(4) 4 scalar COM RES Scalar 3 R(4) 4 2 91719 COM RESTRT Scalar 69 L(4) 4 scalar COM RMXSNAL Scalar 11 R(4) 4 2 91719 COM ROI Scalar 4 R(4) 4 scalar COM ROS Scalar 4 R(4) 4 scalar COM RUN Scalar 69 L(4) 4 scalar COM SICE Scalar 3 R(4) 4 2 91719 COM SIGMA Scalar 69 L(4) 4 scalar COM SIGT4 Scalar 16 R(4) 4 2 91719 COM SLINDX Dummy 1 R(4) 4 2 91719 ARG,INOUT 118,316 SLP Scalar 5 R(4) 4 2 91719 COM SM Scalar 3 R(4) 4 2 91719 COM SQ Local 76 R(4) 4 2 91719 172,173 SQS Scalar 8 R(4) 4 1 134 COM 162,164 SQS00 Local 75 R(4) 4 2 91719 162,172 SQS10 Local 75 R(4) 4 2 91719 164,172 SST Scalar 14 R(4) 4 2 91719 COM STDRD Scalar 10 R(4) 4 scalar COM STH Local 80 R(4) 4 2 91719 270,271 STHE Scalar 8 R(4) 4 1 76 COM 260,262 STHE00 Local 81 R(4) 4 2 91719 260,270 STHE10 Local 81 R(4) 4 2 91719 262,270 STHEQ Scalar 9 R(4) 4 1 152 COM SWNET Scalar 12 R(4) 4 2 91719 COM T Scalar 5 R(4) 4 3 4127355 COM T00 Local 82 R(4) 4 2 91719 296,307,308,309 T01 Local 82 R(4) 4 2 91719 298,308,309 T10 Local 82 R(4) 4 2 91719 297,307,309 T11 Local 82 R(4) 4 2 91719 299,309 T500 Scalar 6 R(4) 4 2 91719 COM 316 TBND Dummy 1 R(4) 4 2 91719 ARG,INOUT 126 TBT Local 73 R(4) 4 2 91719 126,136,311 TDTD Scalar 3 R(4) 4 scalar COM TDTQ2 Scalar 3 R(4) 4 scalar COM TG Scalar 14 R(4) 4 2 91719 COM THBT Local 79 R(4) 4 2 91719 221 THE0 Scalar 8 R(4) 4 1 76 COM 259,261 THE0Q Scalar 9 R(4) 4 1 152 COM THESP Local 79 R(4) 4 2 91719 222,271 THL Scalar 5 R(4) 4 scalar COM 137 TP Local 80 R(4) 4 2 91719 235,236,237 TPSP Local 78 R(4) 4 2 91719 208,211,212,220,306 TQ Local 76 R(4) 4 2 91719 173,174,175 TSL Scalar 8 R(4) 4 2 91719 COM TTBL Scalar 18 R(4) 4 2 10184 COM 296,297,298,299 TTBLQ Scalar 18 R(4) 4 2 66880 COM TTH Local 74 R(4) 4 2 91719 137,138,139,271,272,273 TTHBT Local 74 R(4) 4 2 91719 136,137,213,221 TTHES Local 78 R(4) 4 2 91719 213,222 Page 12 Source Listing OTLFT2 2014-12-17 20:48 Symbol Table OTLFT2.f Name Object Declared Type Bytes Dimen Elements Attributes References TTV Scalar 8 R(4) 4 2 91719 COM U Scalar 5 R(4) 4 3 4127355 COM V Scalar 5 R(4) 4 3 4127355 COM VBM2 Scalar 3 R(4) 4 2 91719 COM VBM3 Scalar 3 R(4) 4 2 91719 COM VRBLS Common 2 67138308 VTM Scalar 5 R(4) 4 3 4127355 COM Z1000 Scalar 9 R(4) 4 2 91719 COM ZINT Scalar 4 R(4) 4 3 4219074 COM Page 13 Source Listing OTLFT2 2014-12-17 20:48 Subprograms/Common Blocks OTLFT2.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CTLBLK Common 2 96 EXTRA Common 3 71506268 LOOPS Common 2 748952 MASKS Common 2 34853220 OTLFT2 Subr 1 PARALLEL Common 9 8240 PHYS Common 2 7690036 VRBLS Common 2 67138308 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 Page 14 Source Listing OTLFT2 2014-12-17 20:48 OTLFT2.f 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 noprecise -fp_model fast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -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 : /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/,.f,./.f,/usrx/local/intel/composerxe/mkl/include/.f, /usrx/local/intel/composerxe/tbb/include/.f,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/.f, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/.f,/usr/local/include/.f,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/.f, /usr/include/.f,/usr/include/.f -list filename : OTLFT2.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100