Page 1 Source Listing TRPAUS 2014-12-17 20:48 TRPAUS.f 1 SUBROUTINE TRPAUS(PTROP,TTROP,ZTROP,UTROP,VTROP,SHTROP) 2 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 3 C . . . 4 C SUBPROGRAM: TRPAUS COMPUTE TROPOPAUSE DATA. 5 C PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22 6 C 7 C ABSTRACT: 8 C THIS ROUTINE COMPUTES TROPOPAUSE DATA. AT EACH MASS 9 C POINT A SURFACE UP SEARCH IS MADE FOR THE FIRST 10 C OCCURRENCE OF A THREE LAYER MEAN LAPSE RATE LESS THAN 11 C OR EQUAL TO A CRITICAL LAPSE RATE. THIS CRITCAL LAPSE 12 C RATE IS 2DEG/KM. THIS IS IN ACCORD WITH THE WMO 13 C DEFINITION OF A TROPOPAUSE. A MAXIMUM TROPOPAUSE 14 C PRESSURE OF 500MB IS ENFORCED. ONC THE TROPOPAUSE 15 C IS LOCATED IN A COLUMN, PRESSURE, TEMPERATURE, U 16 C AND V WINDS, AND VERTICAL WIND SHEAR ARE COMPUTED. 17 C . 18 C 19 C PROGRAM HISTORY LOG: 20 C 92-12-22 RUSS TREADON 21 C 97-03-06 GEOFF MANIKIN - CHANGED CRITERIA FOR DETERMINING 22 C THE TROPOPAUSE AND ADDED HEIGHT 23 C 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D 24 C 00-01-04 JIM TUCCILLO - MPI VERSION 25 C 26 C USAGE: CALL TRPAUS(PTROP,TTROP,ZTROP,UTROP,VTROP,SHTROP) 27 C INPUT ARGUMENT LIST: 28 C NONE 29 C 30 C OUTPUT ARGUMENT LIST: 31 C PTROP - TROPOPAUSE PRESSURE. 32 C TTROP - TROPOPAUSE TEMPERATURE. 33 C ZTROP - TROPOPAUSE HEIGHT 34 C UTROP - TROPOPAUSE U WIND COMPONENT. 35 C VTROP - TROPOPAUSE V WIND COMPONENT. 36 C SHTROP - VERTICAL WIND SHEAR AT TROPOPAUSE. 37 C 38 C OUTPUT FILES: 39 C NONE 40 C 41 C SUBPROGRAMS CALLED: 42 C UTILITIES: 43 C H2V 44 C 45 C LIBRARY: 46 C COMMON - VRBLS 47 C LOOPS 48 C EXTRA 49 C OPTIONS 50 C MASKS 51 C INDX 52 C 53 C ATTRIBUTES: 54 C LANGUAGE: FORTRAN 55 C MACHINE : CRAY C-90 56 C$$$ 57 C Page 2 Source Listing TRPAUS 2014-12-17 20:48 TRPAUS.f 58 C 59 C INCLUDE ETA GRID DIMENSIONS. SET/DERIVE PARAMETERS. 60 C 61 INCLUDE "parmeta" 79 INCLUDE "params" 80 C 81 C 82 C PARAMTER CRTLAP SPECIFIES THE CRITICAL LAPSE RATE 83 C (IN K/M) IDENTIFYING THE TROPOPAUSE. WE START 84 C LOOKING FOR THE TROPOPAUSE ABOVE PRESSURE LEVEL 85 C PSTART (IN PASALS). 127 PARAMETER (CRTLAP=0.002E0, PSTART=5.0E4) 128 C 129 C DECLARE VARIABLES. 130 C 131 REAL PTROP(IM,JM),TTROP(IM,JM),ZTROP(IM,JM),UTROP(IM,JM) 132 REAL VTROP(IM,JM),SHTROP(IM,JM),EGRIDU(IM,JM),EGRIDV(IM,JM) 133 REAL TLAPSE(LM),DZ2(LM),DELT2(LM),TLAPSE2(LM) 134 C 135 C INCLUDE COMMON BLOCKS. 136 INCLUDE "VRBLS.comm" 143 INCLUDE "LOOPS.comm" 151 INCLUDE "EXTRA.comm" 163 INCLUDE "MASKS.comm" 171 INCLUDE "OPTIONS.comm" 175 INCLUDE "INDX.comm" 181 INCLUDE "CTLBLK.comm" 182 C 183 C***************************************************************************** 184 C START TRPAUS HERE. 185 C 186 C LOOP OVER THE HORIZONTAL GRID. 187 C 202 DO J=JSTA,JEND 203 DO I=1,IM 204 PTROP(I,J) = SPVAL 205 TTROP(I,J) = SPVAL 206 ZTROP(I,J) = SPVAL 207 UTROP(I,J) = SPVAL 208 VTROP(I,J) = SPVAL 209 SHTROP(I,J) = SPVAL 210 EGRIDU(I,J) = D00 211 EGRIDV(I,J) = D00 212 ENDDO 213 ENDDO 214 C 215 !$omp parallel do 216 !$omp& private(delt,delt2,dz,dz2,ie,iw,l,llmh,pm,rsqdif, 217 !$omp& tlapse,tlapse2,u0,u0l,uh,uh0,ul, 218 !$omp& v0,v0l,vh,vh0) 219 DO 20 J=JSTA_M,JEND_M 220 DO 20 I=2,IM-1 221 C 222 C COMPUTE THE TEMPERATURE LAPSE RATE (-DT/DZ) BETWEEN ETA 223 C LAYERS MOVING UP FROM THE GROUND. THE FIRST ETA LAYER 224 C ABOVE PRESSURE "PSTART" IN WHICH THE LAPSE RATE IS LESS 225 C THAN THE CRITCAL LAPSE RATE IS LABELED THE TROPOPAUSE. Page 3 Source Listing TRPAUS 2014-12-17 20:48 TRPAUS.f 226 C 227 LLMH=LMH(I,J) 228 C 229 DO 10 L=LLMH-1,2,-1 230 PM = PINT(I,J,L) 231 DELT = T(I,J,L-1)-T(I,J,L) 232 DZ = D50*(ZINT(I,J,L-1)-ZINT(I,J,L+1)) 233 TLAPSE(L) = -DELT/DZ 234 C 235 IF ((TLAPSE(L).LT.CRTLAP).AND.(PM.LT.PSTART)) THEN 236 IF (L .EQ. 2 .AND. TLAPSE(L) .LT. CRTLAP) GOTO15 237 DZ2(L+1) = 0. 238 C 239 DO 17 LL=L,3,-1 240 DZ2(LL) = 0. 241 DELT2(LL) = 0. 242 TLAPSE2(LL) = 0. 243 DZ2(LL) = (2./3.)*(ZINT(I,J,LL-2)-ZINT(I,J,L+1)) 244 IF ((DZ2(LL) .GT. 2000.) .AND. 245 1 (DZ2(LL+1) .GT. 2000.)) GO TO 15 246 DELT2(LL) = T(I,J,LL-2)-T(I,J,L) 247 TLAPSE2(LL) = -DELT2(LL)/DZ2(LL) 248 C 249 IF (TLAPSE2(LL) .GT. CRTLAP) THEN 250 GOTO 10 251 ENDIF 252 C 253 17 CONTINUE 254 ELSE 255 GOTO 10 256 ENDIF 257 C 258 15 PTROP(I,J) = D50*(PINT(I,J,L)+PINT(I,J,L+1)) 259 TTROP(I,J) = T(I,J,L) 260 ZTROP(I,J)= HTM(I,J,L+1)*T(I,J,L+1)* 261 X (Q(I,J,L+1)*D608+H1)*ROG* 262 X (LOG(PINT(I,J,L+1))-LOG(PTROP(I,J))) 263 X +ZINT(I,J,L+1) 264 C 265 IE=I+IHE(J) 266 IW=I+IHW(J) 267 UH = D25*(U(I,J-1,L-1)+U(IW,J,L-1)+ 268 X U(IE,J,L-1) +U(I,J+1,L-1)) 269 U0 = D25*(U(I,J-1,L )+U(IW,J,L )+ 270 X U(IE,J,L )+U(I,J+1,L )) 271 UL = D25*(U(I,J-1,L+1)+U(IW,J,L+1)+ 272 X U(IE,J,L+1)+U(I,J+1,L+1)) 273 UH0 = D50*(UH+U0) 274 U0L = D50*(U0+UL) 275 VH = D25*(V(I,J-1,L-1)+V(IW,J,L-1)+ 276 X V(IE,J,L-1)+V(I,J+1,L-1)) 277 V0 = D25*(V(I,J-1,L )+V(IW,J,L )+ 278 X V(IE,J,L )+V(I,J+1 ,L )) 279 VL = D25*(V(I,J-1,L+1)+V(IW,J,L+1)+ 280 X V(IE,J,L+1)+V(I,J+1,L+1)) 281 VH0 = D50*(VH+V0) 282 V0L = D50*(V0+VL) Page 4 Source Listing TRPAUS 2014-12-17 20:48 TRPAUS.f 283 EGRIDU(I,J) = U0 284 EGRIDV(I,J) = V0 285 DZ = ZINT(I,J,L)-ZINT(I,J,L+1) 286 RSQDIF = SQRT((UH0-U0L)**2+(VH0-V0L)**2) 287 SHTROP(I,J) = RSQDIF/DZ 288 GOTO 20 289 10 CONTINUE 290 291 CX WRITE(88,*)'REACHED TOP FOR K,P,TLAPSE: ',K,PM,TLAPSE 292 293 DZ = D50*(ZINT(I,J,1)-ZINT(I,J,3)) 294 PTROP(I,J) = D50*(PINT(I,J,2)+PINT(I,J,3)) 295 TTROP(I,J) = T(I,J,2) 296 ZTROP(I,J)= HTM(I,J,3)*T(I,J,3)*(Q(I,J,3)*D608+H1)*ROG* 297 X (LOG(PINT(I,J,3))-LOG(PTROP(I,J)))+ZINT(I,J,3) 298 UH = D25*(U(I,J-1,2)+U(IW,J,2)+ 299 X U(IE,J,2)+U(I,J+1,2)) 300 VH = D25*(V(I,J-1,2)+V(IW,J,2)+ 301 X V(IE,J,2)+V(I,J+1,2)) 302 UL = D25*(U(I,J-1,3 )+U(IW,J,3 )+ 303 X U(IE,J,3 )+U(I,J+1,3 )) 304 VL = D25*(V(I,J-1,3 )+V(IW,J,3 )+ 305 X V(IE,J,3 )+V(I,J+1,3 )) 306 EGRIDU(I,J) = UH 307 EGRIDV(I,J) = VH 308 RSQDIF = SQRT((UH-UL)**2+(VH-VL)**2) 309 SHTROP(I,J) = RSQDIF/DZ 310 311 CX WRITE(82,1010)I,J,L,PTROP(I,J)*D01,TTROP(I,J), 312 CX X EGRIDU(I,J),EGRIDV(I,J),SHTROP(I,J) 313 C 314 20 CONTINUE 315 316 C CALCULATE U-V AT V POINTS. 317 CALL H2V(EGRIDU,EGRIDV,UTROP,VTROP) 318 319 C 320 C END OF ROUTINE. 321 C 322 RETURN 323 END Page 5 Source Listing TRPAUS 2014-12-17 20:48 Entry Points TRPAUS.f ENTRY POINTS Name trpaus_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 10 Label 178 118,139,144 15 Label 147 125,134 17 Label 142 128 20 Label 203 108,109,177 A2 Param 41 R(4) 4 scalar A3 Param 41 R(4) 4 scalar A4 Param 41 R(4) 4 scalar AD05 Param 33 R(4) 4 scalar ALPINT Scalar 4 R(4) 4 3 4219074 COM BETA Param 37 R(4) 4 scalar 37 BTG Param 37 R(4) 4 scalar CAPA Param 28 R(4) 4 scalar 35 CFT0 Param 33 R(4) 4 scalar CM1 Param 23 R(4) 4 scalar CM2 Param 23 R(4) 4 scalar CM3 Param 23 R(4) 4 scalar CP Param 34 R(4) 4 scalar 36,40 CPDR Param 36 R(4) 4 scalar CRTLAP Param 69 R(4) 4 scalar 124,125,138 CTLBLK Common 2 96 D00 Param 25 R(4) 4 scalar 99,100 D001 Param 25 R(4) 4 scalar D0065 Param 29 R(4) 4 scalar D01 Param 25 R(4) 4 scalar D05 Param 29 R(4) 4 scalar 33 D1 Param 25 R(4) 4 scalar D115 Param 29 R(4) 4 scalar D125 Param 27 R(4) 4 scalar D25 Param 27 R(4) 4 scalar 156,158,160,164,166,168,187,189,19 1,193 D50 Param 25 R(4) 4 scalar 121,147,162,163,170,171,182,183 D608 Param 29 R(4) 4 scalar 150,185 DELT Local 120 R(4) 4 scalar 120,122 DELT2 Local 75 R(4) 4 1 45 130,135,136 DP10M Param 35 R(4) 4 scalar DT Scalar 4 R(4) 4 scalar COM DTR Param 34 R(4) 4 scalar 34 DZ Local 121 R(4) 4 scalar 121,122,174,176,182,198 DZ2 Local 75 R(4) 4 1 45 126,129,132,133,134,136 EGRIDU Local 74 R(4) 4 2 91719 99,172,195,206 EGRIDV Local 74 R(4) 4 2 91719 100,173,196,206 ELDR Param 36 R(4) 4 scalar ELWV Param 36 R(4) 4 scalar 36 EPS Param 39 R(4) 4 scalar 39 Page 6 Source Listing TRPAUS 2014-12-17 20:48 Symbol Table TRPAUS.f Name Object Declared Type Bytes Dimen Elements Attributes References EPSQ2 Param 40 R(4) 4 scalar ERAD Param 34 R(4) 4 scalar EXTRA Common 3 71506268 FIRST Scalar 3 R(4) 4 scalar COM FIS Scalar 3 R(4) 4 2 91719 COM FMD Param 39 R(4) 4 scalar 39 FMW Param 39 R(4) 4 scalar 39 FSL Scalar 8 R(4) 4 2 91719 COM G Param 32 R(4) 4 scalar 32 GI Param 32 R(4) 4 scalar 36 H1 Param 26 R(4) 4 scalar 33,150,185 H100 Param 27 R(4) 4 scalar H1000 Param 27 R(4) 4 scalar H10000 Param 28 R(4) 4 scalar H10E5 Param 28 R(4) 4 scalar H1E2 Param 30 R(4) 4 scalar H1E4 Param 30 R(4) 4 scalar H1M12 Param 26 R(4) 4 scalar H1M2 Param 30 R(4) 4 scalar H1M5 Param 27 R(4) 4 scalar H2 Param 26 R(4) 4 scalar H2V Subr 206 206 H4 Param 26 R(4) 4 scalar H999 Param 25 R(4) 4 scalar H99999 Param 26 R(4) 4 scalar HBM2 Scalar 3 R(4) 4 2 91719 COM HTM Scalar 5 R(4) 4 3 4127355 COM 149,185 I Local 92 I(4) 4 scalar 92,93,94,95,96,97,98,99,100,109,11 6,119,120,121,132,135,147,148,149, 150,151,152,154,155,156,157,158,15 9,160,161,164,165,166,167,168,169, 172,173,174,176,182,183,184,185,18 6,187,188,189,190,191,192,193,194, 195,196,198 IBESSL Scalar 2 I(4) 4 scalar COM 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 IE Local 154 I(4) 4 scalar 154,157,159,161,165,167,169,188,19 0,192,194 IFLAG Scalar 2 I(4) 4 scalar COM IGSTL Param 9 I(4) 4 scalar 14 IGSTR Param 9 I(4) 4 scalar 14 IHE Scalar 3 I(4) 4 1 387 COM 154 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 IHW Scalar 3 I(4) 4 1 387 COM 155 IM Param 3 I(4) 4 scalar 2,3,4,5,6,7,8,9,11,14,73,74,92,109 IM1 Param 6 I(4) 4 scalar IMJM Param 2 I(4) 4 scalar 5 Page 7 Source Listing TRPAUS 2014-12-17 20:48 Symbol Table TRPAUS.f Name Object Declared Type Bytes Dimen Elements Attributes References IMT Param 4 I(4) 4 scalar INDX Common 2 6192 INPES Param 6 I(4) 4 scalar 11,14 IOFFS Scalar 2 I(4) 4 scalar COM IOUT Scalar 3 I(4) 4 scalar COM ITAIL Param 11 I(4) 4 scalar IUP Scalar 7 I(4) 4 scalar COM IVE Scalar 3 I(4) 4 1 387 COM IVHA Scalar 3 I(4) 4 1 760 COM IVLA Scalar 3 I(4) 4 1 760 COM IVW Scalar 3 I(4) 4 1 387 COM IW Local 155 I(4) 4 scalar 155,156,158,160,164,166,168,187,18 9,191,193 J Local 91 I(4) 4 scalar 91,93,94,95,96,97,98,99,100,108,11 6,119,120,121,132,135,147,148,149, 150,151,152,154,155,156,157,158,15 9,160,161,164,165,166,167,168,169, 172,173,174,176,182,183,184,185,18 6,187,188,189,190,191,192,193,194, 195,196,198 JAM Param 6 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 91 JEND_2U Scalar 8 I(4) 4 scalar COM JEND_M Scalar 7 I(4) 4 scalar COM 108 JEND_M2 Scalar 7 I(4) 4 scalar COM 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,12,15,73,74 JM2 Param 6 I(4) 4 scalar JMT Param 4 I(4) 4 scalar 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 91 JSTA_2L Scalar 8 I(4) 4 scalar COM JSTA_M Scalar 7 I(4) 4 scalar COM 108 JSTA_M2 Scalar 7 I(4) 4 scalar COM JTAIL Param 12 I(4) 4 scalar KMNT Scalar 5 I(4) 4 2 4118670 COM KMNTM Scalar 5 I(4) 4 1 45 COM KSAV Param 14 I(4) 4 scalar KSB Scalar 2 I(4) 4 scalar COM KSFI Param 13 I(4) 4 scalar KSLI Param 14 I(4) 4 scalar KSLP Param 14 I(4) 4 scalar KSLPD Param 13 I(4) 4 scalar KSMUD Param 13 I(4) 4 scalar KSRH Param 14 I(4) 4 scalar KSSLP Param 13 I(4) 4 scalar KST Param 13 I(4) 4 scalar KSUV Param 14 I(4) 4 scalar L Local 118 I(4) 4 scalar 118,119,120,121,122,124,125,126,12 8,132,135,147,148,149,150,151,152, 156,157,158,159,160,161,164,165,16 Page 8 Source Listing TRPAUS 2014-12-17 20:48 Symbol Table TRPAUS.f Name Object Declared Type Bytes Dimen Elements Attributes References 6,167,168,169,174 LB Param 9 I(4) 4 scalar LHEAT Param 40 I(4) 4 scalar 40 LHTOCP Param 40 I(4) 4 scalar LIST Scalar 3 I(4) 4 scalar COM LL Local 128 I(4) 4 scalar 128,129,130,131,132,133,134,135,13 6,138 LLMH Local 116 I(4) 4 scalar 116,118 LM Param 3 I(4) 4 scalar 5,8,19,75 LM1 Param 8 I(4) 4 scalar LMH Scalar 5 I(4) 4 2 91719 COM 116 LMV Scalar 5 I(4) 4 2 91719 COM LOG Func 151 scalar 151,186 LOOPS Common 2 748952 LP1 Param 8 I(4) 4 scalar 4 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 NINC Param 7 I(4) 4 scalar 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 NSTAT Param 19 I(4) 4 scalar NSUMD Param 15 I(4) 4 scalar 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 NWORD Param 19 I(4) 4 scalar 19 NWORD3 Param 19 I(4) 4 scalar NWORD6 Param 19 I(4) 4 scalar OLDRD Scalar 10 R(4) 4 scalar COM ONEPS Param 39 R(4) 4 scalar OPTIONS Common 2 24 OVERRC Param 33 R(4) 4 scalar 33 P1000 Param 35 R(4) 4 scalar PARALLEL Common 9 8240 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 PINT Scalar 4 R(4) 4 3 4219074 COM 119,147,151,183,186 PM Local 119 R(4) 4 scalar 119,124 PQ0 Param 41 R(4) 4 scalar PSLP Scalar 6 R(4) 4 2 91719 COM PSTART Param 69 R(4) 4 scalar 124 PTROP Dummy 1 R(4) 4 2 91719 ARG,INOUT 93,147,151,183,186 PTSL Scalar 7 R(4) 4 2 91719 COM Q Scalar 5 R(4) 4 3 4127355 COM 150,185 Page 9 Source Listing TRPAUS 2014-12-17 20:48 Symbol Table TRPAUS.f Name Object Declared Type Bytes Dimen Elements Attributes References QSL Scalar 9 R(4) 4 2 91719 COM RCAPA Param 35 R(4) 4 scalar RD Param 32 R(4) 4 scalar 32,36,40 RDOCP Param 40 R(4) 4 scalar RES Scalar 3 R(4) 4 2 91719 COM RESTRT Scalar 3 R(4) 4 scalar COM RG Param 36 R(4) 4 scalar ROG Param 32 R(4) 4 scalar 150,185 RSQDIF Local 175 R(4) 4 scalar 175,176,197,198 RTD Param 34 R(4) 4 scalar RUN Scalar 3 R(4) 4 scalar COM SATDEL Scalar 2 R(4) 4 scalar COM SHTROP Dummy 1 R(4) 4 2 91719 ARG,INOUT 98,176,198 SICE Scalar 3 R(4) 4 2 91719 COM SIGMA Scalar 3 R(4) 4 scalar COM SLP Scalar 5 R(4) 4 2 91719 COM SM Scalar 3 R(4) 4 2 91719 COM SMTHA Param 15 R(4) 4 scalar SMTHB Param 15 R(4) 4 scalar SPVAL Scalar 2 R(4) 4 scalar COM 93,94,95,96,97,98 SQRT Func 175 scalar 175,197 STDRD Scalar 10 R(4) 4 scalar COM T Scalar 5 R(4) 4 3 4127355 COM 120,135,148,149,184,185 T500 Scalar 6 R(4) 4 2 91719 COM TFRZ Param 39 R(4) 4 scalar TLAPSE Local 75 R(4) 4 1 45 122,124,125 TLAPSE2 Local 75 R(4) 4 1 45 131,136,138 TRPAUS Subr 1 TSL Scalar 8 R(4) 4 2 91719 COM TTROP Dummy 1 R(4) 4 2 91719 ARG,INOUT 94,148,184 TTV Scalar 8 R(4) 4 2 91719 COM U Scalar 5 R(4) 4 3 4127355 COM 156,157,158,159,160,161,187,188,19 1,192 U0 Local 158 R(4) 4 scalar 158,162,163,172 U0L Local 163 R(4) 4 scalar 163,175 UH Local 156 R(4) 4 scalar 156,162,187,195,197 UH0 Local 162 R(4) 4 scalar 162,175 UL Local 160 R(4) 4 scalar 160,163,191,197 UTROP Dummy 1 R(4) 4 2 91719 ARG,INOUT 96,206 V Scalar 5 R(4) 4 3 4127355 COM 164,165,166,167,168,169,189,190,19 3,194 V0 Local 166 R(4) 4 scalar 166,170,171,173 V0L Local 171 R(4) 4 scalar 171,175 VBM2 Scalar 3 R(4) 4 2 91719 COM VBM3 Scalar 3 R(4) 4 2 91719 COM VH Local 164 R(4) 4 scalar 164,170,189,196,197 VH0 Local 170 R(4) 4 scalar 170,175 VL Local 168 R(4) 4 scalar 168,171,193,197 VRBLS Common 2 67138308 VTM Scalar 5 R(4) 4 3 4127355 COM VTROP Dummy 1 R(4) 4 2 91719 ARG,INOUT 97,206 Z1000 Scalar 9 R(4) 4 2 91719 COM ZINT Scalar 4 R(4) 4 3 4219074 COM 121,132,152,174,182,186 ZTROP Dummy 1 R(4) 4 2 91719 ARG,INOUT 95,149,185 Page 10 Source Listing TRPAUS 2014-12-17 20:48 Subprograms/Common Blocks TRPAUS.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CTLBLK Common 2 96 EXTRA Common 3 71506268 INDX Common 2 6192 LOOPS Common 2 748952 MASKS Common 2 34853220 OPTIONS Common 2 24 PARALLEL Common 9 8240 TRPAUS Subr 1 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__ Page 11 Source Listing TRPAUS 2014-12-17 20:48 TRPAUS.f -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 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 : TRPAUS.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100