Page 1 Source Listing FDLVL 2014-12-17 20:47 FDLVL.f 1 SUBROUTINE FDLVL(ITYPE,TFD,UFD,VFD) 2 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 3 C . . . 4 C SUBPROGRAM: FDLVL COMPUTES FD LEVEL T, U, V 5 C PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-22 6 C 7 C ABSTRACT: 8 C THIS ROUTINE COMPUTES TEMPERATURE, U WIND COMPONENT, 9 C AND V WIND COMPONENT ON THE NFD=6 FD LEVELS. THE 10 C HEIGHT OF THESE LEVELS (IN METERS) IS GIVEN IN THE 11 C DATA STATEMENT BELOW. THE ALGORITHM PROCEEDS AS 12 C FOLLOWS. (AGL IN PARENTHESES) 13 C 14 C AT EACH MASS POINT MOVE UP VERTICALLY FROM THE LM-TH (LOWEST 15 C ATMOSPHERIC) ETA LAYER. FIND THE ETA LAYERS WHOSE 16 C HEIGHT (ABOVE GROUND) BOUNDS THE TARGET FD LEVEL HEIGHT. 17 C VERTICALLY INTERPOLATE TO GET TEMPERATURE AT THIS FD 18 C LEVEL. AVERAGE THE FOUR SURROUNDING WINDS 19 C TO GET A MASS POINT WIND. VERTICALLY INTERPOLATE THESE 20 C MASS POINT WINDS TO THE TARGET FD LEVEL. CONTINUE THIS 21 C PROCESS UNTIL ALL NFD=6 FD LEVELS HAVE BEEN PROCESSED. 22 C MOVE ON TO THE NEXT MASS POINT. 23 C 24 C AVERAGING THE FOUR ABOVE GROUND WINDS TO THE MASS POINT 25 C WAS FOUND TO SMOOTH THE FIELD AND REDUCE THE OCCURRENCE 26 C OF POINT PEAK WINDS FAR IN EXCESS OF THE WINDS AT 27 C ADJACENT POINTS. 28 C . 29 C 30 C PROGRAM HISTORY LOG: 31 C 92-12-22 RUSS TREADON 32 C 93-11-23 RUSS TREADON - CORRECTED ROUTINE TO COMPUTE 33 C FD LEVELS WITH REPECT TO MEAN SEA LEVEL. 34 C 94-01-04 MICHAEL BALDWIN - INCLUDE OPTIONS FOR COMPUTING 35 C EITHER AGL OR MSL 36 C 98-06-15 T BLACK - CONVERSION FROM 1-D TO 2-D 37 C 00-01-04 JIM TUCCILLO - MPI VERSION 38 C 39 C USAGE: CALL FDLVL(ITYPE,TFD,UFD,VFD) 40 C INPUT ARGUMENT LIST: 41 C ITYPE - FLAG THAT DETERMINES WHETHER MSL (1) OR AGL (2) 42 C LEVELS ARE USED. 43 C 44 C OUTPUT ARGUMENT LIST: 45 C TFD - TEMPERATURE (K) ON FD LEVELS. 46 C UFD - U WIND (M/S) ON FD LEVELS. 47 C VFD - V WIND (M/S) ON FD LEVELS. 48 C 49 C OUTPUT FILES: 50 C NONE 51 C 52 C SUBPROGRAMS CALLED: 53 C UTILITIES: 54 C H2V 55 C 56 C LIBRARY: 57 C COMMON - VRBLS Page 2 Source Listing FDLVL 2014-12-17 20:47 FDLVL.f 58 C LOOPS 59 C EXTRA 60 C MASKS 61 C OPTIONS 62 C INDX 63 C 64 C ATTRIBUTES: 65 C LANGUAGE: FORTRAN 66 C MACHINE : CRAY C-90 67 C$$$ 68 C 69 C 70 C 71 C 72 C SET NUMBER OF FD LEVELS. 73 PARAMETER (NFD=6) 74 C 75 C INCLUDE PARAMETERS. 76 INCLUDE "parmeta" 94 INCLUDE "params" 95 C 96 C DECLARE VARIABLES 97 C 139 INTEGER LVL(NFD) 140 REAL DZABV(NFD), HTFD(NFD) 141 REAL TFD(IM,JM,NFD),UFD(IM,JM,NFD) 142 REAL VFD(IM,JM,NFD),EGRIDU(IM,JM,NFD),EGRIDV(IM,JM,NFD) 143 C 144 C INCLUDE COMMON BLOCKS. 145 INCLUDE "VRBLS.comm" 152 INCLUDE "LOOPS.comm" 160 INCLUDE "EXTRA.comm" 172 INCLUDE "MASKS.comm" 180 INCLUDE "OPTIONS.comm" 184 INCLUDE "INDX.comm" 190 INCLUDE "CTLBLK.comm" 191 C 192 C SET FD LEVEL HEIGHTS IN METERS. 207 DATA HTFD / 914.E0,1524.E0,1829.E0, 208 X 2134.E0,2743.E0,3658.E0/ 209 C 210 C**************************************************************** 211 C START FDLVL HERE 212 C 213 C INITIALIZE ARRAYS. 214 C 215 !$omp parallel do 216 DO 10 IFD = 1,NFD 217 DO J=JSTA,JEND 218 DO I=1,IM 219 TFD(I,J,IFD) = SPVAL 220 UFD(I,J,IFD) = SPVAL 221 VFD(I,J,IFD) = SPVAL 222 EGRIDU(I,J,IFD) = D00 223 EGRIDV(I,J,IFD) = D00 224 ENDDO 225 ENDDO Page 3 Source Listing FDLVL 2014-12-17 20:47 FDLVL.f 226 10 CONTINUE 227 C 228 C MSL FD LEVELS 229 C 230 IF (ITYPE.EQ.1) THEN 231 C 232 C LOOP OVER HORIZONTAL GRID. 233 C 234 C ASSUME THAT U, V, T, AND LMV HAVE UPDATED HALOS 235 C 236 DO 50 J=JSTA_M,JEND_M 237 DO 50 I=2,IM-1 238 IFD = 1 239 C 240 C LOCATE VERTICAL INDICES OF T,U,V, LEVEL JUST 241 C ABOVE EACH FD LEVEL. 242 C 243 DO 20 L = LM,1,-1 244 HTTUV = D50*(ZINT(I,J,L)+ZINT(I,J,L+1)) 245 IF (HTTUV.GT.HTFD(IFD)) THEN 246 LVL(IFD) = L 247 DZABV(IFD) = HTTUV-HTFD(IFD) 248 IFD = IFD + 1 249 IF (IFD.GT.NFD) GOTO 30 250 ENDIF 251 20 CONTINUE 252 C 253 C COMPUTE T, U, AND V AT FD LEVELS. 254 C 255 30 CONTINUE 256 C 257 IE=I+IHE(J) 258 IW=I+IHW(J) 259 DO 40 IFD = 1,NFD 260 L = LVL(IFD) 261 IF (L.LT.LM) THEN 262 DZ = D50*(ZINT(I,J,L)-ZINT(I,J,L+2)) 263 RDZ = 1./DZ 264 DELT = T(I,J,L)-T(I,J,L+1) 265 UH=0.25*(U(IE,J,L)+U(IW,J,L) 266 1 +U(I,J+1,L)+U(I,J-1,L)) 267 VH=0.25*(V(IE,J,L)+V(IW,J,L) 268 1 +V(I,J+1,L)+V(I,J-1,L)) 269 UL=0.25*(U(IE,J,L+1)+U(IW,J,L+1) 270 1 +U(I,J+1,L+1)+U(I,J-1,L+1)) 271 VL=0.25*(V(IE,J,L+1)+V(IW,J,L+1) 272 1 +V(I,J+1,L+1)+V(I,J-1,L+1)) 273 C 274 DELU = UH - UL 275 DELV = VH - VL 276 TFD(I,J,IFD) = T(I,J,L) - DELT*RDZ*DZABV(IFD) 277 EGRIDU(I,J,IFD) = UH - DELU*RDZ*DZABV(IFD) 278 EGRIDV(I,J,IFD) = VH - DELV*RDZ*DZABV(IFD) 279 ELSE 280 TFD(I,J,IFD) = T(I,J,L) 281 EGRIDU(I,J,IFD)=0.25*(U(IE,J,L)+U(IW,J,L) 282 1 +U(I,J+1,L)+U(I,J-1,L)) Page 4 Source Listing FDLVL 2014-12-17 20:47 FDLVL.f 283 EGRIDV(I,J,IFD)=0.25*(V(IE,J,L)+V(IW,J,L) 284 1 +V(I,J+1,L)+V(I,J-1,L)) 285 ENDIF 286 40 CONTINUE 287 C 288 C COMPUTE FD LEVEL T, U, AND V AT NEXT K. 289 C 290 50 CONTINUE 291 C END OF MSL FD LEVELS 292 ELSE 293 C 294 C AGL FD LEVELS 295 C 296 C 297 C LOOP OVER HORIZONTAL GRID. 298 C 299 DO 250 J=JSTA_M,JEND_M 300 DO 250 I=2,IM-1 301 HTSFC = FIS(I,J)*GI 302 LLMH = LMH(I,J) 303 IFD = 1 304 C 305 C LOCATE VERTICAL INDICES OF T,U,V, LEVEL JUST 306 C ABOVE EACH FD LEVEL. 307 C 308 DO 220 L = LLMH,1,-1 309 HTTUV = D50*(ZINT(I,J,L)+ZINT(I,J,L+1)) 310 HTABV = HTTUV-HTSFC 311 IF (HTABV.GT.HTFD(IFD)) THEN 312 LVL(IFD) = L 313 DZABV(IFD) = HTABV-HTFD(IFD) 314 IFD = IFD + 1 315 IF (IFD.GT.NFD) GOTO 230 316 ENDIF 317 220 CONTINUE 318 C 319 C COMPUTE T, U, AND V AT FD LEVELS. 320 C 321 230 CONTINUE 322 C 323 IE=I+IHE(J) 324 IW=I+IHW(J) 325 DO 240 IFD = 1,NFD 326 L = LVL(IFD) 327 IF (L.LT.LM) THEN 328 DZ = D50*(ZINT(I,J,L)-ZINT(I,J,L+2)) 329 RDZ = 1./DZ 330 DELT = T(I,J,L)-T(I,J,L+1) 331 C 332 LOFF = L-LLMH 333 UH=0.25*(U(IE,J,LMV(IE,J)+LOFF)+U(IW,J,LMV(IW,J)+LOFF) 334 1 +U(I,J+1,LMV(I,J+1)+LOFF)+U(I,J-1,LMV(I,J-1)+LOFF)) 335 VH=0.25*(V(IE,J,LMV(IE,J)+LOFF)+V(IW,J,LMV(IW,J)+LOFF) 336 1 +V(I,J+1,LMV(I,J+1)+LOFF)+V(I,J-1,LMV(I,J-1)+LOFF)) 337 338 LOFF = L+1-LLMH 339 UL=0.25*(U(IW,J,LMV(IW,J)+LOFF)+U(IE,J,LMV(IE,J)+LOFF) Page 5 Source Listing FDLVL 2014-12-17 20:47 FDLVL.f 340 1 +U(I,J+1,LMV(I,J+1)+LOFF)+U(I,J-1,LMV(I,J-1)+LOFF)) 341 VL=0.25*(V(IW,J,LMV(IW,J)+LOFF)+V(IE,J,LMV(IE,J)+LOFF) 342 1 +V(I,J+1,LMV(I,J+1)+LOFF)+V(I,J-1,LMV(I,J-1)+LOFF)) 343 C 344 DELU = UH - UL 345 DELV = VH - VL 346 TFD(I,J,IFD) = T(I,J,L) - DELT*RDZ*DZABV(IFD) 347 EGRIDU(I,J,IFD) = UH - DELU*RDZ*DZABV(IFD) 348 EGRIDV(I,J,IFD) = VH - DELV*RDZ*DZABV(IFD) 349 ELSE 350 TFD(I,J,IFD) = T(I,J,L) 351 LOFF = L-LLMH 352 UH=0.25*(U(IE,J,LMV(IE,J)+LOFF)+U(IW,J,LMV(IW,J)+LOFF) 353 1 +U(I,J+1,LMV(I,J+1)+LOFF)+U(I,J-1,LMV(I,J-1)+LOFF)) 354 VH=0.25*(V(IE,J,LMV(IE,J)+LOFF)+V(IW,J,LMV(IW,J)+LOFF) 355 1 +V(I,J+1,LMV(I,J+1)+LOFF)+V(I,J-1,LMV(I,J-1)+LOFF)) 356 EGRIDU(I,J,IFD) = UH 357 EGRIDV(I,J,IFD) = VH 358 ENDIF 359 240 CONTINUE 360 C 361 C COMPUTE FD LEVEL T, U, AND V AT NEXT K. 362 C 363 250 CONTINUE 364 C END OF AGL FD LEVELS 365 ENDIF 366 C 367 C LOOP TO COMPUTE U-V AT VELOCITY POINTS. 368 C 369 DO IFD = 1,NFD 370 CALL H2V(EGRIDU(1,1,IFD),EGRIDV(1,1,IFD), 371 X UFD(1,1,IFD),VFD(1,1,IFD)) 372 END DO 373 C 374 C END OF ROUTINE. 375 C 376 RETURN 377 END Page 6 Source Listing FDLVL 2014-12-17 20:47 Entry Points FDLVL.f ENTRY POINTS Name fdlvl_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 10 Label 115 105 20 Label 140 132 220 Label 206 197 230 Label 210 204 240 Label 248 214 250 Label 252 188,189 30 Label 144 138 40 Label 175 148 50 Label 179 125,126 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 CTLBLK Common 2 96 D00 Param 25 R(4) 4 scalar 111,112 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 D50 Param 25 R(4) 4 scalar 133,151,198,217 D608 Param 29 R(4) 4 scalar DELT Local 153 R(4) 4 scalar 153,165,219,235 DELU Local 163 R(4) 4 scalar 163,166,233,236 DELV Local 164 R(4) 4 scalar 164,167,234,237 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 151 R(4) 4 scalar 151,152,217,218 DZABV Local 82 R(4) 4 1 6 136,165,166,167,202,235,236,237 EGRIDU Local 84 R(4) 4 3 550314 111,166,170,236,245,259 Page 7 Source Listing FDLVL 2014-12-17 20:47 Symbol Table FDLVL.f Name Object Declared Type Bytes Dimen Elements Attributes References EGRIDV Local 84 R(4) 4 3 550314 112,167,172,237,246,259 ELDR Param 36 R(4) 4 scalar ELWV Param 36 R(4) 4 scalar 36 EPS Param 39 R(4) 4 scalar 39 EPSQ2 Param 40 R(4) 4 scalar ERAD Param 34 R(4) 4 scalar EXTRA Common 3 71506268 FDLVL Subr 1 FIRST Scalar 3 R(4) 4 scalar COM FIS Scalar 3 R(4) 4 2 91719 COM 190 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,190 H1 Param 26 R(4) 4 scalar 33 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 259 259 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 HTABV Local 199 R(4) 4 scalar 199,200,202 HTFD Local 82 R(4) 4 1 6 96,134,136,200,202 HTM Scalar 5 R(4) 4 3 4127355 COM HTSFC Local 190 R(4) 4 scalar 190,199 HTTUV Local 133 R(4) 4 scalar 133,134,136,198,199 I Local 107 I(4) 4 scalar 107,108,109,110,111,112,126,133,14 6,147,151,153,155,157,159,161,165, 166,167,169,170,171,172,173,189,19 0,191,198,212,213,217,219,223,225, 229,231,235,236,237,239,242,244,24 5,246 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 146 I(4) 4 scalar 146,154,156,158,160,170,172,212,22 2,224,228,230,241,243 IFD Local 105 I(4) 4 scalar 105,108,109,110,111,112,127,134,13 5,136,137,138,148,149,165,166,167, 169,170,172,192,200,201,202,203,20 Page 8 Source Listing FDLVL 2014-12-17 20:47 Symbol Table FDLVL.f Name Object Declared Type Bytes Dimen Elements Attributes References 4,214,215,235,236,237,239,245,246, 258,259,260 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 146,212 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 147,213 IM Param 3 I(4) 4 scalar 2,3,4,5,6,7,8,9,11,14,83,84,107,12 6,189 IM1 Param 6 I(4) 4 scalar IMJM Param 2 I(4) 4 scalar 5 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 ITYPE Dummy 1 I(4) 4 scalar ARG,INOUT 119 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 147 I(4) 4 scalar 147,154,156,158,160,170,172,213,22 2,224,228,230,241,243 J Local 106 I(4) 4 scalar 106,108,109,110,111,112,125,133,14 6,147,151,153,154,155,156,157,158, 159,160,161,165,166,167,169,170,17 1,172,173,188,190,191,198,212,213, 217,219,222,223,224,225,228,229,23 0,231,235,236,237,239,241,242,243, 244,245,246 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 106 JEND_2U Scalar 8 I(4) 4 scalar COM JEND_M Scalar 7 I(4) 4 scalar COM 125,188 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,83,84 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 106 JSTA_2L Scalar 8 I(4) 4 scalar COM JSTA_M Scalar 7 I(4) 4 scalar COM 125,188 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 Page 9 Source Listing FDLVL 2014-12-17 20:47 Symbol Table FDLVL.f Name Object Declared Type Bytes Dimen Elements Attributes References 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 132 I(4) 4 scalar 132,133,135,149,150,151,153,154,15 5,156,157,158,159,160,161,165,169, 170,171,172,173,197,198,201,215,21 6,217,219,221,227,235,239,240 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 LLMH Local 191 I(4) 4 scalar 191,197,221,227,240 LM Param 3 I(4) 4 scalar 5,8,19,132,150,216 LM1 Param 8 I(4) 4 scalar LMH Scalar 5 I(4) 4 2 91719 COM 191 LMV Scalar 5 I(4) 4 2 91719 COM 222,223,224,225,228,229,230,231,24 1,242,243,244 LOFF Local 221 I(4) 4 scalar 221,222,223,224,225,227,228,229,23 0,231,240,241,242,243,244 LOOPS Common 2 748952 LP1 Param 8 I(4) 4 scalar 4 LSM Param 3 I(4) 4 scalar LVL Local 81 I(4) 4 1 6 135,149,201,215 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 NFD Param 73 I(4) 4 scalar 81,82,83,84,105,138,148,204,214,25 8 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 Page 10 Source Listing FDLVL 2014-12-17 20:47 Symbol Table FDLVL.f Name Object Declared Type Bytes Dimen Elements Attributes References 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 PQ0 Param 41 R(4) 4 scalar PSLP Scalar 6 R(4) 4 2 91719 COM PTSL Scalar 7 R(4) 4 2 91719 COM Q Scalar 5 R(4) 4 3 4127355 COM 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 RDZ Local 152 R(4) 4 scalar 152,165,166,167,218,235,236,237 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 RTD Param 34 R(4) 4 scalar RUN Scalar 3 R(4) 4 scalar COM SATDEL Scalar 2 R(4) 4 scalar COM 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 108,109,110 STDRD Scalar 10 R(4) 4 scalar COM T Scalar 5 R(4) 4 3 4127355 COM 153,165,169,219,235,239 T500 Scalar 6 R(4) 4 2 91719 COM TFD Dummy 1 R(4) 4 3 550314 ARG,INOUT 108,165,169,235,239 TFRZ Param 39 R(4) 4 scalar TSL Scalar 8 R(4) 4 2 91719 COM TTV Scalar 8 R(4) 4 2 91719 COM U Scalar 5 R(4) 4 3 4127355 COM 154,155,158,159,170,171,222,223,22 8,229,241,242 UFD Dummy 1 R(4) 4 3 550314 ARG,INOUT 109,260 UH Local 154 R(4) 4 scalar 154,163,166,222,233,236,241,245 UL Local 158 R(4) 4 scalar 158,163,228,233 V Scalar 5 R(4) 4 3 4127355 COM 156,157,160,161,172,173,224,225,23 0,231,243,244 VBM2 Scalar 3 R(4) 4 2 91719 COM VBM3 Scalar 3 R(4) 4 2 91719 COM VFD Dummy 1 R(4) 4 3 550314 ARG,INOUT 110,260 VH Local 156 R(4) 4 scalar 156,164,167,224,234,237,243,246 VL Local 160 R(4) 4 scalar 160,164,230,234 VRBLS Common 2 67138308 VTM Scalar 5 R(4) 4 3 4127355 COM Page 11 Source Listing FDLVL 2014-12-17 20:47 Symbol Table FDLVL.f Name Object Declared Type Bytes Dimen Elements Attributes References Z1000 Scalar 9 R(4) 4 2 91719 COM ZINT Scalar 4 R(4) 4 3 4219074 COM 133,151,198,217 Page 12 Source Listing FDLVL 2014-12-17 20:47 Subprograms/Common Blocks FDLVL.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CTLBLK Common 2 96 EXTRA Common 3 71506268 FDLVL Subr 1 INDX Common 2 6192 LOOPS Common 2 748952 MASKS Common 2 34853220 OPTIONS Common 2 24 PARALLEL Common 9 8240 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 13 Source Listing FDLVL 2014-12-17 20:47 FDLVL.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 : FDLVL.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100