Page 1 Source Listing OTLIFT2 2025-03-12 18:23 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 2025-03-12 18:23 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 2025-03-12 18:23 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 2025-03-12 18:23 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 2025-03-12 18:23 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 2025-03-12 18:23 OTLIFT2.f 358 RETURN 359 END ENTRY POINTS Name otlift2_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 190 Label 276 AINT Func 195 scalar 195,228,282,315 APEBT Local 84 R(4) 4 2 91719 186,187,193,351 APESP Local 88 R(4) 4 2 91719 263,264 BQ Local 86 R(4) 4 2 91719 225,227 BQS00 Local 85 R(4) 4 2 91719 216,225 BQS10 Local 85 R(4) 4 2 91719 218,225 BTH Local 90 R(4) 4 2 91719 312,314 BTHE00 Local 91 R(4) 4 2 91719 303,312 BTHE10 Local 91 R(4) 4 2 91719 305,312 CAPA Param 48 R(4) 4 scalar 187,263 CP Param 51 R(4) 4 scalar 51 CTLBLK Common 98 96 SAVE D00 Param 48 R(4) 4 scalar 176,204,208,237,241,262,291,295,32 4,328 D8202 Param 49 R(4) 4 scalar 351 ELIVW Param 51 R(4) 4 scalar 51 ELOCP Param 51 R(4) 4 scalar 264 EXP Func 264 scalar 264 H10E5 Param 48 R(4) 4 scalar 187,262,263 H5E4 Param 48 R(4) 4 scalar 280,346 I Local 175 I(4) 4 scalar 175,176,181,182,183,184,185,186,18 7,192,193,194,195,196,201,202,203, 204,206,207,208,214,215,216,217,21 8,219,224,225,226,227,228,229,234, 235,236,237,239,240,241,247,248,24 9,250,251,252,253,258,259,260,261, 262,263,264,269,270,271,272,279,28 0,281,282,283,288,289,290,291,293, 294,295,301,302,303,304,305,306,31 1,312,313,314,315,316,321,322,323, 324,326,327,328,334,335,336,337,33 8,339,340,345,346,347,348,349,351, 354 IDIM1 Param 68 I(4) 4 scalar IDIM2 Param 68 I(4) 4 scalar IGSTL Param 63 I(4) 4 scalar 68 IGSTR Param 63 I(4) 4 scalar 68 IM Param 57 I(4) 4 scalar 65,68,82,83,84,85,86,87,88,89,90,9 1,92,93,116,122,124,138,139,140,14 1,142,143,152,154,175,181,192,201, 214,224,234,247,258,269,279,288,30 Page 7 Source Listing OTLIFT2 2025-03-12 18:23 Symbol Table OTLIFT2.f Name Object Declared Type Bytes Dimen Elements Attributes References 1,311,321,334,345 INPES Param 60 I(4) 4 scalar 65,68 INT Func 196 scalar 196,229,283,316 IP Local 336 I(4) 4 scalar 336,337,338,339,340 IPTB Local 82 I(4) 4 2 91719 283,289,290,293,294,302,336 IPTBK Local 302 I(4) 4 scalar 302,303,304,305,306 IQ Local 248 I(4) 4 scalar 248,250,251,252,253 IQTB Local 82 I(4) 4 2 91719 229,235,236,239,240,248 IT Local 249 I(4) 4 scalar 249,250,251,252,253 ITAIL Param 65 I(4) 4 scalar ITB Param 75 I(4) 4 scalar 135,145,239,240,293,294 ITBQ Param 75 I(4) 4 scalar 136,145 ITH Local 335 I(4) 4 scalar 335,337,338,339,340 ITHTB Local 82 I(4) 4 2 91719 316,322,323,326,327,335 ITTB Local 82 I(4) 4 2 91719 196,202,203,206,207,215,249 ITTBK Local 215 I(4) 4 scalar 215,216,217,218,219 J Local 174 I(4) 4 scalar 174,176,180,182,183,184,185,186,18 7,191,193,194,195,196,200,202,203, 204,206,207,208,213,215,216,217,21 8,219,223,225,226,227,228,229,233, 235,236,237,239,240,241,246,248,24 9,250,251,252,253,257,259,260,261, 262,263,264,268,270,271,272,278,28 0,281,282,283,287,289,290,291,293, 294,295,300,302,303,304,305,306,31 0,312,313,314,315,316,320,322,323, 324,326,327,328,333,335,336,337,33 8,339,340,344,346,347,348,349,351, 354 JAM Param 77 I(4) 4 scalar 114 JDIM1 Param 69 I(4) 4 scalar JDIM2 Param 69 I(4) 4 scalar JGSTL Param 64 I(4) 4 scalar 69 JGSTR Param 64 I(4) 4 scalar 69 JM Param 57 I(4) 4 scalar 66,69,77,82,83,84,85,86,87,88,89,9 0,91,92,93,116,122,124,138,139,140 ,141,142,143,152,154 JNPES Param 60 I(4) 4 scalar 66,69 JTAIL Param 66 I(4) 4 scalar JTB Param 75 I(4) 4 scalar 135,145,206,207,326,327 JTBQ Param 75 I(4) 4 scalar 145 LBTM Local 182 I(4) 4 scalar 182,183,184,186 LM Param 57 I(4) 4 scalar 77,124,134,154 LOOPS Common 113 748952 SAVE LP1 Param 77 I(4) 4 scalar 134 LSM Param 57 I(4) 4 scalar MASKS Common 121 34853220 SAVE OTLIFT2 Subr 1 P Local 90 R(4) 4 2 91719 280,281 P00 Local 87 R(4) 4 2 91719 250,259,260,261 P01 Local 87 R(4) 4 2 91719 252,260,261 P10 Local 87 R(4) 4 2 91719 251,259,261 P11 Local 87 R(4) 4 2 91719 253,261 PARALLEL Common 105 8240 PARTMP Local 93 R(4) 4 2 91719 347,351,354 Page 8 Source Listing OTLIFT2 2025-03-12 18:23 Symbol Table OTLIFT2.f Name Object Declared Type Bytes Dimen Elements Attributes References PDSL Local 83 R(4) 4 2 91719 185,186 PHYS Common 129 7690036 SAVE PP Local 84 R(4) 4 2 91719 228,237,241,259,261,315,324,328,34 7,349 PSP Local 89 R(4) 4 2 91719 270 QBT Local 83 R(4) 4 2 91719 184,227,264 QQ Local 86 R(4) 4 2 91719 195,204,208,225,226,260,261,282,29 1,295,312,313,348,349 SLINDX Dummy 1 R(4) 4 2 91719 ARG,INOUT 176,354 SQ Local 86 R(4) 4 2 91719 226,227 SQS00 Local 85 R(4) 4 2 91719 217,226 SQS10 Local 85 R(4) 4 2 91719 219,226 STH Local 90 R(4) 4 2 91719 313,314 STHE00 Local 91 R(4) 4 2 91719 304,313 STHE10 Local 91 R(4) 4 2 91719 306,313 T00 Local 92 R(4) 4 2 91719 337,347,348,349 T01 Local 92 R(4) 4 2 91719 339,348,349 T10 Local 92 R(4) 4 2 91719 338,347,349 T11 Local 92 R(4) 4 2 91719 340,349 T500 Dummy 1 R(4) 4 2 91719 ARG,INOUT 354 TBT Local 83 R(4) 4 2 91719 183,193,351 THBT Local 89 R(4) 4 2 91719 271 THESP Local 89 R(4) 4 2 91719 272,314 TP Local 90 R(4) 4 2 91719 281,282,283 TPSP Local 88 R(4) 4 2 91719 259,262,263,270,346 TQ Local 86 R(4) 4 2 91719 227,228,229 TTH Local 84 R(4) 4 2 91719 194,195,196,314,315,316 TTHBT Local 84 R(4) 4 2 91719 193,194,264,271 TTHES Local 88 R(4) 4 2 91719 264,272 VRBLS Common 151 67138308 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References AETA R(4) 4 264 1 45 COM 186 ALBASE R(4) 4 5139788 2 91719 COM ALBEDO R(4) 4 5506664 2 91719 COM CI R(4) 4 40 scalar COM CS R(4) 4 28 scalar COM CZEN R(4) 4 2204780 2 91719 COM CZMEAN R(4) 4 6607292 2 91719 COM DETA R(4) 4 84 1 45 COM DFRLG R(4) 4 444 1 46 COM DI R(4) 4 44 scalar COM DS R(4) 4 32 scalar COM DT R(4) 4 48 scalar COM DTD R(4) 4 16 scalar COM DTQ2 R(4) 4 8 scalar COM ELWDWN R(4) 4 2938532 2 91719 COM EPSR R(4) 4 370400 2 91719 COM FIRST L(4) 4 24 scalar COM FIS R(4) 4 733752 2 91719 COM GFFC R(4) 4 4406036 2 91719 COM Page 9 Source Listing OTLIFT2 2025-03-12 18:23 Symbol Table OTLIFT2.f Name Type Bytes Offset Dimen Elements Attributes References GLAT R(4) 4 1471028 2 91719 COM GLON R(4) 4 1837904 2 91719 COM HBM2 R(4) 4 0 2 91719 COM HBOT R(4) 4 3672284 2 91719 COM HDAC R(4) 4 5873540 2 91719 COM HDACV R(4) 4 6240416 2 91719 COM HTM R(4) 4 1834380 3 4127355 COM HTOP R(4) 4 3305408 2 91719 COM ICNT I(4) 4 40 1 1024 COM IDAT I(4) 4 8 1 3 COM IDN I(4) 4 36 scalar COM IDSP I(4) 4 4136 1 1024 COM IDTAD I(4) 4 68 scalar COM IHHA I(4) 4 3040 1 760 COM IHLA I(4) 4 0 1 760 COM IHRST I(4) 4 20 scalar COM IOUT I(4) 4 44 scalar COM IUP I(4) 4 32 scalar COM IVHA I(4) 4 9120 1 760 COM IVLA I(4) 4 6080 1 760 COM JEND I(4) 4 12 scalar COM 174 JEND_2U I(4) 4 8236 scalar COM JEND_M I(4) 4 20 scalar COM JEND_M2 I(4) 4 28 scalar COM 180,191,200,213,223,233,246,257,26 8,278,287,300,310,320,333,344 JRA I(4) 4 12160 1 760 COM JSTA I(4) 4 8 scalar COM 174 JSTA_2L I(4) 4 8232 scalar COM JSTA_M I(4) 4 16 scalar COM JSTA_M2 I(4) 4 24 scalar COM 180,191,200,213,223,233,246,257,26 8,278,287,300,310,320,333,344 KTM I(4) 4 0 scalar COM LIST I(4) 4 40 scalar COM LMH I(4) 4 15200 2 91719 COM 182 LMV I(4) 4 382076 2 91719 COM ME I(4) 4 4 scalar COM NBC I(4) 4 36 scalar COM NBOCO I(4) 4 72 scalar COM NCP I(4) 4 80 scalar COM NDDAMP I(4) 4 60 scalar COM NFCST I(4) 4 32 scalar COM NPHS I(4) 4 84 scalar COM NPREC I(4) 4 64 scalar COM NRADL I(4) 4 92 scalar COM NRADS I(4) 4 88 scalar COM NSHDE I(4) 4 76 scalar COM NTSD I(4) 4 52 scalar COM NTSTM I(4) 4 56 scalar COM NUM_PROCS I(4) 4 0 scalar COM PD R(4) 4 0 2 91719 COM 185 PL R(4) 4 48 scalar COM 281 PLQ R(4) 4 72 scalar COM PT R(4) 4 4 scalar COM 186 PTBL R(4) 4 7341044 2 10184 COM 250,251,252,253 Q R(4) 4 50628888 3 4127355 COM 184 Page 10 Source Listing OTLIFT2 2025-03-12 18:23 Symbol Table OTLIFT2.f Name Type Bytes Offset Dimen Elements Attributes References QS0 R(4) 4 628 1 134 COM 216,218 RADIN R(4) 4 737276 2 91719 COM RADOT R(4) 4 1104152 2 91719 COM RDP R(4) 4 64 scalar COM 281 RDPQ R(4) 4 76 scalar COM RDQ R(4) 4 56 scalar COM 227 RDTH R(4) 4 60 scalar COM 194 RDTHE R(4) 4 68 scalar COM 314 RDTHEQ R(4) 4 80 scalar COM RES R(4) 4 366876 2 91719 COM 185 RESTRT L(4) 4 28 scalar COM RMXSNAL R(4) 4 3524 2 91719 COM ROI R(4) 4 36 scalar COM ROS R(4) 4 24 scalar COM RUN L(4) 4 4 scalar COM SICE R(4) 4 1467504 2 91719 COM SIGMA L(4) 4 0 scalar COM SIGT4 R(4) 4 6974168 2 91719 COM SM R(4) 4 1100628 2 91719 COM SQS R(4) 4 1164 1 134 COM 217,219 SST R(4) 4 4772912 2 91719 COM STHE R(4) 4 2004 1 76 COM 304,306 STHEQ R(4) 4 2916 1 152 COM SWNET R(4) 4 2571656 2 91719 COM T R(4) 4 34119468 3 4127355 COM 183 TDTD R(4) 4 20 scalar COM TDTQ2 R(4) 4 12 scalar COM TG R(4) 4 4039160 2 91719 COM THE0 R(4) 4 1700 1 76 COM 303,305 THE0Q R(4) 4 2308 1 152 COM THL R(4) 4 52 scalar COM 194 TTBL R(4) 4 7381780 2 10184 COM 337,338,339,340 TTBLQ R(4) 4 7422516 2 66880 COM U R(4) 4 1100628 3 4127355 COM V R(4) 4 17610048 3 4127355 COM VBM2 R(4) 4 366876 2 91719 COM VBM3 R(4) 4 733752 2 91719 COM VTM R(4) 4 18343800 3 4127355 COM Page 11 Source Listing OTLIFT2 2025-03-12 18:23 Subprograms/Common Blocks OTLIFT2.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CTLBLK Common 98 96 SAVE LOOPS Common 113 748952 SAVE MASKS Common 121 34853220 SAVE OTLIFT2 Subr 1 PARALLEL Common 105 8240 PHYS Common 129 7690036 SAVE VRBLS Common 151 67138308 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 Page 12 Source Listing OTLIFT2 2025-03-12 18:23 OTLIFT2.f -D __linux__ -D __linux -D __gnu_linux__ -D unix -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 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 -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 -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 Page 13 Source Listing OTLIFT2 2025-03-12 18:23 OTLIFT2.f -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 : OTLIFT2.lst no -o COMPILER: Intel(R) Fortran 19.1-1655