Page 1 Source Listing E2OUT 2014-12-17 20:47 E2OUT.f 1 SUBROUTINE E2OUT(ITAG1,ITAG2,EGRID1,EGRID2, 2 1 GRID1,GRID2,IMOUT,JMOUT) 3 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 4 C . . . 5 C SUBPROGRAM: E2OUT INTRP E-GRID TO OUTPUT GRID 6 C PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-21 7 C 8 C ABSTRACT: 9 C THIS SUBROUTINE PERFORMS ALL ETA POST PROCESSOR 10 C INTERPOLATION/CONVERSION OF DATA ON THE E-GRID TO 11 C THE OUTPUT GRID. ADDITIONALLY, THE ROUTINE WILL 12 C SMOOTH OR FILTER THE FIELD(S) AT ANY OF THREE 13 C STEPS IN THE ROUTINE. DATA MAY BE SMOOTHED ON 14 C THE INPUT E-GRID, FILTERED ON A FILLED E-GRID, OR 15 C FILTERED ON THE OUTPUT GRID. VORTICITY FIELDS ARE 16 C GIVEN AN ADDITIONAL HEAVY HANDED SMOOTHING TO PRODUCE 17 C A PLEASING PRODUCT. CONTROL OF SMOOTHING/FILTERING 18 C IS VIA SWITCHES SET IN THE CONTROL FILE. 19 C . 20 C 21 C PROGRAM HISTORY LOG: 22 C 92-12-21 RUSS TREADON 23 C 93-06-13 RUSS TREADON - ADDED INTERPOLATION TO LAT-LON GRID. 24 C 98-06-01 BLACK - CONVERSION FROM 1-D TO 2-D 25 C 00-01-05 JIM TUCCILLO - MPI VERSION 26 C 27 C USAGE: CALL E2OUT(ITAG1,ITAG2,EGRID1,EGRID2, 28 C GRID1,GRID2,IMOUT,JMOUT) 29 C INPUT ARGUMENT LIST: 30 C ITAG1 - INTEGER ID FOR DATA IN EGRID1 31 C ITAG2 - INTEGER ID FOR DATA IN EGRID2 32 C EGRID1 - FIRST FIELD ON E-GRID 33 C EGRID2 - SECOND FIELD ON E-GRID 34 C IMOUT - FIRST DIMENSION OF OUTPUT GRID 35 C JMOUT - SECOND DIMENSION OF OUTPUT GRID 36 C 37 C OUTPUT ARGUMENT LIST: 38 C GRID1 - FIRST FIELD ON OUTPUT GRID 39 C GRID2 - SECOND FIELD ON OUTPUT GRID 40 C 41 C OUTPUT FILES: 42 C STDOUT - RUN TIME STANDARD OUT. 43 C 44 C SUBPROGRAMS CALLED: 45 C UTILITIES: 46 C LOAD - LOAD FILLED E-GRID INTO 2-D OUTPUT GRID 47 C EFILL - REPLACES MISSING VALUES ON E-GRID WITH FIELD MEAN 48 C FILLH - FILL MASS POINTS FOR VELOCITY POINT E-GRID 49 C FILLV - FILL VELOCITY POINTS FOR MASS POINT E-GRID 50 C CETLIH4 - INTERPOLATE E-GRID TO OUPUT GRID CONSERVING 51 C THE AREA INTEGRAL OF THE INPUT FIELD OVER 52 C SPECIFIED SUB-GRIDS. 53 C EUVGUV - ROTATE ETA (U,V) TO OUTPUT GRID (U,V) 54 C INTERP3 - BILINEAR INTERPOLATION TO OUTPUT GRID 55 C P2FILTF - SMOOTH MASS POINT DATA ON E-GRID 56 C P2FLTVF - SMOOTH VELOCITY POINT DATA ON E-GRID 57 C EFILT - HEAVY-HANDED MASS POINT SMOOTHER. CURRENTLY Page 2 Source Listing E2OUT 2014-12-17 20:47 E2OUT.f 58 C HARDWIRED FOR USE ON VORITCITY FIELDS. 59 C FILTER - 25 POINT BLECK FILTER ON A REGULAR GRID. 60 C LIBRARY: 61 C COMMON - OPTIONS 62 C LLGRDS 63 C RQSTFLD 64 C MASKS 65 C IOUNIT 66 C OUTGRD 67 C 68 C ATTRIBUTES: 69 C LANGUAGE: FORTRAN 70 C MACHINE : CRAY C-90 71 C$$$ 72 C 73 C 74 C INCLUDE ETA MODEL DIMENSIONS. SET/DERIVE OTHER PARAMETERS. 75 C 76 INCLUDE "parmeta" 94 INCLUDE "parmout" 98 PARAMETER (IMJM=IM*JM-JM/2,IMT=2*IM-1,JMT=JM,LP1=LM+1) 99 PARAMETER (D00=0.0) 100 C 101 C DECLARE VARIABLES. 102 CHARACTER*6 PROJ 103 LOGICAL NORTH 104 REAL EGRID1(IM,JM),EGRID2(IM,JM) 105 REAL GRID1(IMOUT,JMOUT),GRID2(IMOUT,JMOUT) 106 REAL HFUL(IMT,JMT),UFUL(IMT,JMT),VFUL(IMT,JMT) 107 C 108 C INCLUDE COMMONS. 109 INCLUDE "OPTIONS.comm" 113 INCLUDE "LLGRDS.comm" 127 INCLUDE "RQSTFLD.comm" 140 INCLUDE "MASKS.comm" 148 INCLUDE "BITMAP.comm" 154 INCLUDE "IOUNIT.comm" 162 INCLUDE "OUTGRD.comm" 167 INCLUDE "CTLBLK.comm" 168 C 183 common/jjt/time_output, time_e2out 184 real(8) ist, rtc, time_output, time_e2out 185 C***************************************************************************** 186 C START SUBROUTINE E2OUT. 187 C 188 C 189 ist = rtc() 190 C ZERO OUTPUT GRIDS. 191 C 192 !$omp parallel do 193 DO J=JSTA,JEND 194 DO I=1,IMOUT 195 GRID1(I,J)=D00 196 GRID2(I,J)=D00 197 ENDDO 198 ENDDO 199 C Page 3 Source Listing E2OUT 2014-12-17 20:47 E2OUT.f 200 C GRID TYPE KGTYPE=90,92,94,96 IS OUTPUT ON THE STAGGERED MODEL 201 C GRIDS. SIMPLY LOAD DATA INTO OUTPUT GRID ARRAYS. IF WANTED, 202 C SMOOTH DATA ON OUTPUT GRID. (YOU NEVER KNOW!) 203 C 204 IF (KGTYPE.EQ.90.OR.KGTYPE.EQ.92.OR. 205 X KGTYPE.EQ.94.OR.KGTYPE.EQ.96 206 X .OR.KGTYPE.EQ.99.OR.KGTYPE.EQ.190.OR.KGTYPE.EQ.192 207 X .OR.KGTYPE.EQ.194.OR.KGTYPE.EQ.196) THEN 208 c call ps7 209 CALL EFILL(EGRID1,IM,JM) 210 c call ps8 211 DO J=JSTA,JEND 212 DO I=1,IM 213 GRID1(I,J)=EGRID1(I,J) 214 IBMAP(I,J)=1 215 ENDDO 216 ENDDO 217 cc call ps9 218 IF (ITAG2.GT.0) THEN 219 c call psa 220 CALL EFILL(EGRID2,IM,JM) 221 c 222 DO J=JSTA,JEND 223 DO I=1,IM 224 GRID2(I,J)=EGRID2(I,J) 225 ENDDO 226 ENDDO 227 c call psb 228 ENDIF 229 GOTO 400 230 ENDIF 231 C 232 C IF SELECTED, SMOOTH DATA ON STAGGERED E-GRID. 233 C 234 ISMTH = ISMSTG(IGET(ITAG1)) 235 IF (IFILV(ITAG1).GT.0) THEN 236 IF (ISMTH.GT.0) THEN 237 CALL P2FILTF(ISMTH,HBM2,EGRID1) 238 END IF 239 IF ((ISMTH.GT.0).AND.((ITAG1.EQ.10).OR.(ITAG1.EQ.21))) THEN 240 CALL EFILT(EGRID1) 241 END IF 242 IF(ITAG2.GT.0)THEN 243 ISMTH = ISMSTG(IGET(ITAG2)) 244 IF(ISMTH.GT.0) THEN 245 CALL P2FILTF(ISMTH,HBM2,EGRID2) 246 END IF 247 ENDIF 248 ELSE 249 IF (ISMTH.GT.0) THEN 250 CALL P2FLTVF(ISMTH,VBM2,EGRID1) 251 END IF 252 IF(ITAG2.GT.0)THEN 253 ISMTH = ISMSTG(IGET(ITAG2)) 254 IF(ISMTH.GT.0) THEN 255 CALL P2FLTVF(ISMTH,VBM2,EGRID2) 256 END IF Page 4 Source Listing E2OUT 2014-12-17 20:47 E2OUT.f 257 ENDIF 258 ENDIF 259 C 260 C INTERPOLATE H-POINT FIELDS FROM STAGGERED E-GRID TO OUTPUT GRID. 261 C 262 IF ( IFILV(ITAG1).GT.0) THEN 263 C 264 C FILL H-POINT FIELD AT V POINTS. 265 c call psd 266 CALL FILLV(EGRID1,HFUL,IFLAG,IMT,JMT) 267 c call pse 268 C 269 C IF REQUESTED, SMOOTH DATA ON FILLED E-GRID. 270 ISMTH = ISMFUL(IGET(ITAG1)) 271 IF (ISMTH.GT.0) CALL FILTER(IMT,JMT,HFUL,ISMTH) 272 C 273 C INTERPOLATE TO OUTPUT GRID. 274 IF ((KGTYPE.LT.90).OR.(KGTYPE.GT.97 275 1 .AND.KGTYPE.NE.99.AND.KGTYPE.NE.190.AND.KGTYPE.NE.192 276 1 .AND.KGTYPE.NE.194.AND.KGTYPE.NE.196))THEN 277 C 278 C INTERPOLATION FOR GENERIC FIELDS. 279 c call ps1 280 CALL INTERP3(HFUL,GRID1,IMOUT,JMOUT) 281 C 282 C U-V FIELDS ORGINALLY AT H POINTS NEED TO BE ROTATED. 283 IF ( (ITAG1.EQ.056).OR.(ITAG1.EQ.057).OR. 284 X (ITAG1.EQ.060).OR.(ITAG1.EQ.061).OR. 285 X (ITAG1.EQ.064).OR.(ITAG1.EQ.065).OR. 286 X (ITAG1.EQ.073).OR.(ITAG1.EQ.074).OR. 287 X (ITAG1.EQ.095).OR.(ITAG1.EQ.096) ) THEN 288 CALL FILLV(EGRID2,VFUL,IFLAG,IMT,JMT) 289 IF(ITAG2.GT.0)THEN 290 ISMTH = ISMFUL(IGET(ITAG2)) 291 IF(ISMTH.GT.0)CALL FILTER(IMT,JMT,VFUL,ISMTH) 292 ENDIF 293 CALL EUVGUV(HFUL,VFUL,FVTLON,IMT,JMT,EVLAT, 294 X EVLON,ALATVT,ALONVT,NORTH,PROJ) 295 c call ps3 296 CALL INTERP3(HFUL,GRID1,IMOUT,JMOUT) 297 CALL INTERP3(VFUL,GRID2,IMOUT,JMOUT) 298 ENDIF 299 C 300 C PRECIPITATION FIELDS USE AREA CONSERVING INTERPOLATION. 301 c call ps4 302 IF ( (ITAG1.EQ.033).OR.(ITAG1.EQ.034).OR. 303 X (ITAG1.EQ.087) ) 304 X CALL CETLIH4(EGRID1,GRID1,IMOUT,JMOUT,KSB,IOFFS) 305 C 306 C OUTPUT ON FILLED E-GRID REQUIRES NO INTERPOLATION. 307 ELSE 308 DO J=1,JMT 309 DO I=1,IMT 310 GRID1(I,J)=HFUL(I,J) 311 IBMAP(I,J)=1 312 ENDDO 313 ENDDO Page 5 Source Listing E2OUT 2014-12-17 20:47 E2OUT.f 314 C 315 IF ( (ITAG1.EQ.056).OR.(ITAG1.EQ.057).OR. 316 X (ITAG1.EQ.060).OR.(ITAG1.EQ.061).OR. 317 X (ITAG1.EQ.064).OR.(ITAG1.EQ.065).OR. 318 X (ITAG1.EQ.073).OR.(ITAG1.EQ.074).OR. 319 X (ITAG1.EQ.095).OR.(ITAG1.EQ.096) ) THEN 320 CALL FILLV(EGRID2,VFUL,IFLAG,IMT,JMT) 321 IF(ITAG2.GT.0)THEN 322 ISMTH = ISMFUL(IGET(ITAG2)) 323 IF(ISMTH.GT.0)CALL FILTER(IMT,JMT,VFUL,ISMTH) 324 ENDIF 325 C 326 DO J=1,JMT 327 DO I=1,IMT 328 GRID2(I,J)=VFUL(I,J) 329 ENDDO 330 ENDDO 331 C 332 ENDIF 333 ENDIF 334 C 335 C NOW HANDLE FIELDS AT V-POINTS. 336 C 337 ELSE 338 IF (ITAG1.NE.053.AND.ITAG1.NE.162) THEN 339 CALL FILLH(EGRID1,UFUL,IMT,JMT) 340 CALL FILLH(EGRID2,VFUL,IMT,JMT) 341 ISMTH = ISMFUL(IGET(ITAG1)) 342 IF (ISMTH.GT.0) CALL FILTER(IMT,JMT,UFUL,ISMTH) 343 IF(ITAG2.GT.0)THEN 344 ISMTH = ISMFUL(IGET(ITAG2)) 345 IF(ISMTH.GT.0) 346 X CALL FILTER(IMT,JMT,VFUL,ISMTH) 347 ENDIF 348 C 349 IF ((KGTYPE.LT.90).OR.(KGTYPE.GT.97 350 1 .AND.KGTYPE.NE.99.AND.KGTYPE.NE.190.AND.KGTYPE.NE.192 351 1 .AND.KGTYPE.NE.194.AND.KGTYPE.NE.196))THEN 352 CALL EUVGUV(UFUL,VFUL,FVTLON,IMT,JMT, 353 X EVLAT,EVLON,ALATVT,ALONVT,NORTH,PROJ) 354 CALL INTERP3(UFUL,GRID1,IMOUT,JMOUT) 355 CALL INTERP3(VFUL,GRID2,IMOUT,JMOUT) 356 ELSE 357 C 358 DO J=1,JMT 359 DO I=1,IMT 360 GRID1(I,J)=UFUL(I,J) 361 IBMAP(I,J)=1 362 ENDDO 363 ENDDO 364 C 365 DO J=1,JMT 366 DO I=1,IMT 367 GRID2(I,J)=VFUL(I,J) 368 ENDDO 369 ENDDO 370 C Page 6 Source Listing E2OUT 2014-12-17 20:47 E2OUT.f 371 ENDIF 372 ELSE 373 CALL FILLH(EGRID1,HFUL,IMT,JMT) 374 ISMTH = ISMFUL(ITAG1) 375 IF (ISMTH.GT.0) CALL FILTER(IMT,JMT,HFUL,ISMTH) 376 IF ((KGTYPE.LT.90).OR.(KGTYPE.GT.97 377 1 .AND.KGTYPE.NE.99.AND.KGTYPE.NE.190.AND.KGTYPE.NE.192 378 1 .AND.KGTYPE.NE.194.AND.KGTYPE.NE.196))THEN 379 c call ps6 380 CALL INTERP3(HFUL,GRID1,IMOUT,JMOUT) 381 ELSE 382 DO J=1,JMT 383 DO I=1,IMT 384 GRID1(I,J)=HFUL(I,J) 385 IBMAP(I,J)=1 386 ENDDO 387 ENDDO 388 ENDIF 389 ENDIF 390 ENDIF 391 C 392 C ZERO FILLED EGRID ARRAYS. 393 C 394 !$omp parallel do 395 DO 300 J = 1,JMT 396 DO 300 I = 1,IMT 397 HFUL(I,J) = 0.0 398 UFUL(I,J) = 0.0 399 VFUL(I,J) = 0.0 400 300 CONTINUE 401 C 402 C IF SELECTED, APPLY SMOOTHER TO OUTPUT GRID(S). 403 C 404 400 CONTINUE 405 C 406 IF(ITAG1.GT.0)THEN 407 IF(IGET(ITAG1).GT.0)THEN 408 ISMTH=ISMOUT(IGET(ITAG1)) 409 IF(ISMTH.GT.0)CALL FILTER(IMOUT,JMOUT,GRID1,ISMTH) 410 ENDIF 411 ENDIF 412 C 413 IF(ITAG2.GT.0)THEN 414 IF(IGET(ITAG2).GT.0)THEN 415 ISMTH=ISMOUT(IGET(ITAG2)) 416 IF(ISMTH.GT.0)CALL FILTER(IMOUT,JMOUT,GRID2,ISMTH) 417 ENDIF 418 ENDIF 419 C 420 time_e2out = time_e2out + rtc() - ist 421 C END OF ROUTINE. 422 C 423 RETURN 424 END Page 7 Source Listing E2OUT 2014-12-17 20:47 Entry Points E2OUT.f ENTRY POINTS Name e2out_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 300 Label 315 310,311 400 Label 319 144 ALATVT Scalar 2 R(4) 4 scalar COM 209,268 ALONVT Scalar 2 R(4) 4 scalar COM 209,268 AVBL Scalar 2 CHAR 20 1 250 COM BITMAP Common 2 366876 CETLIH4 Subr 219 219 CTLBLK Common 2 96 D00 Param 79 R(4) 4 scalar 110,111 DATSET Scalar 3 CHAR 6 scalar COM DEC Scalar 8 R(4) 4 1 250 COM DT Scalar 4 R(4) 4 scalar COM E2OUT Subr 1 EFILL Subr 124 124,135 EFILT Subr 155 155 EGRDI Scalar 9 R(4) 4 2 91719 COM EGRDJ Scalar 9 R(4) 4 2 91719 COM EGRID1 Dummy 1 R(4) 4 2 91719 ARG,INOUT 124,128,152,155,165,181,219,254,28 8 EGRID2 Dummy 1 R(4) 4 2 91719 ARG,INOUT 135,139,160,170,203,235,255 EUVGUV Subr 208 208,267 EVLAT Scalar 8 R(4) 4 2 183051 COM 208,268 EVLON Scalar 8 R(4) 4 2 183051 COM 209,268 FIELD Scalar 2 CHAR 20 1 250 COM FILLH Subr 254 254,255,288 FILLV Subr 181 181,203,235 FILTER Subr 186 186,206,238,257,261,290,324,331 FIRST Scalar 3 R(4) 4 scalar COM FVTLON Scalar 7 R(4) 4 2 183051 COM 208,267 GDLAT Scalar 3 R(4) 4 2 91719 COM GDLON Scalar 3 R(4) 4 2 91719 COM GDTLAT Scalar 4 R(4) 4 2 91719 COM GDTLON Scalar 4 R(4) 4 2 91719 COM GI2 Scalar 3 R(4) 4 scalar COM GRID1 Dummy 2 R(4) 4 2 0 ARG,INOUT 110,128,195,211,219,225,269,275,29 5,299,324 GRID2 Dummy 2 R(4) 4 2 0 ARG,INOUT 111,139,212,243,270,282,331 HBM2 Scalar 3 R(4) 4 2 91719 COM 152,160 HFUL Local 86 R(4) 4 2 183051 181,186,195,208,211,225,288,290,29 5,299,312 HTLAT Scalar 5 R(4) 4 2 91719 COM HTLON Scalar 5 R(4) 4 2 91719 COM HTM Scalar 5 R(4) 4 3 4127355 COM I Local 109 I(4) 4 scalar 109,110,111,127,128,129,138,139,22 Page 8 Source Listing E2OUT 2014-12-17 20:47 Symbol Table E2OUT.f Name Object Declared Type Bytes Dimen Elements Attributes References 4,225,226,242,243,274,275,276,281, 282,298,299,300,311,312,313,314 IBESSL Scalar 2 I(4) 4 scalar COM IBMAP Scalar 3 I(4) 4 2 91719 COM 129,226,276,300 ICNT Scalar 7 I(4) 4 1 1024 COM ID Scalar 11 I(4) 4 1 25 COM IDAT Scalar 3 I(4) 4 1 3 COM IDENT Scalar 10 I(4) 4 1 250 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 IEGRD Scalar 10 I(4) 4 2 91719 COM IEGRDK Scalar 6 I(4) 4 2 91719 COM IFILV Scalar 11 I(4) 4 1 250 COM 150,177 IFLAG Scalar 2 I(4) 4 scalar COM 181,203,235 IGET Scalar 8 I(4) 4 1 250 COM 149,158,168,185,205,237,256,259,32 2,323,329,330 IGOUT Scalar 3 I(4) 4 scalar COM IGSTL Param 9 I(4) 4 scalar 14 IGSTR Param 9 I(4) 4 scalar 14 IHRST Scalar 3 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 3,5,6,7,11,14,78,84,124,127,135,13 8 IMDLTY Scalar 3 I(4) 4 scalar COM IMJM Param 78 I(4) 4 scalar IMOUT Dummy 2 I(4) 4 scalar ARG,INOUT 85,109,195,211,212,219,269,270,295 ,324,331 IMT Param 78 I(4) 4 scalar 7,8,86,181,186,203,206,208,224,235 ,238,242,254,255,257,261,267,274,2 81,288,290,298,311 IMX Param 3 I(4) 4 scalar 3,4,9,10,11,12 INPES Param 6 I(4) 4 scalar 11,14 INTERP3 Subr 195 195,211,212,269,270,295 IOFFS Scalar 2 I(4) 4 scalar COM 219 IOUNIT Common 4 20 IOUT Scalar 3 I(4) 4 scalar COM IOUTYP Scalar 8 I(4) 4 scalar COM IQ Scalar 9 I(4) 4 1 250 COM IS Scalar 9 I(4) 4 1 250 COM ISMFUL Scalar 9 I(4) 4 1 250 COM 185,205,237,256,259,289 ISMOUT Scalar 10 I(4) 4 1 250 COM 323,330 ISMSTG Scalar 9 I(4) 4 1 250 COM 149,158,168 ISMTH Local 149 I(4) 4 scalar 149,151,152,154,158,159,160,164,16 5,168,169,170,185,186,205,206,237, 238,256,257,259,260,261,289,290,32 3,324,330,331 IST Local 99 R(8) 8 scalar 104,335 ITAG1 Dummy 1 I(4) 4 scalar ARG,INOUT 149,150,154,177,185,198,199,200,20 1,202,217,218,230,231,232,233,234, 253,256,289,321,322,323 ITAG2 Dummy 1 I(4) 4 scalar ARG,INOUT 133,157,158,167,168,204,205,236,23 7,258,259,328,329,330 ITAIL Param 11 I(4) 4 scalar Page 9 Source Listing E2OUT 2014-12-17 20:47 Symbol Table E2OUT.f Name Object Declared Type Bytes Dimen Elements Attributes References IUP Scalar 7 I(4) 4 scalar COM IWGT Scalar 11 I(4) 4 2 91719 COM J Local 108 I(4) 4 scalar 108,110,111,126,128,129,137,139,22 3,225,226,241,243,273,275,276,280, 282,297,299,300,310,312,313,314 JDIM1 Param 15 I(4) 4 scalar JDIM2 Param 15 I(4) 4 scalar JEGRD Scalar 10 I(4) 4 2 91719 COM JEGRDK Scalar 6 I(4) 4 2 91719 COM JEND Scalar 6 I(4) 4 scalar COM 108,126,137 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 JGOUT Scalar 3 I(4) 4 scalar COM JGSTL Param 10 I(4) 4 scalar 15 JGSTR Param 10 I(4) 4 scalar 15 JJT Common 98 16 JM Param 3 I(4) 4 scalar 3,5,6,7,12,15,78,84,124,135 JMOUT Dummy 2 I(4) 4 scalar ARG,INOUT 85,195,211,212,219,269,270,295,324 ,331 JMT Param 78 I(4) 4 scalar 7,8,86,181,186,203,206,208,223,235 ,238,241,254,255,257,261,267,273,2 80,288,290,297,310 JMX Param 3 I(4) 4 scalar 3,4,9,10,11,12 JNPES Param 6 I(4) 4 scalar 12,15 JSTA Scalar 6 I(4) 4 scalar COM 108,126,137 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 JTAIL Param 12 I(4) 4 scalar KGTYPE Scalar 8 I(4) 4 scalar COM 119,120,121,122,189,190,191,264,26 5,266,291,292,293 KSB Scalar 2 I(4) 4 scalar COM 219 LCNTRL Scalar 5 I(4) 4 scalar COM LIST Scalar 3 I(4) 4 scalar COM LLGRDS Common 2 9167256 LM Param 3 I(4) 4 scalar 3,5,78 LP1 Param 78 I(4) 4 scalar LSM Param 3 I(4) 4 scalar LUNCO Scalar 5 I(4) 4 scalar COM LUNLL Scalar 5 I(4) 4 scalar COM LUNOUT Scalar 5 I(4) 4 scalar COM LVLS Scalar 10 I(4) 4 2 11250 COM MASKS Common 2 34853220 ME Scalar 6 I(4) 4 scalar COM MXFLD Param 3 I(4) 4 scalar 2,8,9,10,11 MXLVL Param 3 I(4) 4 scalar 10 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 NFLD Scalar 8 I(4) 4 scalar COM NORTH Scalar 83 L(4) 4 scalar COM 209,268 NPHS Scalar 5 I(4) 4 scalar COM Page 10 Source Listing E2OUT 2014-12-17 20:47 Symbol Table E2OUT.f Name Object Declared Type Bytes Dimen Elements Attributes References 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 OPTIONS Common 2 24 OUTGRD Common 2 50 P2FILTF Subr 152 152,160 P2FLTVF Subr 165 165,170 PARALLEL Common 9 8240 POLEI Scalar 2 R(4) 4 scalar COM POLEJ Scalar 2 R(4) 4 scalar COM PROJ Scalar 82 CHAR 6 scalar COM 209,268 RE Scalar 3 R(4) 4 scalar COM RESTRT Scalar 3 R(4) 4 scalar COM RITE2 Scalar 5 L(4) 4 scalar COM RITEHD Scalar 5 L(4) 4 scalar COM RQSTFLD Common 7 64130 RTC Func 99 R(8) 8 scalar 104,335 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 SM Scalar 3 R(4) 4 2 91719 COM SPVAL Scalar 2 R(4) 4 scalar COM STDOUT Scalar 2 I(4) 4 scalar COM SVALUE Scalar 8 R(4) 4 scalar COM TIME_E2OUT Scalar 98 R(8) 8 scalar COM 335 TIME_OUTPUT Scalar 98 R(8) 8 scalar COM UFUL Local 86 R(4) 4 2 183051 254,257,267,269,275,313 VBM2 Scalar 3 R(4) 4 2 91719 COM 165,170 VBM3 Scalar 3 R(4) 4 2 91719 COM VFUL Local 86 R(4) 4 2 183051 203,206,208,212,235,238,243,255,26 1,267,270,282,314 VTLAT Scalar 7 R(4) 4 2 91719 COM VTLON Scalar 7 R(4) 4 2 91719 COM VTM Scalar 5 R(4) 4 3 4127355 COM WIJ Scalar 11 R(4) 4 2 91719 COM WIJP Scalar 12 R(4) 4 2 91719 COM WIPJ Scalar 11 R(4) 4 2 91719 COM WIPJP Scalar 12 R(4) 4 2 91719 COM XMESHL Scalar 2 R(4) 4 scalar COM Page 11 Source Listing E2OUT 2014-12-17 20:47 Subprograms/Common Blocks E2OUT.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References BITMAP Common 2 366876 CTLBLK Common 2 96 E2OUT Subr 1 IOUNIT Common 4 20 JJT Common 98 16 LLGRDS Common 2 9167256 MASKS Common 2 34853220 OPTIONS Common 2 24 OUTGRD Common 2 50 PARALLEL Common 9 8240 RQSTFLD Common 7 64130 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__ Page 12 Source Listing E2OUT 2014-12-17 20:47 E2OUT.f -D __tune_pentium4__ -D __SSE2__ -D __SSE__ -D __MMX__ -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 : E2OUT.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100