Page 1 Source Listing OTLIFT2 2014-12-17 20:48 OTLIFT2.f 1 SUBROUTINE OTLIFT2(T500,SLINDX) 2 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 3 C . . . 4 C SUBPROGRAM: OTLIFT2 COMPUTES SFC TO 500MB LIFTED INDEX 5 C PRGRMMR: TREADON ORG: W/NP2 DATE: 93-03-10 6 C 7 C ABSTRACT: 8 C THIS ROUTINE COMPUTES A SURFACE TO 500MB LIFTED INDEX. 9 C THE LIFTED PARCEL IS FROM THE FIRST ATMOSPHERIC ETA 10 C LAYER (IE, THE ETA LAYER CLOSEST TO THE MODEL GROUND). 11 C THE LIFTED INDEX IS THE DIFFERENCE BETWEEN THIS PARCEL'S 12 C TEMPERATURE AT 500MB AND THE AMBIENT 500MB TEMPERATURE. 13 C . 14 C 15 C PROGRAM HISTORY LOG: 16 C ??-??-?? ??? - SUBROUTINE OTLIFT IN ETA MODEL. 17 C 93-03-10 RUSS TREADON - ADAPTED OTLIFT FOR USE WITH NEW POST. 18 C 98-06-18 T BLACK - CONVERSION FROM 1-D TO 2-D 19 C 00-01-04 JIM TUCCILLO - MPI VERSION 20 C 21 C USAGE: CALL OTLIFT2(T500,SLINDX) 22 C INPUT ARGUMENT LIST: 23 C T500 - 500MB AMBIENT TEMPERATURE. 24 C 25 C OUTPUT ARGUMENT LIST: 26 C SLINDX - LIFTED INDEX. 27 C 28 C OUTPUT FILES: 29 C NONE 30 C 31 C SUBPROGRAMS CALLED: 32 C UTILITIES: 33 C NONE 34 C LIBRARY: 35 C COMMON - CTLBLK 36 C LOOPS 37 C MASKS 38 C PHYS 39 C VRBLS 40 C 41 C ATTRIBUTES: 42 C LANGUAGE: FORTRAN 43 C MACHINE : CRAY C-90 44 C$$$ 45 C 46 C SET LOCAL PARAMETERS. 47 PARAMETER 48 & (D00=0.E0,H10E5=100000.E0,H5E4=5.E4,CAPA=0.28589641 49 &, D8202=.820231E0) 50 PARAMETER 51 & (ELIVW=2.72E6,CP=1004.6E0,ELOCP=ELIVW/CP) 52 C 53 C INCLUDE GLOBAL PARAMETERS. 54 INCLUDE "parmeta" 72 INCLUDE "parm.tbl" 73 C 74 C SET DEPENDENT PARAMETERS. Page 2 Source Listing OTLIFT2 2014-12-17 20:48 OTLIFT2.f 76 PARAMETER 77 & (JAM=6+2*(JM-10),LP1=LM+1) 78 C 79 C DECLARE VARIABLES. 80 LOGICAL RUN,FIRST,RESTRT,SIGMA 81 DIMENSION 82 & ITTB (IM,JM),IQTB (IM,JM),IPTB (IM,JM),ITHTB (IM,JM) 83 &,PDSL (IM,JM),TBT (IM,JM),QBT (IM,JM) 84 &,APEBT (IM,JM),TTHBT (IM,JM),TTH (IM,JM),PP (IM,JM) 85 &,BQS00 (IM,JM),SQS00 (IM,JM),BQS10 (IM,JM),SQS10 (IM,JM) 86 &,BQ (IM,JM),SQ (IM,JM),TQ (IM,JM),QQ (IM,JM) 87 &,P00 (IM,JM),P10 (IM,JM),P01 (IM,JM),P11 (IM,JM) 88 &,TPSP (IM,JM),APESP (IM,JM),TTHES (IM,JM) 89 &,PSP (IM,JM),THBT (IM,JM),THESP (IM,JM) 90 &,P (IM,JM),TP (IM,JM),BTH (IM,JM),STH (IM,JM) 91 &,BTHE00(IM,JM),STHE00(IM,JM),BTHE10(IM,JM),STHE10(IM,JM) 92 &,T00 (IM,JM),T10 (IM,JM),T01 (IM,JM),T11 (IM,JM) 93 &,PARTMP(IM,JM),T500 (IM,JM),SLINDX(IM,JM) 94 C 95 C INCLUDE COMMON BLOCKS. 96 INCLUDE "CTLBLK.comm" 111 INCLUDE "LOOPS.comm" 119 INCLUDE "MASKS.comm" 127 INCLUDE "PHYS.comm" 148 INCLUDE "VRBLS.comm" 149 C 156 EQUIVALENCE 157 & (ITTB (1,1),IPTB (1,1) ) 158 &,(IQTB (1,1),ITHTB (1,1) ) 159 &,(QQ (1,1),APESP (1,1),TTHES (1,1) ) 160 &,(TTH (1,1),TQ (1,1),TP (1,1) ) 161 EQUIVALENCE 162 & (BQS00 (1,1),P00 (1,1),BTHE00(1,1),T00 (1,1) ) 163 &,(SQS00 (1,1),P10 (1,1),STHE00(1,1),T10 (1,1) ) 164 &,(BQS10 (1,1),P01 (1,1),BTHE10(1,1),T01 (1,1) ) 165 &,(SQS10 (1,1),P11 (1,1),STHE10(1,1),T11 (1,1) ) 166 &,(BQ (1,1) ,BTH (1,1) ) 167 &,(SQ (1,1) ,STH (1,1) ) 168 C 169 C 170 C*********************************************************************** 171 C START OTLIFT2 HERE 172 C 173 C INTIALIZE LIFTED INDEX ARRAY TO ZERO. 174 DO J=JSTA,JEND 175 DO I=1,IM 176 SLINDX(I,J)=D00 177 ENDDO 178 ENDDO 179 C--------------FIND EXNER AT LOWEST LEVEL------------------------------- 180 DO J=JSTA_M2,JEND_M2 181 DO I=2,IM-1 182 LBTM=LMH(I,J) 183 TBT(I,J)=T(I,J,LBTM) 184 QBT(I,J)=Q(I,J,LBTM) 185 PDSL(I,J)=PD(I,J)*RES(I,J) 186 APEBT(I,J)=PDSL(I,J)*AETA(LBTM)+PT Page 3 Source Listing OTLIFT2 2014-12-17 20:48 OTLIFT2.f 187 APEBT(I,J)=(H10E5/APEBT(I,J))**CAPA 188 ENDDO 189 ENDDO 190 C--------------SCALING POTENTIAL TEMPERATURE & TABLE INDEX-------------- 191 DO J=JSTA_M2,JEND_M2 192 DO I=2,IM-1 193 TTHBT(I,J)=TBT(I,J)*APEBT(I,J) 194 TTH(I,J)=(TTHBT(I,J)-THL)*RDTH 195 QQ(I,J)=TTH(I,J)-AINT(TTH(I,J)) 196 ITTB(I,J)=INT(TTH(I,J))+1 197 ENDDO 198 ENDDO 199 C--------------KEEPING INDICES WITHIN THE TABLE------------------------- 200 DO J=JSTA_M2,JEND_M2 201 DO I=2,IM-1 202 IF(ITTB(I,J).LT.1)THEN 203 ITTB(I,J)=1 204 QQ(I,J)=D00 205 ENDIF 206 IF(ITTB(I,J).GE.JTB)THEN 207 ITTB(I,J)=JTB-1 208 QQ(I,J)=D00 209 ENDIF 210 ENDDO 211 ENDDO 212 C--------------BASE AND SCALING FACTOR FOR SPEC. HUMIDITY--------------- 213 DO J=JSTA_M2,JEND_M2 214 DO I=2,IM-1 215 ITTBK=ITTB(I,J) 216 BQS00(I,J)=QS0(ITTBK) 217 SQS00(I,J)=SQS(ITTBK) 218 BQS10(I,J)=QS0(ITTBK+1) 219 SQS10(I,J)=SQS(ITTBK+1) 220 ENDDO 221 ENDDO 222 C--------------SCALING SPEC. HUMIDITY & TABLE INDEX--------------------- 223 DO J=JSTA_M2,JEND_M2 224 DO I=2,IM-1 225 BQ(I,J)=(BQS10(I,J)-BQS00(I,J))*QQ(I,J)+BQS00(I,J) 226 SQ(I,J)=(SQS10(I,J)-SQS00(I,J))*QQ(I,J)+SQS00(I,J) 227 TQ(I,J)=(QBT(I,J)-BQ(I,J))/SQ(I,J)*RDQ 228 PP(I,J)=TQ(I,J)-AINT(TQ(I,J)) 229 IQTB(I,J)=INT(TQ(I,J))+1 230 ENDDO 231 ENDDO 232 C--------------KEEPING INDICES WITHIN THE TABLE------------------------- 233 DO J=JSTA_M2,JEND_M2 234 DO I=2,IM-1 235 IF(IQTB(I,J).LT.1)THEN 236 IQTB(I,J)=1 237 PP(I,J)=D00 238 ENDIF 239 IF(IQTB(I,J).GE.ITB)THEN 240 IQTB(I,J)=ITB-1 241 PP(I,J)=D00 242 ENDIF 243 ENDDO Page 4 Source Listing OTLIFT2 2014-12-17 20:48 OTLIFT2.f 244 ENDDO 245 C--------------SATURATION PRESSURE AT FOUR SURROUNDING TABLE PTS.------- 246 DO J=JSTA_M2,JEND_M2 247 DO I=2,IM-1 248 IQ=IQTB(I,J) 249 IT=ITTB(I,J) 250 P00(I,J)=PTBL(IQ,IT) 251 P10(I,J)=PTBL(IQ+1,IT) 252 P01(I,J)=PTBL(IQ,IT+1) 253 P11(I,J)=PTBL(IQ+1,IT+1) 254 ENDDO 255 ENDDO 256 C--------------SATURATION POINT VARIABLES AT THE BOTTOM----------------- 257 DO J=JSTA_M2,JEND_M2 258 DO I=2,IM-1 259 TPSP(I,J)=P00(I,J)+(P10(I,J)-P00(I,J))*PP(I,J) 260 1 +(P01(I,J)-P00(I,J))*QQ(I,J) 261 2 +(P00(I,J)-P10(I,J)-P01(I,J)+P11(I,J))*PP(I,J)*QQ(I,J) 262 IF(TPSP(I,J).LE.D00)TPSP(I,J)=H10E5 263 APESP(I,J)=(H10E5/TPSP(I,J))**CAPA 264 TTHES(I,J)=TTHBT(I,J)*EXP(ELOCP*QBT(I,J)*APESP(I,J)/TTHBT(I,J)) 265 ENDDO 266 ENDDO 267 C----------------------------------------------------------------------- 268 DO J=JSTA_M2,JEND_M2 269 DO I=2,IM-1 270 PSP(I,J)=TPSP(I,J) 271 THBT(I,J)=TTHBT(I,J) 272 THESP(I,J)=TTHES(I,J) 273 ENDDO 274 ENDDO 275 C----------------------------------------------------------------------- 276 190 CONTINUE 277 C--------------SCALING PRESSURE & TT TABLE INDEX------------------------ 278 DO J=JSTA_M2,JEND_M2 279 DO I=2,IM-1 280 P (I,J)=H5E4 281 TP(I,J)=(P(I,J)-PL)*RDP 282 QQ(I,J)=TP(I,J)-AINT(TP(I,J)) 283 IPTB(I,J)=INT(TP(I,J))+1 284 ENDDO 285 ENDDO 286 C--------------KEEPING INDICES WITHIN THE TABLE------------------------- 287 DO J=JSTA_M2,JEND_M2 288 DO I=2,IM-1 289 IF(IPTB(I,J).LT.1)THEN 290 IPTB(I,J)=1 291 QQ(I,J)=D00 292 ENDIF 293 IF(IPTB(I,J).GE.ITB)THEN 294 IPTB(I,J)=ITB-1 295 QQ(I,J)=D00 296 ENDIF 297 ENDDO 298 ENDDO 299 C--------------BASE AND SCALING FACTOR FOR THE-------------------------- 300 DO J=JSTA_M2,JEND_M2 Page 5 Source Listing OTLIFT2 2014-12-17 20:48 OTLIFT2.f 301 DO I=2,IM-1 302 IPTBK=IPTB(I,J) 303 BTHE00(I,J)=THE0(IPTBK) 304 STHE00(I,J)=STHE(IPTBK) 305 BTHE10(I,J)=THE0(IPTBK+1) 306 STHE10(I,J)=STHE(IPTBK+1) 307 ENDDO 308 ENDDO 309 C--------------SCALING THE & TT TABLE INDEX----------------------------- 310 DO J=JSTA_M2,JEND_M2 311 DO I=2,IM-1 312 BTH(I,J)=(BTHE10(I,J)-BTHE00(I,J))*QQ(I,J)+BTHE00(I,J) 313 STH(I,J)=(STHE10(I,J)-STHE00(I,J))*QQ(I,J)+STHE00(I,J) 314 TTH(I,J)=(THESP(I,J)-BTH(I,J))/STH(I,J)*RDTHE 315 PP(I,J)=TTH(I,J)-AINT(TTH(I,J)) 316 ITHTB(I,J)=INT(TTH(I,J))+1 317 ENDDO 318 ENDDO 319 C--------------KEEPING INDICES WITHIN THE TABLE------------------------- 320 DO J=JSTA_M2,JEND_M2 321 DO I=2,IM-1 322 IF(ITHTB(I,J).LT.1)THEN 323 ITHTB(I,J)=1 324 PP(I,j)=D00 325 ENDIF 326 IF(ITHTB(I,J).GE.JTB)THEN 327 ITHTB(I,J)=JTB-1 328 PP(I,J)=D00 329 ENDIF 330 ENDDO 331 ENDDO 332 C--------------TEMPERATURE AT FOUR SURROUNDING TT TABLE PTS.------------ 333 DO J=JSTA_M2,JEND_M2 334 DO I=2,IM-1 335 ITH=ITHTB(I,J) 336 IP=IPTB(I,J) 337 T00(I,J)=TTBL(ITH,IP) 338 T10(I,J)=TTBL(ITH+1,IP) 339 T01(I,J)=TTBL(ITH,IP+1) 340 T11(I,J)=TTBL(ITH+1,IP+1) 341 ENDDO 342 ENDDO 343 C--------------PARCEL TEMPERATURE AT 500MB---------------------------- 344 DO J=JSTA_M2,JEND_M2 345 DO I=2,IM-1 346 IF(TPSP(I,J).GE.H5E4)THEN 347 PARTMP(I,J)=(T00(I,J)+(T10(I,J)-T00(I,J))*PP(I,J) 348 1 +(T01(I,J)-T00(I,J))*QQ(I,J) 349 2 +(T00(I,J)-T10(I,J)-T01(I,J)+T11(I,J))*PP(I,J)*QQ(I,J)) 350 ELSE 351 PARTMP(I,J)=TBT(I,J)*APEBT(I,J)*D8202 352 ENDIF 353 C--------------LIFTED INDEX--------------------------------------------- 354 SLINDX(I,J)=T500(I,J)-PARTMP(I,J) 355 ENDDO 356 ENDDO 357 C Page 6 Source Listing OTLIFT2 2014-12-17 20:48 OTLIFT2.f 358 RETURN 359 END ENTRY POINTS Name otlift2_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 190 Label 204 AETA Scalar 7 R(4) 4 1 45 COM 114 AINT Func 123 scalar 123,156,210,243 ALBASE Scalar 14 R(4) 4 2 91719 COM ALBEDO Scalar 15 R(4) 4 2 91719 COM APEBT Local 66 R(4) 4 2 91719 114,115,121,279 APESP Local 70 R(4) 4 2 91719 191,192 BQ Local 68 R(4) 4 2 91719 153,155 BQS00 Local 67 R(4) 4 2 91719 144,153 BQS10 Local 67 R(4) 4 2 91719 146,153 BTH Local 72 R(4) 4 2 91719 240,242 BTHE00 Local 73 R(4) 4 2 91719 231,240 BTHE10 Local 73 R(4) 4 2 91719 233,240 CAPA Param 48 R(4) 4 scalar 115,191 CI Scalar 4 R(4) 4 scalar COM CP Param 51 R(4) 4 scalar 51 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 48 R(4) 4 scalar 104,132,136,165,169,190,219,223,25 2,256 D8202 Param 49 R(4) 4 scalar 279 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 DTD Scalar 3 R(4) 4 scalar COM DTQ2 Scalar 3 R(4) 4 scalar COM ELIVW Param 51 R(4) 4 scalar 51 ELOCP Param 51 R(4) 4 scalar 192 ELWDWN Scalar 13 R(4) 4 2 91719 COM EPSR Scalar 11 R(4) 4 2 91719 COM EXP Func 192 scalar 192 FIRST Scalar 62 L(4) 4 scalar COM FIS Scalar 3 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 48 R(4) 4 scalar 115,190,191 H5E4 Param 48 R(4) 4 scalar 208,274 Page 7 Source Listing OTLIFT2 2014-12-17 20:48 Symbol Table OTLIFT2.f Name Object Declared Type Bytes Dimen Elements Attributes References 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 103 I(4) 4 scalar 103,104,109,110,111,112,113,114,11 5,120,121,122,123,124,129,130,131, 132,134,135,136,142,143,144,145,14 6,147,152,153,154,155,156,157,162, 163,164,165,167,168,169,175,176,17 7,178,179,180,181,186,187,188,189, 190,191,192,197,198,199,200,207,20 8,209,210,211,216,217,218,219,221, 222,223,229,230,231,232,233,234,23 9,240,241,242,243,244,249,250,251, 252,254,255,256,262,263,264,265,26 6,267,268,273,274,275,276,277,279, 282 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 3,5,11,12,13,14,15,16,64,65,66,67, 68,69,70,71,72,73,74,75,103,109,12 0,129,142,152,162,175,186,197,207, 216,229,239,249,262,273 INPES Param 6 I(4) 4 scalar 11,14 INT Func 124 scalar 124,157,211,244 IOUT Scalar 3 I(4) 4 scalar COM IP Local 264 I(4) 4 scalar 264,265,266,267,268 IPTB Local 64 I(4) 4 2 91719 211,217,218,221,222,230,264 IPTBK Local 230 I(4) 4 scalar 230,231,232,233,234 IQ Local 176 I(4) 4 scalar 176,178,179,180,181 IQTB Local 64 I(4) 4 2 91719 157,163,164,167,168,176 IT Local 177 I(4) 4 scalar 177,178,179,180,181 ITAIL Param 11 I(4) 4 scalar ITB Param 1 I(4) 4 scalar 8,18,167,168,221,222 ITBQ Param 1 I(4) 4 scalar 9,18 ITH Local 263 I(4) 4 scalar 263,265,266,267,268 ITHTB Local 64 I(4) 4 2 91719 244,250,251,254,255,263 ITTB Local 64 I(4) 4 2 91719 124,130,131,134,135,143,177 ITTBK Local 143 I(4) 4 scalar 143,144,145,146,147 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 102 I(4) 4 scalar 102,104,108,110,111,112,113,114,11 Page 8 Source Listing OTLIFT2 2014-12-17 20:48 Symbol Table OTLIFT2.f Name Object Declared Type Bytes Dimen Elements Attributes References 5,119,121,122,123,124,128,130,131, 132,134,135,136,141,143,144,145,14 6,147,151,153,154,155,156,157,161, 163,164,165,167,168,169,174,176,17 7,178,179,180,181,185,187,188,189, 190,191,192,196,198,199,200,206,20 8,209,210,211,215,217,218,219,221, 222,223,228,230,231,232,233,234,23 8,240,241,242,243,244,248,250,251, 252,254,255,256,261,263,264,265,26 6,267,268,272,274,275,276,277,279, 282 JAM Param 59 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 102 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 108,119,128,141,151,161,174,185,19 6,206,215,228,238,248,261,272 JGSTL Param 10 I(4) 4 scalar 15 JGSTR Param 10 I(4) 4 scalar 15 JM Param 3 I(4) 4 scalar 3,5,11,12,13,14,15,16,59,64,65,66, 67,68,69,70,71,72,73,74,75 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 102 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 108,119,128,141,151,161,174,185,19 6,206,215,228,238,248,261,272 JTAIL Param 12 I(4) 4 scalar JTB Param 1 I(4) 4 scalar 8,18,134,135,254,255 JTBQ Param 1 I(4) 4 scalar 18 KTM Scalar 3 I(4) 4 scalar COM LBTM Local 110 I(4) 4 scalar 110,111,112,114 LIST Scalar 3 I(4) 4 scalar COM LM Param 3 I(4) 4 scalar 5,7,59 LMH Scalar 5 I(4) 4 2 91719 COM 110 LMV Scalar 5 I(4) 4 2 91719 COM LOOPS Common 2 748952 LP1 Param 59 I(4) 4 scalar 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 Page 9 Source Listing OTLIFT2 2014-12-17 20:48 Symbol Table OTLIFT2.f Name Object Declared Type Bytes Dimen Elements Attributes References 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 OTLIFT2 Subr 1 P Local 72 R(4) 4 2 91719 208,209 P00 Local 69 R(4) 4 2 91719 178,187,188,189 P01 Local 69 R(4) 4 2 91719 180,188,189 P10 Local 69 R(4) 4 2 91719 179,187,189 P11 Local 69 R(4) 4 2 91719 181,189 PARALLEL Common 9 8240 PARTMP Local 75 R(4) 4 2 91719 275,279,282 PD Scalar 3 R(4) 4 2 91719 COM 113 PDSL Local 65 R(4) 4 2 91719 113,114 PHYS Common 2 7690036 PL Scalar 5 R(4) 4 scalar COM 209 PLQ Scalar 6 R(4) 4 scalar COM PP Local 66 R(4) 4 2 91719 156,165,169,187,189,243,252,256,27 5,277 PSP Local 71 R(4) 4 2 91719 198 PT Scalar 3 R(4) 4 scalar COM 114 PTBL Scalar 18 R(4) 4 2 10184 COM 178,179,180,181 Q Scalar 5 R(4) 4 3 4127355 COM 112 QBT Local 65 R(4) 4 2 91719 112,155,192 QQ Local 68 R(4) 4 2 91719 123,132,136,153,154,188,189,210,21 9,223,240,241,276,277 QS0 Scalar 8 R(4) 4 1 134 COM 144,146 RADIN Scalar 11 R(4) 4 2 91719 COM RADOT Scalar 11 R(4) 4 2 91719 COM RDP Scalar 5 R(4) 4 scalar COM 209 RDPQ Scalar 6 R(4) 4 scalar COM RDQ Scalar 5 R(4) 4 scalar COM 155 RDTH Scalar 5 R(4) 4 scalar COM 122 RDTHE Scalar 5 R(4) 4 scalar COM 242 RDTHEQ Scalar 6 R(4) 4 scalar COM RES Scalar 3 R(4) 4 2 91719 COM 113 RESTRT Scalar 62 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 62 L(4) 4 scalar COM SICE Scalar 3 R(4) 4 2 91719 COM SIGMA Scalar 62 L(4) 4 scalar COM SIGT4 Scalar 16 R(4) 4 2 91719 COM SLINDX Dummy 1 R(4) 4 2 91719 ARG,INOUT 104,282 SM Scalar 3 R(4) 4 2 91719 COM SQ Local 68 R(4) 4 2 91719 154,155 SQS Scalar 8 R(4) 4 1 134 COM 145,147 SQS00 Local 67 R(4) 4 2 91719 145,154 SQS10 Local 67 R(4) 4 2 91719 147,154 SST Scalar 14 R(4) 4 2 91719 COM STH Local 72 R(4) 4 2 91719 241,242 STHE Scalar 8 R(4) 4 1 76 COM 232,234 STHE00 Local 73 R(4) 4 2 91719 232,241 STHE10 Local 73 R(4) 4 2 91719 234,241 STHEQ Scalar 9 R(4) 4 1 152 COM Page 10 Source Listing OTLIFT2 2014-12-17 20:48 Symbol Table OTLIFT2.f Name Object Declared Type Bytes Dimen Elements Attributes References SWNET Scalar 12 R(4) 4 2 91719 COM T Scalar 5 R(4) 4 3 4127355 COM 111 T00 Local 74 R(4) 4 2 91719 265,275,276,277 T01 Local 74 R(4) 4 2 91719 267,276,277 T10 Local 74 R(4) 4 2 91719 266,275,277 T11 Local 74 R(4) 4 2 91719 268,277 T500 Dummy 1 R(4) 4 2 91719 ARG,INOUT 282 TBT Local 65 R(4) 4 2 91719 111,121,279 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 71 R(4) 4 2 91719 199 THE0 Scalar 8 R(4) 4 1 76 COM 231,233 THE0Q Scalar 9 R(4) 4 1 152 COM THESP Local 71 R(4) 4 2 91719 200,242 THL Scalar 5 R(4) 4 scalar COM 122 TP Local 72 R(4) 4 2 91719 209,210,211 TPSP Local 70 R(4) 4 2 91719 187,190,191,198,274 TQ Local 68 R(4) 4 2 91719 155,156,157 TTBL Scalar 18 R(4) 4 2 10184 COM 265,266,267,268 TTBLQ Scalar 18 R(4) 4 2 66880 COM TTH Local 66 R(4) 4 2 91719 122,123,124,242,243,244 TTHBT Local 66 R(4) 4 2 91719 121,122,192,199 TTHES Local 70 R(4) 4 2 91719 192,200 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 Page 11 Source Listing OTLIFT2 2014-12-17 20:48 Subprograms/Common Blocks OTLIFT2.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CTLBLK Common 2 96 LOOPS Common 2 748952 MASKS Common 2 34853220 OTLIFT2 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 no -Qdyncom -error_limit 30 Page 12 Source Listing OTLIFT2 2014-12-17 20:48 OTLIFT2.f 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 : OTLIFT2.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100