Page 1 Source Listing READCNTRL2 2014-12-17 20:48 READCNTRL2.f 1 SUBROUTINE READCNTRL2(IEOF) 2 C 3 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 4 C . . . 5 C SUBPROGRAM: READCNTRL2 READS CONTROL FILE 6 C PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-20 7 C 8 C ABSTRACT: 9 C THIS ROUTINE READS THE CONTROL FILE SPECIFYING OUTPUT 10 C GRID(S), DATA FORMAT(S), AND FIELD(S) TO POST. THE 11 C ORDER OF OPERATIONS IS 12 C (1) READ HEADER BLOCK OF CONTROL FILE, 13 C (2) SET FLAGS, CLOSE OPEN UNITS, SET E-GRID SPECS, 14 C (3) READ OR COMPUTE INTERPOLATION WEIGHTS, AND 15 C (4) READ BODY OF CONTROL FILE (FIELD SPECIFICATIONS) 16 C . 17 C 18 C PROGRAM HISTORY LOG: 19 C 92-12-20 RUSS TREADON 20 C 93-06-15 RUSS TREADON - ADD PROJECTION CONTROL CARD 21 C 98-06-01 BLACK - CONVERSION OF POST FROM 1-D TO 2-D 22 C 98-07-17 MIKE BALDWIN - REMOVED PACK84 23 C 24 C USAGE: CALL READCNTRL2(IEOF) 25 C INPUT ARGUMENT LIST: 26 C NONE 27 C 28 C OUTPUT ARGUMENT LIST: 29 C IEOF - INTEGER FLAG FOR EOF IN CONTROL FILE. 30 C IEOF=0 WHEN AN EOF IS READ IN THE 31 C CONTROL FILE. IEOF=1 OTHERWISE. 32 C 33 C OUTPUT FILES: 34 C NONE 35 C 36 C SUBPROGRAMS CALLED: 37 C UTILITIES: 38 C TRNSEG - SET E-GRID SPECIFCATIONS. 39 C TRNSGD - SET OUTPUT GRID SPECIFICATIONS. 40 C E2TLL - COMPUTE TRANSFORMED (LAT,LON) ON E-GRID. 41 C FILLH - FILL "H" POINTS FOR "V" POINT ARRAY. 42 C FILLV - FILL "V" POINTS FOR "H" POINT ARRAY. 43 C GENLL - COMPUTE OUTPUT GRID GEODETIC (LAT,LON). 44 C GD2TLL - MAP GEODETIC (LAT,LON) TO TRANSFORM 45 C ETA GRID REFERENCE FRAME. 46 C GD2EG - MAP OUTPUT GRID (I,J) TO FILLED E-GRID (I,J). 47 C GD2EGK - MAP OUTPUT GRID (I,J) TO E-GRID (K) FOR CETLIH4. 48 C GENBIL - COMPUTE BILINEAR INTERPOLATION WEIGHTS. 49 C GENEUV - LOAD ROTATION ARRAYS FOR WINDS. 50 C 51 C LIBRARY: 52 C COMMON - OUTGRD 53 C RQSTFLD 54 C LLGRDS 55 C IOUNIT 56 C PHYS2 57 C OPTIONS Page 2 Source Listing READCNTRL2 2014-12-17 20:48 READCNTRL2.f 58 C MAPOT 59 C CTLBLK 60 C 61 C ATTRIBUTES: 62 C LANGUAGE: FORTRAN 63 C MACHINE : CRAY C-90 64 C$$$ 65 C 66 C 67 C INCLUDE ETA GRID DIMENSIONS. SET/DERIVE PARAMETERS. 68 C 69 INCLUDE "parmeta" 87 INCLUDE "parmout" 91 INCLUDE "parm.tbl" 93 PARAMETER (IMJM=IM*JM-JM/2,IMT=2*IM-1,JMT=JM,LP1=LM+1) 94 PARAMETER (DTR=1.745329E-2,RTD=1./DTR) 95 C 96 C DECLARE VARIABLES. 97 C 98 LOGICAL NORTH 99 CHARACTER*2 CHAR2 100 CHARACTER*4 CHAR4 101 CHARACTER*6 NUFILE,OUTYPE,PROJ,READCO,READLL 102 CHARACTER*80 LINE 103 REAL EGRID1(IM,JM), EGRID2(IM,JM) 104 C 105 C INCLUDE COMMON BLOCKS. 106 INCLUDE "OUTGRD.comm" 111 INCLUDE "RQSTFLD.comm" 124 INCLUDE "LLGRDS.comm" 138 INCLUDE "IOUNIT.comm" 146 INCLUDE "PHYS2.comm" 167 INCLUDE "OPTIONS.comm" 171 INCLUDE "MAPOT.comm" 184 INCLUDE "CTLBLK.comm" 185 C 186 C****************************************************************************** 187 C START READCNTRL HERE. 188 C 203 IFHR = NTSD/TSPH + 0.5 204 WRITE(STDOUT,*)'READCNTRL2: POSTING FCST HR ',IFHR,' FROM ', 205 X IHRST,'UTC ',IDAT(1),'-',IDAT(2),'-',IDAT(3),' RUN' 206 C 207 C INITIALIZE VARIABLES. 208 C IEOF IS THE END OF FILE FLAG FOR THE CONTROL FILE. 209 C ARRAY IGET IS THE "GET FIELD" FLAG ARRAY. 210 C 211 IEOF=0 212 DO 100 IFLD=1,MXFLD 213 IGET(IFLD)=-1 214 100 CONTINUE 215 C 216 C READ OUTPUT GRID SPECIFICATIONS. 217 C 218 READ(LCNTRL,1000,ERR=990,END=999) KGTYPE 219 READ(LCNTRL,1000,ERR=990,END=999) IMDLTY 220 READ(LCNTRL,1030,ERR=990,END=999) DATSET Page 3 Source Listing READCNTRL2 2014-12-17 20:48 READCNTRL2.f 221 READ(LCNTRL,1030,ERR=990,END=999) OUTYPE 222 READ(LCNTRL,1030,ERR=990,END=999) NUFILE 223 READ(LCNTRL,1030,ERR=990,END=999) PROJ 224 READ(LCNTRL,1010,ERR=990,END=999) NORTH 225 READ(LCNTRL,1000,ERR=990,END=999) IGOUT 226 READ(LCNTRL,1000,ERR=990,END=999) JGOUT 227 READ(LCNTRL,1020,ERR=990,END=999) POLEI 228 READ(LCNTRL,1020,ERR=990,END=999) POLEJ 229 READ(LCNTRL,1020,ERR=990,END=999) ALATVT 230 READ(LCNTRL,1020,ERR=990,END=999) ALONVT 231 READ(LCNTRL,1020,ERR=990,END=999) XMESHL 232 READ(LCNTRL,1030,ERR=990,END=999) READLL 233 READ(LCNTRL,1030,ERR=990,END=999) READCO 234 1000 FORMAT(T28,I5) 235 1010 FORMAT(T28,L1) 236 1020 FORMAT(T28,F11.6) 237 1030 FORMAT(T28,A6) 238 C 239 C IF THE GRID TYPE (KGTYPE) IS NEITHER 0 NOR 99999 THEN THE 240 C ONLY ALLOWED PROJECTIONS FOR THE OUTPUT GRID ARE POLAR 241 C STEREOGRAPHIC (POLA), LATITUDE-LONGITUDE (LOLA), AND LAMBERT 242 C (TANGENT) CONFORMAL (LMBC). IF THE REQUESTED PROJECTION 243 C DOES NOT SATISFY THESE CONDITIONS, TELL THE USER AND ASSUME 244 C OUTPUT ON THE STAGGERED E-GRID. 245 C 246 IF ( (KGTYPE.LT.90).OR.(KGTYPE.GT.97 247 1 .AND.KGTYPE.NE.99.AND.KGTYPE.NE.190.AND.KGTYPE.NE.192 248 1 .AND.KGTYPE.NE.194.AND.KGTYPE.NE.196) ) THEN 249 IF (INDEX(PROJ,'POLA').NE.0) THEN 250 WRITE(STDOUT,*)'READCNTRL2: POLAR STEREOGRAPHIC ', 251 X 'PROJECTION REQUESTED. PROJ=',PROJ 252 ELSEIF (INDEX(PROJ,'LOLA').NE.0) THEN 253 WRITE(STDOUT,*)'READCNTRL2: LATITUDE-LONGITUDE ', 254 X 'PROJECTION REQUESTED. PROJ=',PROJ 255 ELSEIF (INDEX(PROJ,'LMBC').NE.0) THEN 256 WRITE(STDOUT,*)'READCNTRL2: LAMBERT (TANGENT) CONFORMAL ', 257 X 'PROJECTION REQUESTED. PROJ=',PROJ 258 ELSE 259 WRITE(STDOUT,*) 260 X 'READCNTRL2: PROJ=',PROJ,' IS NOT AVAILABLE.' 261 WRITE(STDOUT,*) 262 X ' USING STAGGERED E-GRID AS DEFAULT' 263 C 264 CMEB NEED TO KNOW WHICH VERSION OF THE MODEL IS RUNNING AT THIS POINT 265 C 266 KGTYPE = 90 267 PROJ = 'ETA' 268 ENDIF 269 ENDIF 270 C 271 C 00HR LFM LOOK-ALIKE FIELDS GO ON GRIDS 026 AND 005. 272 C THE WAY THE CODE IS STRUCTURED WE MUST PROCESS GRIDS 273 C 026 AND 005 SEPARATELY. TO UNIQUELY IDENTIFY THAT 274 C THE USER ONLY WANTS THE 00HR LFM FIELDS ON GRID 005 275 C DATSET MUST BE SET TO "ETA_AN". IF THE CURRENT POST 276 C TIME IS NOT 00, SKIP OUTPUT ON GRID 005. 277 C Page 4 Source Listing READCNTRL2 2014-12-17 20:48 READCNTRL2.f 278 IF ((KGTYPE.EQ.005).AND.(INDEX(DATSET,'ETA_AN').NE.0)) THEN 279 IFHR = NTSD/TSPH+0.50 280 IF (IFHR.NE.0) GOTO 999 281 ENDIF 282 C 283 C SET FLAG FOR TYPE OF OUTPUT. 284 C 285 IOUTYP=0 286 IF (INDEX(OUTYPE,'NO' ).NE.0) IOUTYP=1 287 IF (INDEX(OUTYPE,'GRIBIT').NE.0) IOUTYP=3 288 IF (INDEX(OUTYPE,'GRIBRK').NE.0) IOUTYP=5 289 IF (IOUTYP.EQ.0) THEN 290 WRITE(STDOUT,*)'OUTPUT TYPE ', 291 X OUTYPE,'NOT SUPPORTED.' 292 IOUTYP=1 293 WRITE(STDOUT,*)'USING MACHINE BINARY AS DEFAULT. ', 294 X 'IOUTYP=',IOUTYP 295 ENDIF 296 C 297 C IF NEW OUTPUT FILE IS SPECIFIED 298 C 1. CLOSE THE PREVIOUS OUTPUT FILE UNIT, 299 C 2. SET FLAG TO OPEN NEW OUTPUT FILE 300 C 301 RITEHD = .FALSE. 302 RITE2 = .FALSE. 303 IF (INDEX(NUFILE,'YES').NE.0) THEN 304 CLOSE(LUNOUT) 305 CLOSE(LUNOUT+1) 306 CLOSE(LUNOUT+2) 307 WRITE(STDOUT,*)' READCNTRL2: JUST CLOSED UNITS ',LUNOUT, 308 X LUNOUT+1,LUNOUT+2 309 RITEHD = .TRUE. 310 RITE2 = .TRUE. 311 WRITE(STDOUT,*) 312 X ' READCNTRL2: NEXT UNIT(S) OPENED WILL BE ',LUNOUT, 313 X LUNOUT+1,LUNOUT+2 314 ENDIF 315 C 316 C INCREMENT UNIT NUMBERS FOR WEIGHTS AND LATLON GRID. 317 C SET FLAG TO WRITE HEADER TO LEAD OFF OUTPUT FILE. 318 IF (INDEX(READCO,'NO').EQ.0) THEN 319 LUNCO = LUNCO + 1 320 REWIND(LUNCO) 321 ENDIF 322 IF (INDEX(READLL,'NO').EQ.0) THEN 323 LUNLL = LUNLL + 1 324 REWIND(LUNLL) 325 ENDIF 326 C 327 C LOAD E-GRID AND OUTPUT GRID COMMON BLOCKS. 328 CALL TRNSEG 329 IF ( (KGTYPE.LT.90).OR.(KGTYPE.GT.97 330 1 .AND.KGTYPE.NE.99.AND.KGTYPE.NE.190.AND.KGTYPE.NE.192 331 1 .AND.KGTYPE.NE.194.AND.KGTYPE.NE.196) ) CALL TRNSGD 332 C 333 C IF THE USER WANTS TO READ IN PRECOMPUTED WEIGHTS, DO SO. 334 C Page 5 Source Listing READCNTRL2 2014-12-17 20:48 READCNTRL2.f 335 IF(INDEX(READCO,'NO').EQ.0)THEN 336 WRITE(STDOUT,*)'READ PRECOMPUTED WEIGHTS' 337 READ(LUNCO,ERR=992) ((GDLAT(I,J),I=1,IGOUT),J=1,JGOUT) 338 READ(LUNCO,ERR=992) ((GDLON(I,J),I=1,IGOUT),J=1,JGOUT) 339 READ(LUNCO,ERR=992) ((GDTLAT(I,J),I=1,IGOUT),J=1,JGOUT) 340 READ(LUNCO,ERR=992) ((GDTLON(I,J),I=1,IGOUT),J=1,JGOUT) 341 READ(LUNCO,ERR=992) ((HTLAT(I,J),I=1,IM),J=1,JM) 342 READ(LUNCO,ERR=992) ((HTLON(I,J),I=1,IM),J=1,JM) 343 READ(LUNCO,ERR=992) ((IEGRDK(I,J),I=1,IM),J=1,JM) 344 READ(LUNCO,ERR=992) ((JEGRDK(I,J),I=1,IM),J=1,JM) 345 READ(LUNCO,ERR=992) ((VTLAT(I,J),I=1,IM),J=1,JM) 346 READ(LUNCO,ERR=992) ((VTLON(I,J),I=1,IM),J=1,JM) 347 READ(LUNCO,ERR=992) ((FVTLON(I,J),I=1,IMT),J=1,JMT) 348 READ(LUNCO,ERR=992) ((EVLAT(I,J),I=1,IMT),J=1,JMT) 349 READ(LUNCO,ERR=992) ((EVLON(I,J),I=1,IMT),J=1,JMT) 350 READ(LUNCO,ERR=992) ((EGRDI(I,J),I=1,IGOUT),J=1,JGOUT) 351 READ(LUNCO,ERR=992) ((EGRDJ(I,J),I=1,IGOUT),J=1,JGOUT) 352 READ(LUNCO,ERR=992) ((IEGRD(I,J),I=1,IGOUT),J=1,JGOUT) 353 READ(LUNCO,ERR=992) ((JEGRD(I,J),I=1,IGOUT),J=1,JGOUT) 354 READ(LUNCO,ERR=992) ((IWGT(I,J),I=1,IGOUT),J=1,JGOUT) 355 READ(LUNCO,ERR=992) ((WIJ(I,J),I=1,IGOUT),J=1,JGOUT) 356 READ(LUNCO,ERR=992) ((WIPJ(I,J),I=1,IGOUT),J=1,JGOUT) 357 READ(LUNCO,ERR=992) ((WIJP(I,J),I=1,IGOUT),J=1,JGOUT) 358 READ(LUNCO,ERR=992) ((WIPJP(I,J),I=1,IGOUT),J=1,JGOUT) 359 C 360 C OTHERWISE, WE MUST COMPUTE THE WEIGHTS AS WE RUN THE 361 C PROGRAM. CHECK TO SEE IF A USER DEFINED (LAT,LON) 362 C GRID EXITS. IF SO, READ IT. IF NOT, USE THE GRID 363 C SPECIFICATIONS TO GENERATE (LAT,LON) FOR THE OUTPUT 364 C GRID. IN EITHER CASE, TRANSFORM GEODETIC (LAT,LON) 365 C OF THE OUTPUT GRID TO THE ETA REFERENCE FRAME. 366 C 367 ELSE 368 C 369 C SET UP E-GRID (LAT,LON) ARRAYS. 370 WRITE(STDOUT,*)'SET UP E-GRID (LAT,LON) ARRAYS' 371 CALL E2TLL(HTLAT,HTLON,VTLAT,VTLON) 372 CALL FILLH(VTLON,FVTLON,IMT,JMT) 373 C 374 C READ IN USER (LAT,LON) GRID IF ONE EXISTS. 375 IF (INDEX(READLL,'NO').EQ.0) THEN 376 WRITE(STDOUT,*)'READ USER OUTPUT GRID (LAT,LON)' 377 READ(LUNLL,ERR=994) ((GDLAT(I,J),I=1,IGOUT),J=1,JGOUT) 378 READ(LUNLL,ERR=994) ((GDLON(I,J),I=1,IGOUT),J=1,JGOUT) 379 C READ(LUNLL,1050,ERR=994) (((GDLAT(I,J),GDLON(I,J)), 380 C X I=1,IGOUT),J=1,JGOUT) 381 C1050 FORMAT(3(2(F11.6,1X),1X)) 382 C 383 C OTHERWISE GENERATE OUTPUT GRID (LAT,LON) 384 C WE DON'T NEED THE WEIGHTS IF OUTPUT GRID 385 C IS A FILLED E-GRID (KGTYPE=0). HOWEVER, 386 C THE USER MAY REQUEST FILLED E-GRID (LAT, 387 C LON), SO COMPUTE THESE FIELDS. 388 C 389 ELSE 390 IF ( (KGTYPE.LT.90).OR.(KGTYPE.GT.97 391 1 .AND.KGTYPE.NE.99.AND.KGTYPE.NE.190.AND.KGTYPE.NE.192 Page 6 Source Listing READCNTRL2 2014-12-17 20:48 READCNTRL2.f 392 1 .AND.KGTYPE.NE.194.AND.KGTYPE.NE.196) ) THEN 393 WRITE(STDOUT,*)'GENERATE OUTPUT GRID (LAT,LON)' 394 CALL GENLL(GDLAT,GDLON) 395 ELSE 396 WRITE(STDOUT,*)'COMPUTE E-GRID GEO-(LAT,LON)' 397 DO J=1,JM 398 DO I=1,IM 399 EGRID1(I,J) = GLAT(I,J)*RTD 400 EGRID2(I,J) = GLON(I,J)*RTD 401 ENDDO 402 ENDDO 403 IF (MOD(KGTYPE,2).EQ.1.AND.KGTYPE.NE.99) THEN 404 IGOUT = IMT 405 JGOUT = JMT 406 CALL FILLV(EGRID1,GDLAT,IFLAG,IMT,JMT) 407 CALL FILLV(EGRID2,GDLON,IFLAG,IMT,JMT) 408 ELSE 409 DO J=1,JM 410 DO I=1,IM 411 GDLAT(I,J)=EGRID1(I,J) 412 GDLON(I,J)=EGRID2(I,J) 413 ENDDO 414 ENDDO 415 ENDIF 416 ENDIF 417 ENDIF 418 C 419 C COMPUTE INTERPOLATION WEIGHTS. WE DON'T NEED TO 420 C DO THIS FOR KGTYPE=0. HOWEVER, WE DO NEED GEODETIC 421 C (LAT,LON) FOR FILLED E-EGRID IF KGTYPE=0 422 C 423 IF ( (KGTYPE.LT.90).OR.(KGTYPE.GT.97 424 1 .AND.KGTYPE.NE.99.AND.KGTYPE.NE.190.AND.KGTYPE.NE.192 425 1 .AND.KGTYPE.NE.194.AND.KGTYPE.NE.196) ) THEN 426 CALL GD2TLL(GDLAT,GDLON,GDTLAT,GDTLON,IGOUT,JGOUT) 427 CALL GD2EG(IGOUT,JGOUT) 428 CALL GD2EGK(IGOUT,JGOUT) 429 CALL GENBIL(FVTLON,IGOUT,JGOUT) 430 CALL GENEUV(EVLAT,EVLON) 431 ENDIF 432 ENDIF 433 C 434 C ECHO GRID SPECIFICATIONS TO STDOUT. 435 C 436 WRITE(STDOUT,*)'READCNTRL: OUTPUT GRID SPECIFICATIONS AND SETUP' 437 WRITE(STDOUT,*)' KGTYPE : ',KGTYPE 438 WRITE(STDOUT,*)' IGOUT,JGOUT : ',IGOUT,JGOUT 439 WRITE(STDOUT,*)' DATSET,OUTYPE: ',DATSET,' ',OUTYPE 440 WRITE(STDOUT,*)' NUFILE,RITEHD: ',NUFILE,RITEHD,' ',RITE2 441 WRITE(STDOUT,*)' READLL,READCO: ',READLL,' ',READCO 442 WRITE(STDOUT,*)' IOUTYP : ',IOUTYP 443 WRITE(STDOUT,*)' LUNCO,LL,OUT : ',LUNCO,LUNLL,LUNOUT 444 C 445 C ALL THE GRID STUFF IS DONE. NOW READ WHICH FIELDS ON 446 C WHICH LEVELS TO INTERPOLATE TO THE OUTPUT GRID. THE 447 C CHARACTER STRING "DONE" MARKS THE END OF THE OUTPUT 448 C FIELD SPECIFICATIONS. Page 7 Source Listing READCNTRL2 2014-12-17 20:48 READCNTRL2.f 449 C 450 IFLD = 0 451 10 CONTINUE 452 READ(LCNTRL,1060,ERR=996) LINE 453 IF (INDEX(LINE,'DONE').NE.0) GOTO 40 454 IF (INDEX(LINE,'SCAL=').EQ.0) GOTO 10 455 IFLD = IFLD+1 456 FIELD(IFLD) = LINE(3:22) 457 CHAR2 = LINE(64:65) 458 CALL CHR2INT(CHAR2,2,ISMSTG(IFLD)) 459 CHAR2 = LINE(67:68) 460 CALL CHR2INT(CHAR2,2,ISMFUL(IFLD)) 461 CHAR2 = LINE(70:71) 462 CALL CHR2INT(CHAR2,2,ISMOUT(IFLD)) 463 READ(LINE,1061) DEC(IFLD) 464 READ(LCNTRL,1090,ERR=996) (LVLS(L,IFLD),L=1,MXLVL) 465 1060 FORMAT(A80) 466 1061 FORMAT(50X,F4.1) 467 1070 FORMAT(A4) 468 1080 FORMAT(A2) 469 1090 FORMAT(T5,12(5I1,1X)) 470 C 471 C SEE IF WE WANT THIS FIELD. THE SUM OF THE LEVELS 472 C INDICATORS MUST BE GREATER THAN ZERO IF WE WANT 473 C THIS FIELD. 474 C 475 ISUM = 0 476 DO 15 L = 1,MXLVL 477 ISUM = ISUM + LVLS(L,IFLD) 478 15 CONTINUE 479 IF (ISUM.LT.1) THEN 480 IFLD = IFLD - 1 481 GOTO 10 482 ENDIF 483 C 484 C SEE IF REQUESTED FIELD IS AVAILABLE. IF NOT, 485 C WRITE MESSAGE TO STDOUT AND DECREMENT FIELD 486 C COUNTER BY ONE. THEN READ NEXT REQUESTED FIELD. 487 C 488 DO 20 IAVBL = 1,MXFLD 489 IF (INDEX(FIELD(IFLD),AVBL(IAVBL)).NE.0) GOTO 30 490 20 CONTINUE 491 WRITE(STDOUT,*)'FIELD ',FIELD(IFLD),' NOT AVAILABLE' 492 IFLD = IFLD-1 493 GOTO 10 494 C 495 C IF FIELD IS AVAILABLE, TURN THE GET SWITCH ON. 496 C 497 30 CONTINUE 498 IGET(IAVBL) = IFLD 499 IDENT(IFLD) = IAVBL 500 GOTO 10 501 C 502 C ALL DONE READING REQUESTED FIELDS FOR CURRENT OUTPUT GRID. 503 C SET NFLD TO TOTAL NUMBER OF REQUESTED OUTPUT FIELDS THAT 504 C ARE AVAILABLE. 505 C Page 8 Source Listing READCNTRL2 2014-12-17 20:48 READCNTRL2.f 506 40 CONTINUE 507 NFLD = IFLD 508 C 509 C ECHO OUTPUT FIELDS/LEVELS TO STDOUT. 510 C 511 WRITE(STDOUT,*)'BELOW ARE FIELD/LEVEL/SMOOTHING ', 512 X 'SPECIFICATIONS.' 513 DO 50 IFLD = 1,NFLD 514 WRITE(STDOUT,2060) FIELD(IFLD),IQ(IDENT(IFLD)), 515 X IS(IDENT(IFLD)),ISMSTG(IFLD),ISMFUL(IFLD),ISMOUT(IFLD) 516 WRITE(STDOUT,2070) (LVLS(L,IFLD),L=1,MXLVL) 517 2060 FORMAT('(',A20,') Q=(',I4,'), S=(',I4, 518 X '), SMTH=(',I2,1X,I2,1X,I2,')') 519 2070 FORMAT('L=(',12(5I1,1X),')') 520 50 CONTINUE 521 C 522 C WE HAVE AN OUTPUT GRID AND THE FIELDS TO GENERATE ON IT. 523 C SKIP OVER THE FOLLOWING EOF MESSAGE TO EXIT THIS ROUTINE. 524 C 525 GOTO 60 526 C 527 C WE REACH THIS BLOCK ONLY IF THERE IS AN ERROR WHILE READING 528 C IN THE CONTROL FILE. PRINT AN ERROR MESSAGE TO STANDARD 529 C OUT AND CARRY ON. 530 C 531 990 CONTINUE 532 WRITE(STDOUT,*)' READCNTRL2: ERROR READING CNTRL GRID INFO' 533 WRITE(STDOUT,*)' BELOW IS CNTRL GRID INFO' 534 WRITE(STDOUT,*)' KGTYPE,DATSET: ',KGTYPE,' ',DATSET 535 WRITE(STDOUT,*)' OUTYPE,NUFILE: ',OUTYPE,' ',NUFILE 536 WRITE(STDOUT,*)' PROJ : ',PROJ 537 WRITE(STDOUT,*)' NORTH : ',NORTH 538 WRITE(STDOUT,*)' IGOUT,JGOUT : ',IGOUT,JGOUT 539 WRITE(STDOUT,*)' POLEI,POLEJ : ',POLEI,POLEJ 540 WRITE(STDOUT,*)' ALATVT,ALONVT: ',ALATVT,ALONVT 541 WRITE(STDOUT,*)' XMESHL : ',XMESHL 542 WRITE(STDOUT,*)' READLL,READCO: ',READLL,READCO 543 GOTO 999 544 992 CONTINUE 545 WRITE(STDOUT,*)' READCNTRL2: ERROR READING INTERP WEIGHTS' 546 GOTO 999 547 994 CONTINUE 548 WRITE(STDOUT,*)' READCNTRL2: ERROR READING LATLON GRID' 549 GOTO 999 550 996 CONTINUE 551 WRITE(STDOUT,*)' READCNTRL2: ERROR READING CNTRL FLD/LVL INFO' 552 C 553 C WE REACH THIS BLOCK ONLY WHEN AN EOF HAS BEEN READ FROM 554 C THE CONTROL FILE. THAT MEANS WE'VE PROCESSED ALL GRIDS 555 C AND ALL FIELDS. WE'RE DONE. SET THE EOF FLAG TO ANY 556 C NONZERO INTEGER, SAY ONE. CLOSE THE UNIT CONNECTED TO 557 C THE LAST OUTPUT FILE AND EXIT THE ROUTINE. 558 C 559 999 CONTINUE 560 IEOF=1 561 CLOSE(LUNOUT) 562 CLOSE(LUNOUT+1) Page 9 Source Listing READCNTRL2 2014-12-17 20:48 READCNTRL2.f 563 CLOSE(LUNOUT+2) 564 WRITE(STDOUT,*)' READCNTRL2: ALL GRIDS PROCESSED. ', 565 X 'CLOSED ',LUNOUT 566 C 567 C END OF ROUTINE. 568 C 569 60 CONTINUE 570 RETURN 571 END ENTRY POINTS Name readcntrl2_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 10 Label 345 348,375,387,394 100 Label 108 106 1000 Label 128 112,113,119,120 1010 Label 129 118 1020 Label 130 121,122,123,124,125 1030 Label 131 114,115,116,117,126,127 1060 Label 359 346 1061 Label 360 357 1070 Label 361 1080 Label 362 1090 Label 363 358 15 Label 372 370 20 Label 384 382 2060 Label 411 408 2070 Label 413 410 30 Label 391 383 40 Label 400 347 50 Label 414 407 60 Label 463 419 990 Label 425 112,113,114,115,116,117,118,119,12 0,121,122,123,124,125,126,127 992 Label 438 231,232,233,234,235,236,237,238,23 9,240,241,242,243,244,245,246,247, 248,249,250,251,252 994 Label 441 271,272 996 Label 444 346,358 999 Label 453 112,113,114,115,116,117,118,119,12 0,121,122,123,124,125,126,127,174, 437,440,443 AETA Scalar 8 R(4) 4 1 45 COM AETA2 Scalar 7 R(4) 4 1 45 COM ALATVT Scalar 2 R(4) 4 scalar COM 123,434 ALBASE Scalar 14 R(4) 4 2 91719 COM ALBEDO Scalar 15 R(4) 4 2 91719 COM ALONVT Scalar 2 R(4) 4 scalar COM 124,434 Page 10 Source Listing READCNTRL2 2014-12-17 20:48 Symbol Table READCNTRL2.f Name Object Declared Type Bytes Dimen Elements Attributes References ALSL Scalar 7 R(4) 4 1 39 COM AVBL Scalar 2 CHAR 20 1 250 COM 383 CHAR2 Local 78 CHAR 2 scalar 351,352,353,354,355,356 CHAR4 Local 79 CHAR 4 scalar CHR2INT Subr 352 352,354,356 CI Scalar 4 R(4) 4 scalar COM CMLD Scalar 6 R(4) 4 scalar COM CPHI0 Scalar 9 R(4) 4 scalar COM 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 DATSET Scalar 3 CHAR 6 scalar COM 114,172,333,428 DEC Scalar 8 R(4) 4 1 250 COM 357 DETA Scalar 8 R(4) 4 1 45 COM DETA2 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 DISLP Scalar 7 R(4) 4 scalar COM DLMD Scalar 6 R(4) 4 scalar COM DP30 Scalar 6 R(4) 4 scalar COM DPHD Scalar 6 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 DTR Param 73 R(4) 4 scalar 73 E2TLL Subr 265 265 EGRDI Scalar 9 R(4) 4 2 91719 COM 244 EGRDJ Scalar 9 R(4) 4 2 91719 COM 245 EGRID1 Local 82 R(4) 4 2 91719 293,300,305 EGRID2 Local 82 R(4) 4 2 91719 294,301,306 ELWDWN Scalar 13 R(4) 4 2 91719 COM EPSR Scalar 11 R(4) 4 2 91719 COM ERLAM0 Scalar 9 R(4) 4 scalar COM ETA Scalar 8 R(4) 4 1 46 COM EVLAT Scalar 8 R(4) 4 2 183051 COM 242,324 EVLON Scalar 8 R(4) 4 2 183051 COM 243,324 FIELD Scalar 2 CHAR 20 1 250 COM 350,383,385,408 FILLH Subr 266 266 FILLV Subr 300 300,301 FIRST Scalar 3 R(4) 4 scalar COM FVTLON Scalar 7 R(4) 4 2 183051 COM 241,266,323 GD2EG Subr 321 321 GD2EGK Subr 322 322 GD2TLL Subr 320 320 GDLAT Scalar 3 R(4) 4 2 91719 COM 231,271,288,300,305,320 GDLON Scalar 3 R(4) 4 2 91719 COM 232,272,288,301,306,320 GDTLAT Scalar 4 R(4) 4 2 91719 COM 233,320 GDTLON Scalar 4 R(4) 4 2 91719 COM 234,320 GENBIL Subr 323 323 GENEUV Subr 324 324 GENLL Subr 288 288 GFFC Scalar 14 R(4) 4 2 91719 COM GI2 Scalar 3 R(4) 4 scalar COM Page 11 Source Listing READCNTRL2 2014-12-17 20:48 Symbol Table READCNTRL2.f Name Object Declared Type Bytes Dimen Elements Attributes References GLAT Scalar 12 R(4) 4 2 91719 COM 293 GLON Scalar 12 R(4) 4 2 91719 COM 294 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 HTLAT Scalar 5 R(4) 4 2 91719 COM 235,265 HTLON Scalar 5 R(4) 4 2 91719 COM 236,265 HTOP Scalar 13 R(4) 4 2 91719 COM I Local 231 I(4) 4 scalar 231,232,233,234,235,236,237,238,23 9,240,241,242,243,244,245,246,247, 248,249,250,251,252,271,272,292,29 3,294,304,305,306 IAVBL Local 382 I(4) 4 scalar 382,383,392,393 IBESSL Scalar 2 I(4) 4 scalar COM 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 99 IDENT Scalar 10 I(4) 4 1 250 COM 393,408,409 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 246 IEGRDK Scalar 6 I(4) 4 2 91719 COM 237 IEOF Dummy 1 I(4) 4 scalar ARG,INOUT 105,454 IFHR Local 97 I(4) 4 scalar 97,98,173,174 IFILV Scalar 11 I(4) 4 1 250 COM IFLAG Scalar 2 I(4) 4 scalar COM 300,301 IFLD Local 106 I(4) 4 scalar 106,107,344,349,350,352,354,356,35 7,358,371,374,383,385,386,392,393, 401,407,408,409,410 IGET Scalar 8 I(4) 4 1 250 COM 107,392 IGOUT Scalar 3 I(4) 4 scalar COM 119,231,232,233,234,244,245,246,24 7,248,249,250,251,252,271,272,298, 320,321,322,323,332,432 IGSTL Param 9 I(4) 4 scalar 14 IGSTR Param 9 I(4) 4 scalar 14 IHRST Scalar 3 I(4) 4 scalar COM 99 IM Param 3 I(4) 4 scalar 3,5,6,7,11,12,13,14,15,16,72,82,23 5,236,237,238,239,240,292,304 IMDLTY Scalar 3 I(4) 4 scalar COM 113 IMJM Param 72 I(4) 4 scalar IMT Param 72 I(4) 4 scalar 7,8,241,242,243,266,298,300,301 IMX Param 3 I(4) 4 scalar 3,4,9,10,11,12 INDEX Func 143 scalar 143,146,149,172,180,181,182,197,21 2,216,229,269,347,348,383 INPES Param 6 I(4) 4 scalar 11,14 IOFFS Scalar 2 I(4) 4 scalar COM IOUNIT Common 4 20 IOUT Scalar 3 I(4) 4 scalar COM IOUTYP Scalar 8 I(4) 4 scalar COM 179,180,181,182,183,186,188,336 IQ Scalar 9 I(4) 4 1 250 COM 408 IS Scalar 9 I(4) 4 1 250 COM 409 ISHDE Scalar 4 I(4) 4 1 61 COM Page 12 Source Listing READCNTRL2 2014-12-17 20:48 Symbol Table READCNTRL2.f Name Object Declared Type Bytes Dimen Elements Attributes References ISMFUL Scalar 9 I(4) 4 1 250 COM 354,409 ISMOUT Scalar 10 I(4) 4 1 250 COM 356,409 ISMSTG Scalar 9 I(4) 4 1 250 COM 352,409 ISUM Local 369 I(4) 4 scalar 369,371,373 ITAIL Param 11 I(4) 4 scalar ITB Param 1 I(4) 4 scalar 8,18 ITBQ Param 1 I(4) 4 scalar 9,18 IUNIT Scalar 10 I(4) 4 scalar COM IUP Scalar 7 I(4) 4 scalar COM IWGT Scalar 11 I(4) 4 2 91719 COM 248 IXM Scalar 3 I(4) 4 scalar COM IYM Scalar 3 I(4) 4 scalar COM J Local 231 I(4) 4 scalar 231,232,233,234,235,236,237,238,23 9,240,241,242,243,244,245,246,247, 248,249,250,251,252,271,272,291,29 3,294,303,305,306 JDIM1 Param 15 I(4) 4 scalar JDIM2 Param 15 I(4) 4 scalar JEGRD Scalar 10 I(4) 4 2 91719 COM 247 JEGRDK Scalar 6 I(4) 4 2 91719 COM 238 JEND Scalar 6 I(4) 4 scalar COM 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 120,231,232,233,234,244,245,246,24 7,248,249,250,251,252,271,272,299, 320,321,322,323,332,432 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,6,7,11,12,13,14,15,16,72,82,23 5,236,237,238,239,240,291,303 JMT Param 72 I(4) 4 scalar 7,8,241,242,243,266,299,300,301 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 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 JTB Param 1 I(4) 4 scalar 8,18 JTBQ Param 1 I(4) 4 scalar 18 KGTYPE Scalar 8 I(4) 4 scalar COM 112,140,141,142,160,172,223,224,22 5,284,285,286,297,317,318,319,331, 428 KSB Scalar 2 I(4) 4 scalar COM KTM Scalar 3 I(4) 4 scalar COM KUNIT Scalar 10 I(4) 4 scalar COM L Local 358 I(4) 4 scalar 358,370,371,410 LCNTRL Scalar 5 I(4) 4 scalar COM 112,113,114,115,116,117,118,119,12 0,121,122,123,124,125,126,127,346, 358 LINE Local 81 CHAR 80 scalar 346,347,348,350,351,353,355,357 LIST Scalar 3 I(4) 4 scalar COM LLGRDS Common 2 9167256 LM Param 3 I(4) 4 scalar 3,7,8,72 Page 13 Source Listing READCNTRL2 2014-12-17 20:48 Symbol Table READCNTRL2.f Name Object Declared Type Bytes Dimen Elements Attributes References LP1 Param 72 I(4) 4 scalar 7,8 LSL Scalar 3 I(4) 4 scalar COM LSM Param 3 I(4) 4 scalar 7 LUNCO Scalar 5 I(4) 4 scalar COM 213,214,231,232,233,234,235,236,23 7,238,239,240,241,242,243,244,245, 246,247,248,249,250,251,252,337 LUNIT Scalar 10 I(4) 4 scalar COM LUNLL Scalar 5 I(4) 4 scalar COM 217,218,271,272,337 LUNOUT Scalar 5 I(4) 4 scalar COM 198,199,200,201,202,206,207,337,45 5,456,457,459 LVLS Scalar 10 I(4) 4 2 11250 COM 358,371,410 MAPOT Common 2 1448 ME Scalar 6 I(4) 4 scalar COM MOD Func 297 scalar 297 MUNIT Scalar 10 I(4) 4 scalar COM MXFLD Param 3 I(4) 4 scalar 2,8,9,10,11,106,382 MXLVL Param 3 I(4) 4 scalar 10,358,370,410 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 401,407 NORTH Scalar 77 L(4) 4 scalar COM 118,431 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 NTSD Scalar 4 I(4) 4 scalar COM 97,173 NTSTM Scalar 4 I(4) 4 scalar COM NUFILE Local 80 CHAR 6 scalar 116,197,334,429 NUM_PROCS Scalar 6 I(4) 4 scalar COM NUNIT Scalar 10 I(4) 4 scalar COM OPTIONS Common 2 24 OUTGRD Common 2 50 OUTYPE Local 80 CHAR 6 scalar 115,180,181,182,185,333,429 PARALLEL Common 9 8240 PHYS Common 2 7690036 PL Scalar 5 R(4) 4 scalar COM PLQ Scalar 6 R(4) 4 scalar COM POLEI Scalar 2 R(4) 4 scalar COM 121,433 POLEJ Scalar 2 R(4) 4 scalar COM 122,433 PROJ Scalar 80 CHAR 6 scalar COM 117,143,145,146,148,149,151,154,16 1,430 PT Scalar 5 R(4) 4 scalar COM PT2 Scalar 3 R(4) 4 scalar COM PTBL Scalar 18 R(4) 4 2 10184 COM QS0 Scalar 8 R(4) 4 1 134 COM R Scalar 5 R(4) 4 scalar COM 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 RDPQ Scalar 6 R(4) 4 scalar COM RDQ Scalar 5 R(4) 4 scalar COM Page 14 Source Listing READCNTRL2 2014-12-17 20:48 Symbol Table READCNTRL2.f Name Object Declared Type Bytes Dimen Elements Attributes References RDTH Scalar 5 R(4) 4 scalar COM RDTHE Scalar 5 R(4) 4 scalar COM RDTHEQ Scalar 6 R(4) 4 scalar COM RE Scalar 3 R(4) 4 scalar COM READCNTRL2 Subr 1 READCO Local 80 CHAR 6 scalar 127,212,229,335,436 READLL Local 80 CHAR 6 scalar 126,216,269,335,436 RESTRT Scalar 3 R(4) 4 scalar COM RITE2 Scalar 5 L(4) 4 scalar COM 196,204,334 RITEHD Scalar 5 L(4) 4 scalar COM 195,203,334 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 RQSTFLD Common 7 64130 RTD Param 73 R(4) 4 scalar 293,294 RUN Scalar 3 R(4) 4 scalar COM SATDEL Scalar 2 R(4) 4 scalar COM SBD Scalar 6 R(4) 4 scalar COM SIGMA Scalar 3 R(4) 4 scalar COM SIGT4 Scalar 16 R(4) 4 2 91719 COM SPHI0 Scalar 9 R(4) 4 scalar COM SPL Scalar 7 R(4) 4 1 39 COM SPVAL Scalar 2 R(4) 4 scalar COM SQS Scalar 8 R(4) 4 1 134 COM SST Scalar 14 R(4) 4 2 91719 COM STDOUT Scalar 2 I(4) 4 scalar COM 98,144,147,150,153,155,184,187,201 ,205,230,264,270,287,290,330,331,3 32,333,334,335,336,337,385,405,408 ,410,426,427,428,429,430,431,432,4 33,434,435,436,439,442,445,458 STHE Scalar 8 R(4) 4 1 76 COM STHEQ Scalar 9 R(4) 4 1 152 COM SVALUE Scalar 8 R(4) 4 scalar COM SWNET Scalar 12 R(4) 4 2 91719 COM 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 THE0 Scalar 8 R(4) 4 1 76 COM THE0Q Scalar 9 R(4) 4 1 152 COM THL Scalar 5 R(4) 4 scalar COM TLM0D Scalar 6 R(4) 4 scalar COM TPH0D Scalar 6 R(4) 4 scalar COM TRNSEG Subr 222 222 TRNSGD Subr 225 225 TSHDE Scalar 8 R(4) 4 1 61 COM TSPH Scalar 5 R(4) 4 scalar COM 97,173 TTBL Scalar 18 R(4) 4 2 10184 COM TTBLQ Scalar 18 R(4) 4 2 66880 COM VTLAT Scalar 7 R(4) 4 2 91719 COM 239,265 VTLON Scalar 7 R(4) 4 2 91719 COM 240,265,266 WBD Scalar 6 R(4) 4 scalar COM WIJ Scalar 11 R(4) 4 2 91719 COM 249 WIJP Scalar 12 R(4) 4 2 91719 COM 251 WIPJ Scalar 11 R(4) 4 2 91719 COM 250 WIPJP Scalar 12 R(4) 4 2 91719 COM 252 Page 15 Source Listing READCNTRL2 2014-12-17 20:48 Symbol Table READCNTRL2.f Name Object Declared Type Bytes Dimen Elements Attributes References X1P Scalar 6 R(4) 4 scalar COM XMESHL Scalar 2 R(4) 4 scalar COM 125,435 Y1P Scalar 6 R(4) 4 scalar COM Z0SLP Scalar 7 R(4) 4 scalar COM Page 16 Source Listing READCNTRL2 2014-12-17 20:48 Subprograms/Common Blocks READCNTRL2.f SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References CTLBLK Common 2 96 IOUNIT Common 4 20 LLGRDS Common 2 9167256 MAPOT Common 2 1448 OPTIONS Common 2 24 OUTGRD Common 2 50 PARALLEL Common 9 8240 PHYS Common 2 7690036 READCNTRL2 Subr 1 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__ -D __tune_pentium4__ -D __SSE2__ Page 17 Source Listing READCNTRL2 2014-12-17 20:48 READCNTRL2.f -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 : READCNTRL2.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100