Page 1 Source Listing GSCOND 2014-12-17 20:47 /tmpnwprd/ifortytVCOm.i 1 # 1 "GSCOND.F" 2 SUBROUTINE GSCOND 3 C ****************************************************************** 4 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 5 C . . . 6 C SUBPROGRAM: GSCOND GRID SCALE CONDENSATION AND EVAPORATION 7 C PRGRMMR: ZHAO ORG: W/NP22 DATE: ??-??-?? 8 C 9 C ABSTRACT: 10 C GSCOND COMPUTES THE GRID SCALE EVAPORATION AND CONDENSATION 11 C 12 C PROGRAM HISTORY LOG: 13 C 94-??-?? ZHAO - ORIGINATOR 14 C 95-03-25 BLACK - CONVERSION FROM 1-D TO 2-D IN HORIZONTAL 15 C 95-03-28 BLACK - ADDED EXTERNAL EDGE 16 C 98-11-02 BLACK - MODIFIED FOR DISTRIBUTED MEMORY 17 C 18 C USAGE: CALL GSCOND FROM MAIN PROGRAM EBU 19 C 20 C INPUT ARGUMENT LIST: 21 C NONE 22 C 23 C OUTPUT ARGUMENT LIST: 24 C NONE 25 C 26 C OUTPUT FILES: 27 C NONE 28 C 29 C SUBPROGRAMS CALLED: 30 C 31 C UNIQUE: NONE 32 C 33 C LIBRARY: NONE 34 C 35 C COMMON BLOCKS: CTLBLK 36 C LOOPS 37 C MASKS 38 C PHYS 39 C VRBLS 40 C CLDWTR 41 C TEMPV 42 C PVRBLS 43 C ACMCLH 44 C 45 C ATTRIBUTES: 46 C LANGUAGE: FORTRAN 90 47 C MACHINE : IBM SP 48 C$$$ 49 C*********************************************************************** 50 P A R A M E T E R 51 & (A1=610.78,A2=17.2693882,A3=273.16,A4=35.86 52 &, PQ0=379.90516,TRESH=.95 53 &, CP=1004.6,ELWV=2.50E6,ELIV=2.834E6,ROW=1.E3,G=9.8 54 &, EPSQ=2.E-12,DLDT=2274.0,TM10=263.16,R=287.04 55 &, CPR=CP*R,RCPR=1./(CPR)) 56 P A R A M E T E R 57 & (ARCP=A2*(A3-A4)/CP,RCP=1./CP,PQ0C=PQ0*TRESH,RROG=1./(ROW*G)) Page 2 Source Listing GSCOND 2014-12-17 20:47 GSCOND.F 58 C---------------------------------------------------------------------- 59 INCLUDE "parmeta" 82 INCLUDE "parm.tbl" 84 INCLUDE "mpp.h" 85 # 1 "./sp.h" 1 86 # 4 87 88 # 62 "GSCOND.F" 2 89 C---------------------------------------------------------------------- 148 P A R A M E T E R 149 & (IMJM=IM*JM-JM/2,JAM=6+2*(JM-10) 150 &, LP1=LM+1,LTOP=1,LBOT=LM) 151 C 152 P A R A M E T E R 153 & (LDA=(IDIM2-IDIM1+1)*(JDIM2-JDIM1+1)) 154 C----------------------------------------------------------------------- 155 L O G I C A L 156 & RUN,FIRST,RESTRT,SIGMA,NOZ 157 C---------------------------------------------------------------------- 158 INCLUDE "CTLBLK.comm" 159 C----------------------------------------------------------------------- 169 INCLUDE "LOOPS.comm" 170 C----------------------------------------------------------------------- 177 INCLUDE "MASKS.comm" 178 C----------------------------------------------------------------------- 189 INCLUDE "PHYS.comm" 190 C----------------------------------------------------------------------- 218 INCLUDE "VRBLS.comm" 219 C----------------------------------------------------------------------- 229 INCLUDE "CLDWTR.comm" 230 C----------------------------------------------------------------------- 238 INCLUDE "TEMPV.comm" 239 C----------------------------------------------------------------------- 246 INCLUDE "PVRBLS.comm" 247 C----------------------------------------------------------------------- 277 INCLUDE "ACMCLH.comm" 278 C----------------------------------------------------------------------- 285 D I M E N S I O N 286 & IW(LM) 287 &,PDSL(IDIM1:IDIM2,JDIM1:JDIM2) 288 &,T_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 289 &,T0_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 290 &,Q_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 291 &,Q0_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 292 &,TRAIN_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 293 &,CWM_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 294 &,HTM_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 295 C---------------------------------------------------------------------- 296 R E A L 297 & MR,KE,INIT 298 C----------------------------------------------------------------------- 299 C----------------------------------------------------------------------- 300 C--------------PREPARATORY CALCULATIONS--------------------------------- 301 DTPH =NPHS*DT 302 RDTPH=1./DTPH 303 TWODT=DTPH 304 RTWODT=1./TWODT Page 3 Source Listing GSCOND 2014-12-17 20:47 GSCOND.F 305 C0=1.5E-4 306 C1=300. 307 C2=0.5 308 MR=3.0E-4 309 KE=2.0E-5 310 US=1. 311 EPS=0.622 312 CCLIMIT=1.0E-3 313 CLIMIT =1.0E-20 314 C----------------------------------------------------------------------- 315 C------------------PADDING SPECIFIC HUMIDITY & CWM IF TOO SMALL--------- 316 C----------------------------------------------------------------------- 317 !$omp parallel do 318 DO 30 L=1,LM 319 DO J=MYJS,MYJE 320 DO I=MYIS,MYIE 321 IF(Q(I,J,L).LT.EPSQ)Q(I,J,L)=EPSQ*HTM(I,J,L) 322 IF(CWM(I,J,L).LT.CLIMIT)CWM(I,J,L)=CLIMIT*HTM(I,J,L) 323 ENDDO 324 ENDDO 325 30 CONTINUE 326 C 327 DO J=MYJS,MYJE 328 DO I=MYIS,MYIE 329 PDSL(I,J)=RES(I,J)*PD(I,J) 330 ENDDO 331 ENDDO 332 C 333 IW(1)=0 334 UTIM=1. 335 C 336 C----------------------------------------------------------------------- 337 C*************BEGINNING OF GRID-SCALE CONDENSATION/EVAP. LOOP*********** 338 C----------------------------------------------------------------------- 339 C*** 340 C*** TRANSPOSE ARRAYS 341 C*** 342 c if(mype.eq.1) then 343 c print*,'lda=',lda 344 c do l=1,lm 345 c print*,'before transpose, t=',l,t(25,33,l) 346 c enddo 347 c endif 348 !$omp parallel sections 349 !$omp section 350 CALL SGETMO(T,LDA,LDA,LM,T_T,LM) 351 CALL SGETMO(Q,LDA,LDA,LM,Q_T,LM) 352 CALL SGETMO(HTM,LDA,LDA,LM,HTM_T,LM) 353 CALL SGETMO(CWM,LDA,LDA,LM,CWM_T,LM) 354 !$omp section 355 CALL SGETMO(T0,LDA,LDA,LM,T0_T,LM) 356 CALL SGETMO(Q0,LDA,LDA,LM,Q0_T,LM) 357 CALL SGETMO(TRAIN,LDA,LDA,LM,TRAIN_T,LM) 358 !$omp end parallel sections 359 c if(mype.eq.1) then 360 c do l=1,lm 361 c print*,'after transpose, t=',l,t_t(l,25,33) Page 4 Source Listing GSCOND 2014-12-17 20:47 GSCOND.F 362 c enddo 363 c endif 364 C 365 C----------------------------------------------------------------------- 366 C------------------QW, QI AND QINT-------------------------------------- 367 C----------------------------------------------------------------------- 368 !$omp parallel do 369 !$omp& private(aa,ab,ac,ad,ae,af,ag,ai,ap,aq,at,bi,ccr,ccrkl, 370 !$omp& ccrkl1,cond,condk,cone0,cwmkl,e0,ec,elv,fi,fiw, 371 !$omp& hbm2ij,hh,iwkl,lmhij,lml,p0ij,pdslij,pp,pp0, 372 !$omp& qc,qi,qint,qkl,qtemp,qw,resij,rqkl,rqkll,rqtmp, 373 !$omp& thh,tkl,tmt0,tmt15,u00ij,u00kl,us00) 374 !$omp& firstprivate(iw) 375 C 376 if(mype.eq.1) then 377 print*,'myis,myie,myjs2,myje2=',myis,myie,myjs2,myje2 378 endif 379 DO 100 J=MYJS2,MYJE2 380 DO 100 I=MYIS,MYIE 381 C----------------------------------------------------------------------- 382 C 383 LMHIJ=LMH(I,J) 384 HBM2IJ=HBM2(I,J) 385 U00IJ=U00(I,J) 386 P0IJ=P0(I,J) 387 RESIJ=RES(I,J) 388 PDSLIJ=PDSL(I,J) 389 C 390 DO 90 L=2,LM 391 C 392 TKL=T_T(L,I,J) 393 QKL=Q_T(L,I,J) 394 CWMKL=CWM_T(L,I,J) 395 C 396 COND=0. 397 E0=0. 398 LML=LM-LMHIJ 399 HH=HTM_T(L,I,J)*HBM2IJ 400 TMT0=(TKL-273.16)*HH 401 TMT15=AMIN1(TMT0,-15.)*HH 402 AI=0.008855 403 BI=1. 404 C 405 IF(TMT0.LT.-20.)THEN 406 AI=0.007225 407 BI=0.9674 408 ENDIF 409 C 410 QW=HH*PQ0/(PDSLIJ*AETA(L)+PT) 411 1 *EXP(HH*A2*(T(I,J,L)-A3)/(T(I,J,L)-A4)) 412 QI=QW*(BI+AI*AMIN1(TMT0,0.)) 413 QINT=QW*(1.-0.00032*TMT15*(TMT15+15.)) 414 IF(TMT0.LE.-40.)QINT=QI 415 C----------------------------------------------------------------------- 416 C-------------------ICE-WATER ID NUMBER IW------------------------------ 417 C----------------------------------------------------------------------- 418 IF(TMT0.LT.-15.)THEN Page 5 Source Listing GSCOND 2014-12-17 20:47 GSCOND.F 419 U00KL=U00IJ+UL(L+LML)*(0.95-U00IJ)*UTIM 420 FI=Q(I,J,L)-U00KL*QI 421 IF(FI.GT.0..OR.CWMKL.GT.CLIMIT)THEN 422 IW(L)=1 423 ELSE 424 IW(L)=0 425 ENDIF 426 ENDIF 427 C 428 IF(TMT0.GE.0.)THEN 429 IW(L)=0 430 ENDIF 431 C 432 IF(TMT0.LT.0.0.AND.TMT0.GE.-15.)THEN 433 IW(L)=0 434 IF(IW(L-1).EQ.1.AND.CWMKL.GT.CLIMIT)IW(L)=1 435 ENDIF 436 C----------------------------------------------------------------------- 437 C--------------CONDENSATION AND EVAPORATION OF CLOUD-------------------- 438 C------------------------AT, AQ AND DP/DT------------------------------- 439 C----------------------------------------------------------------------- 440 THH=TWODT*HH 441 PP=PDSLIJ*AETA(L)+PT 442 PP0=P0IJ*RESIJ*AETA(L)+PT 443 AT=(TKL-T0_T(L,I,J))*RTWODT 444 AQ=(QKL-Q0_T(L,I,J))*RTWODT 445 AP=(PP-PP0)*RTWODT 446 IWKL=IW(L) 447 U00KL=U00IJ+UL(L+LML)*(0.95-U00IJ)*UTIM 448 C----------------------------------------------------------------------- 449 C----------------THE SATUATION SPECIFIC HUMIDITY------------------------ 450 C----------------------------------------------------------------------- 451 FIW=FLOAT(IWKL) 452 ELV=(1.-FIW)*ELWV+FIW*ELIV 453 QC =(1.-FIW)*QINT+FIW*QI 454 C----------------------------------------------------------------------- 455 C----------------THE RELATIVE HUMIDITY---------------------------------- 456 C----------------------------------------------------------------------- 457 IF(QC.LE.0.)THEN 458 RQKL=0. 459 ELSE 460 RQKL=QKL/QC 461 ENDIF 462 C----------------------------------------------------------------------- 463 C----------------CLOUD COVER RATIO CCR---------------------------------- 464 C----------------------------------------------------------------------- 465 IF(RQKL.LE.U00KL)THEN 466 CCR=0. 467 ELSE 468 RQKLL=AMIN1(US,RQKL) 469 CCR=1.-SQRT((US-RQKLL)/(US-U00KL)) 470 ENDIF 471 C----------------------------------------------------------------------- 472 C-----------CORRECT CCR IF IT IS TOO SMALL IN LARGE CWM REGIONS-------- 473 C----------------------------------------------------------------------- 474 IF(CCR.GE.0.01.AND.CCR.LE.0.2.AND.CWMKL.GE.0.2E-3)THEN 475 CCR=AMIN1(1.,CWMKL*1.E3) Page 6 Source Listing GSCOND 2014-12-17 20:47 GSCOND.F 476 ENDIF 477 C 478 CCRKL=CCR 479 C----------------------------------------------------------------------- 480 C-------GIVE UP THIS POINT IF NO CLOUD NOR CONDENSATION EXIST--------- 481 C----------------------------------------------------------------------- 482 IF(CCRKL.LE.CCLIMIT.AND.CWMKL.LE.CLIMIT)GO TO 90 483 C----------------------------------------------------------------------- 484 C----------------EVAPORATION OF CLOUD WATER----------------------------- 485 C----------------------------------------------------------------------- 486 EC=0. 487 IF(CCRKL.LE.CCLIMIT.AND.CWMKL.GT.CLIMIT)THEN 488 EC=QC*(U00KL-RQKL)*RTWODT 489 E0=AMAX1(EC,0.0) 490 E0=AMIN1(CWMKL*RTWODT,E0)*HH 491 E0=AMAX1(0.,E0) 492 ENDIF 493 C----------------------------------------------------------------------- 494 C----------------CONDENSATION OF CLOUD---------------------------------- 495 C----------------------------------------------------------------------- 496 IF(CCRKL.LE.0.20.OR.QC.LE.EPSQ)THEN 497 C IF(CCRKL.LE.CCLIMIT.OR.QC.LE.EPSQ)THEN 498 COND=0. 499 GO TO 80 500 ENDIF 501 C----------------------------------------------------------------------- 502 C-----------THE EQS. FOR COND. HAS BEEN REORGANIZED TO REDUCE CPU------ 503 C----------------------------------------------------------------------- 504 US00=US-U00KL 505 CCRKL1=1.-CCRKL 506 AA=EPS*ELV*PP*QKL 507 AB=CCRKL*CCRKL1*QC*US00 508 AC=AB+0.5*CWMKL 509 AD=AB*CCRKL1 510 AE=CPR*TKL*TKL 511 AF=AE*PP 512 AG=AA*ELV 513 AI=CP*AA 514 COND=(AC-AD)*(AF*AQ-AI*AT+AE*QKL*AP)/(AC*(AF+AG)) 515 C----------------------------------------------------------------------- 516 C-----------CHECK & CORRECT IF OVER CONDENSATION OCCURS----------------- 517 C----------------------------------------------------------------------- 518 CONDK=(QKL-U00KL*QC*0.1)*RTWODT 519 C CONDK=(QKL-U00KL*QC*0.6)*RTWODT 520 IF(COND.GT.CONDK)THEN 521 COND=CONDK 522 ENDIF 523 C----------------------------------------------------------------------- 524 C----------CHECK & CORRECT IF SUPERSATUATION IS TOO HIGH---------------- 525 C----------------------------------------------------------------------- 526 QTEMP=QKL-AMAX1(0.,(COND-E0))*THH 527 RQTMP=QTEMP/QC 528 IF(RQTMP.GE.1.10)THEN 529 COND=(QKL-1.10*QC)*RTWODT 530 ENDIF 531 C----------------------------------------------------------------------- 532 IF(COND.LT.0.)THEN Page 7 Source Listing GSCOND 2014-12-17 20:47 GSCOND.F 533 COND=0. 534 ENDIF 535 C----------------------------------------------------------------------- 536 C-------------------UPDATE OF T, Q AND CWM------------------------------ 537 C----------------------------------------------------------------------- 538 80 CONTINUE 539 if(mype.eq.1.and.i.eq.25.and.j.eq.31.and.l.eq.31) then 540 print*,'cond,e0=',cond,e0 541 endif 542 CONE0=COND-E0 543 CWM_T(L,I,J)=CONE0*THH+CWMKL 544 C 545 C----------------------------------------------------------------------- 546 C ACCUMULATE LATENT HEATING DUE TO GRID-SCALE PRECIP/EVAP. 547 C SCALE BY THE RECIPROCAL OF THE PERIOD AT WHICH THIS ROUTINE 548 C IS CALLED. THIS PERIOD IS THE PHYSICS TIMESTEP. 549 C----------------------------------------------------------------------- 550 C 551 c if(mype.eq.1.and.i.eq.25.and.j.eq.31) then 552 c print*,'elv,rcp,cone0,thh,tkl=',l,i,j,elv,rcp,cone0,thh,tkl 553 c print*,'t_t(ELV*RCP*CONE0*THH+TKL)=',ELV*RCP*CONE0*THH+TKL 554 c print*,'q_t(-CONE0*THH+QKL)=',-CONE0*THH+QKL 555 c endif 556 T_T(L,I,J)=ELV*RCP*CONE0*THH+TKL 557 TRAIN_T(L,I,J)=ELV*RCP*CONE0*THH*RDTPH+TRAIN_T(L,I,J) 558 Q_T(L,I,J)=-CONE0*THH+QKL 559 IF(CWM_T(L,I,J).LE.0.)CWM_T(L,I,J)=0. 560 C 561 90 CONTINUE 562 C 563 100 CONTINUE 564 c if(mype.eq.1) then 565 c print*,'lda=',lda 566 c do l=1,lm 567 c print*,'before transpose, t=',l,t_t(l,25,33) 568 c enddo 569 c endif 570 C----------------------------------------------------------------------- 571 C-------------------SAVE T, Q AND P FOR THIS STEP----------------------- 572 C----------------------------------------------------------------------- 573 C*** 574 C*** TRANSPOSE BACK THE NEEDED ARRAYS 575 C*** 576 !$omp parallel sections 577 !$omp section 578 CALL SGETMO(T_T,LM,LM,LDA,T,LDA) 579 CALL SGETMO(Q_T,LM,LM,LDA,Q,LDA) 580 !$omp section 581 CALL SGETMO(TRAIN_T,LM,LM,LDA,TRAIN,LDA) 582 CALL SGETMO(CWM_T,LM,LM,LDA,CWM,LDA) 583 !$omp end parallel sections 584 C 585 !$omp parallel do 586 DO 125 L=1,LM 587 DO J=MYJS,MYJE 588 DO I=MYIS,MYIE 589 c if(mype.eq.1.and.i.eq.25.and.j.eq.33) then Page 8 Source Listing GSCOND 2014-12-17 20:47 GSCOND.F 590 c print*,'i,j,l,t(i,j,l)=',i,j,l,t(i,j,l) 591 c endif 592 Q0(I,J,L)=Q(I,J,L) 593 T0(I,J,L)=T(I,J,L) 594 ENDDO 595 ENDDO 596 125 CONTINUE 597 C 598 DO J=MYJS,MYJE 599 DO I=MYIS,MYIE 600 P0(I,J)=PD(I,J) 601 ENDDO 602 ENDDO 603 C----------------------------------------------------------------------- 604 RETURN 605 END ENTRY POINTS Name gscond_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 100 Label 369 185,186 125 Label 402 392 30 Label 131 124 80 Label 344 305 90 Label 367 196,288 A1 Param 50 R(4) 4 scalar A2 Param 50 R(4) 4 scalar 56,217 A3 Param 50 R(4) 4 scalar 56,217 A4 Param 50 R(4) 4 scalar 56,217 AA Local 312 R(4) 4 scalar 312,318,319 AB Local 313 R(4) 4 scalar 313,314,315 AC Local 314 R(4) 4 scalar 314,320 ACCLIQ Scalar 13 R(4) 4 2 17955 COM ACMCLH Common 2 6463824 ACPREC Scalar 12 R(4) 4 2 17955 COM ACUTIM Scalar 3 R(4) 4 scalar COM AD Local 315 R(4) 4 scalar 315,320 AE Local 316 R(4) 4 scalar 316,317,320 AETA Scalar 9 R(4) 4 1 45 COM 216,247,248 AF Local 317 R(4) 4 scalar 317,320 AFSI Scalar 26 R(4) 4 2 17955 COM AG Local 318 R(4) 4 scalar 318,320 AI Local 208 R(4) 4 scalar 208,212,218,319,320 AKHS Scalar 7 R(4) 4 2 17955 COM AKMS Scalar 7 R(4) 4 2 17955 COM ALBASE Scalar 20 R(4) 4 2 17955 COM ALBEDO Scalar 21 R(4) 4 2 17955 COM AMAX1 Func 295 scalar 295,297,332 Page 9 Source Listing GSCOND 2014-12-17 20:47 Symbol Table GSCOND.F Name Object Declared Type Bytes Dimen Elements Attributes References AMIN1 Func 207 scalar 207,218,274,281,296 AP Local 251 R(4) 4 scalar 251,320 AQ Local 250 R(4) 4 scalar 250,320 ARATIM Scalar 3 R(4) 4 scalar COM ARCP Param 56 R(4) 4 scalar AT Local 249 R(4) 4 scalar 249,320 AVCNVC Scalar 3 R(4) 4 scalar COM AVRAIN Scalar 3 R(4) 4 scalar COM BI Local 209 R(4) 4 scalar 209,213,218 C0 Local 111 R(4) 4 scalar 111 C1 Local 112 R(4) 4 scalar 112 C2 Local 113 R(4) 4 scalar 113 CCLIMIT Local 118 R(4) 4 scalar 118,288,293 CCR Local 272 R(4) 4 scalar 272,275,280,281,284 CCRKL Local 284 R(4) 4 scalar 284,288,293,302,311,313 CCRKL1 Local 311 R(4) 4 scalar 311,313,315 CI Scalar 6 R(4) 4 scalar COM CLDEFI Scalar 11 R(4) 4 2 17955 COM CLDWTR Common 2 3447720 CLIMIT Local 119 R(4) 4 scalar 119,128,227,240,288,293 CNVBOT Scalar 18 R(4) 4 2 17955 COM CNVTOP Scalar 18 R(4) 4 2 17955 COM COND Local 202 R(4) 4 scalar 202,304,320,326,327,332,335,338,33 9,346,348 CONDK Local 324 R(4) 4 scalar 324,326,327 CONE0 Local 348 R(4) 4 scalar 348,349,362,363,364 CP Param 52 R(4) 4 scalar 54,56,319 CPR Param 54 R(4) 4 scalar 54,316 CS Scalar 6 R(4) 4 scalar COM CTLBLK Common 4 112 CUPREC Scalar 13 R(4) 4 2 17955 COM CWM Scalar 3 R(4) 4 3 807975 COM 128,159,388 CWMKL Local 200 R(4) 4 scalar 200,227,240,280,281,288,293,296,31 4,349 CWM_T Local 99 R(4) 4 3 807975 159,200,349,365,388 CZEN Scalar 16 R(4) 4 2 17955 COM CZMEAN Scalar 23 R(4) 4 2 17955 COM DETA Scalar 9 R(4) 4 1 45 COM DFRLG Scalar 9 R(4) 4 1 46 COM DI Scalar 6 R(4) 4 scalar COM DLDT Param 53 R(4) 4 scalar DS Scalar 6 R(4) 4 scalar COM DT Scalar 6 R(4) 4 scalar COM 107 DTD Scalar 5 R(4) 4 scalar COM DTPH Local 107 R(4) 4 scalar 107,108,109 DTQ2 Scalar 5 R(4) 4 scalar COM E0 Local 203 R(4) 4 scalar 203,295,296,297,332,346,348 EC Local 292 R(4) 4 scalar 292,294,295 ELIV Param 52 R(4) 4 scalar 258 ELV Local 258 R(4) 4 scalar 258,312,318,362,363 ELWV Param 52 R(4) 4 scalar 258 EPS Local 117 R(4) 4 scalar 117,312 EPSQ Param 53 R(4) 4 scalar 127,302 EPSR Scalar 13 R(4) 4 2 17955 COM EXP Func 217 scalar 217 Page 10 Source Listing GSCOND 2014-12-17 20:47 Symbol Table GSCOND.F Name Object Declared Type Bytes Dimen Elements Attributes References FI Local 226 R(4) 4 scalar 226,227 FIRST Scalar 71 L(4) 4 scalar COM FIS Scalar 7 R(4) 4 2 17955 COM FIW Local 257 R(4) 4 scalar 257,258,259 FLOAT Func 257 scalar 257 G Param 52 R(4) 4 scalar 56 G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GFFC Scalar 19 R(4) 4 2 17955 COM GLAT Scalar 15 R(4) 4 2 17955 COM GLB_TABLE Common 37 128 GLON Scalar 15 R(4) 4 2 17955 COM GSCOND Subr 1 HBM2 Scalar 8 R(4) 4 2 17955 COM 190 HBM2IJ Local 190 R(4) 4 scalar 190,205 HBM3 Scalar 8 R(4) 4 2 17955 COM HBOT Scalar 17 R(4) 4 2 17955 COM HDAC Scalar 22 R(4) 4 2 17955 COM HDACV Scalar 22 R(4) 4 2 17955 COM HH Local 205 R(4) 4 scalar 205,206,207,216,217,246,296 HTM Scalar 6 R(4) 4 3 807975 COM 127,128,158 HTMG Scalar 52 R(4) 4 3 4183695 COM HTM_T Local 100 R(4) 4 3 807975 158,205 HTOP Scalar 17 R(4) 4 2 17955 COM I Local 126 I(4) 4 scalar 126,127,128,134,135,186,189,190,19 1,192,193,194,198,199,200,205,217, 226,249,250,345,349,362,363,364,36 5,394,398,399,405,406 IBROW Scalar 22 I(4) 4 scalar COM ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDAT Scalar 5 I(4) 4 1 3 COM IDIM1 Param 19 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,20,21,22,23,26,68,93,94, 95,96,97,98,99,100 IDIM2 Param 19 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,20,21,22,23,26,68,93,94, 95,96,97,98,99,100 IDTAD Scalar 6 I(4) 4 scalar COM IE_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM IGSTL Param 14 I(4) 4 scalar 19 IGSTR Param 14 I(4) 4 scalar 19 IHHA Scalar 3 I(4) 4 1 760 COM IHLA Scalar 3 I(4) 4 1 760 COM IHRST Scalar 5 I(4) 4 scalar COM ILCOL Scalar 22 I(4) 4 scalar COM ILPAD1 Scalar 23 I(4) 4 scalar COM ILPAD2 Scalar 23 I(4) 4 scalar COM ILPAD3 Scalar 23 I(4) 4 scalar COM ILPAD4 Scalar 23 I(4) 4 scalar COM ILPAD5 Scalar 23 I(4) 4 scalar COM IM Param 3 I(4) 4 scalar 16,19,43,44,45,46,47,51,52,57,64 IMJM Param 64 I(4) 4 scalar INIT Local 103 R(4) 4 scalar INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 Page 11 Source Listing GSCOND 2014-12-17 20:47 Symbol Table GSCOND.F Name Object Declared Type Bytes Dimen Elements Attributes References INUMQ Scalar 34 I(4) 4 1 100 COM IOUT Scalar 5 I(4) 4 scalar COM IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IRCOL Scalar 22 I(4) 4 scalar COM IRPAD1 Scalar 24 I(4) 4 scalar COM IRPAD2 Scalar 24 I(4) 4 scalar COM IRPAD3 Scalar 24 I(4) 4 scalar COM IRPAD4 Scalar 24 I(4) 4 scalar COM IRPAD5 Scalar 24 I(4) 4 scalar COM IS_GLB_TABLE Scalar 38 I(4) 4 1 8 COM IS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM ITAIL Param 16 I(4) 4 scalar ITB Param 1 I(4) 4 scalar 10,25 ITBQ Param 1 I(4) 4 scalar 11,25 ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITROW Scalar 22 I(4) 4 scalar COM IVHA Scalar 3 I(4) 4 1 760 COM IVLA Scalar 3 I(4) 4 1 760 COM IW Local 92 I(4) 4 1 45 139,228,230,235,239,240,252 IWKL Local 252 I(4) 4 scalar 252,257 J Local 125 I(4) 4 scalar 125,127,128,133,135,185,189,190,19 1,192,193,194,198,199,200,205,217, 226,249,250,345,349,362,363,364,36 5,393,398,399,404,406 JAM Param 64 I(4) 4 scalar 3 JBPAD1 Scalar 25 I(4) 4 scalar COM JBPAD2 Scalar 25 I(4) 4 scalar COM JBPAD3 Scalar 25 I(4) 4 scalar COM JBPAD4 Scalar 25 I(4) 4 scalar COM JBPAD5 Scalar 25 I(4) 4 scalar COM JDIM1 Param 20 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,20,21,22,23,26,68,93,94, 95,96,97,98,99,100 JDIM2 Param 20 I(4) 4 scalar 3,4,5,6,7,8,9,10,11,12,13,14,15,16 ,17,18,19,20,21,22,23,26,68,93,94, 95,96,97,98,99,100 JE_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JE_LOC_TABLE Scalar 28 I(4) 4 1 8 COM JGSTL Param 15 I(4) 4 scalar 20 JGSTR Param 15 I(4) 4 scalar 20 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,57,64 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 JRA Scalar 3 I(4) 4 1 760 COM JS_GLB_TABLE Scalar 39 I(4) 4 1 8 COM JS_LOC_TABLE Scalar 27 I(4) 4 1 8 COM JTAIL Param 17 I(4) 4 scalar JTB Param 1 I(4) 4 scalar 10,25 JTBQ Param 1 I(4) 4 scalar 25 JTPAD1 Scalar 26 I(4) 4 scalar COM JTPAD2 Scalar 26 I(4) 4 scalar COM JTPAD3 Scalar 26 I(4) 4 scalar COM JTPAD4 Scalar 26 I(4) 4 scalar COM JTPAD5 Scalar 26 I(4) 4 scalar COM KE Local 103 R(4) 4 scalar 115 Page 12 Source Listing GSCOND 2014-12-17 20:47 Symbol Table GSCOND.F Name Object Declared Type Bytes Dimen Elements Attributes References KTM Scalar 5 I(4) 4 scalar COM L Local 124 I(4) 4 scalar 124,127,128,196,198,199,200,205,21 6,217,225,226,228,230,235,239,240, 247,248,249,250,252,253,345,349,36 2,363,364,365,392,398,399 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LBOT Param 65 I(4) 4 scalar LC Scalar 5 I(4) 4 2 17955 COM LDA Param 68 I(4) 4 scalar 156,157,158,159,161,162,163,384,38 5,387,388 LIST Scalar 5 I(4) 4 scalar COM LM Param 3 I(4) 4 scalar 3,4,5,6,7,9,21,52,65,92,94,95,96,9 7,98,99,100,124,156,157,158,159,16 1,162,163,196,204,384,385,387,388, 392 LMH Scalar 4 I(4) 4 2 17955 COM 189 LMHIJ Local 189 I(4) 4 scalar 189,204 LML Local 204 I(4) 4 scalar 204,225,253 LMV Scalar 4 I(4) 4 2 17955 COM LOOPS Common 2 158840 LP1 Param 65 I(4) 4 scalar 9 LSM Param 3 I(4) 4 scalar LTOP Param 65 I(4) 4 scalar MAPPINGS Common 56 5024 MASKS Common 2 6894720 MPI_COMM_COMP Scalar 30 I(4) 4 scalar COM MPI_COMM_INTER Scalar 31 I(4) 4 scalar COM MPI_COMM_INTER_ARRAY Scalar 32 I(4) 4 1 100 COM MPPCOM Common 1 1464 MR Local 103 R(4) 4 scalar 114 MXSNAL Scalar 2 R(4) 4 2 17955 COM MYIE Scalar 4 I(4) 4 scalar COM 126,134,183,186,394,405 MYIE1 Scalar 4 I(4) 4 scalar COM MYIE1_P1 Scalar 8 I(4) 4 scalar COM MYIE1_P2 Scalar 8 I(4) 4 scalar COM MYIE1_P3 Scalar 8 I(4) 4 scalar COM MYIE1_P4 Scalar 8 I(4) 4 scalar COM MYIE2 Scalar 4 I(4) 4 scalar COM MYIE2_P1 Scalar 9 I(4) 4 scalar COM MYIE_P1 Scalar 7 I(4) 4 scalar COM MYIE_P2 Scalar 7 I(4) 4 scalar COM MYIE_P3 Scalar 7 I(4) 4 scalar COM MYIE_P4 Scalar 7 I(4) 4 scalar COM MYIE_P5 Scalar 7 I(4) 4 scalar COM MYIS Scalar 4 I(4) 4 scalar COM 126,134,183,186,394,405 MYIS1 Scalar 4 I(4) 4 scalar COM MYIS1_P1 Scalar 6 I(4) 4 scalar COM MYIS1_P2 Scalar 6 I(4) 4 scalar COM MYIS1_P3 Scalar 6 I(4) 4 scalar COM MYIS1_P4 Scalar 6 I(4) 4 scalar COM MYIS2 Scalar 4 I(4) 4 scalar COM MYIS_P1 Scalar 5 I(4) 4 scalar COM MYIS_P2 Scalar 5 I(4) 4 scalar COM MYIS_P3 Scalar 5 I(4) 4 scalar COM Page 13 Source Listing GSCOND 2014-12-17 20:47 Symbol Table GSCOND.F Name Object Declared Type Bytes Dimen Elements Attributes References MYIS_P4 Scalar 5 I(4) 4 scalar COM MYIS_P5 Scalar 5 I(4) 4 scalar COM MYJE Scalar 15 I(4) 4 scalar COM 125,133,393,404 MYJE1 Scalar 15 I(4) 4 scalar COM MYJE1_P1 Scalar 17 I(4) 4 scalar COM MYJE1_P2 Scalar 17 I(4) 4 scalar COM MYJE1_P3 Scalar 17 I(4) 4 scalar COM MYJE1_P4 Scalar 17 I(4) 4 scalar COM MYJE2 Scalar 15 I(4) 4 scalar COM 183,185 MYJE2_P1 Scalar 18 I(4) 4 scalar COM MYJE2_P2 Scalar 18 I(4) 4 scalar COM MYJE2_P3 Scalar 18 I(4) 4 scalar COM MYJE2_P4 Scalar 18 I(4) 4 scalar COM MYJE3 Scalar 15 I(4) 4 scalar COM MYJE3_P4 Scalar 18 I(4) 4 scalar COM MYJE4 Scalar 15 I(4) 4 scalar COM MYJE4_P1 Scalar 19 I(4) 4 scalar COM MYJE4_P4 Scalar 19 I(4) 4 scalar COM MYJE5 Scalar 15 I(4) 4 scalar COM MYJE5_P1 Scalar 19 I(4) 4 scalar COM MYJE5_P2 Scalar 19 I(4) 4 scalar COM MYJE_P1 Scalar 16 I(4) 4 scalar COM MYJE_P2 Scalar 16 I(4) 4 scalar COM MYJE_P3 Scalar 16 I(4) 4 scalar COM MYJE_P4 Scalar 16 I(4) 4 scalar COM MYJE_P5 Scalar 16 I(4) 4 scalar COM MYJS Scalar 10 I(4) 4 scalar COM 125,133,393,404 MYJS1 Scalar 10 I(4) 4 scalar COM MYJS1_P1 Scalar 12 I(4) 4 scalar COM MYJS1_P2 Scalar 12 I(4) 4 scalar COM MYJS1_P3 Scalar 12 I(4) 4 scalar COM MYJS1_P4 Scalar 12 I(4) 4 scalar COM MYJS2 Scalar 10 I(4) 4 scalar COM 183,185 MYJS2_P1 Scalar 13 I(4) 4 scalar COM MYJS2_P2 Scalar 13 I(4) 4 scalar COM MYJS2_P3 Scalar 13 I(4) 4 scalar COM MYJS2_P4 Scalar 13 I(4) 4 scalar COM MYJS3 Scalar 10 I(4) 4 scalar COM MYJS3_P4 Scalar 13 I(4) 4 scalar COM MYJS4 Scalar 10 I(4) 4 scalar COM MYJS4_P1 Scalar 14 I(4) 4 scalar COM MYJS4_P4 Scalar 14 I(4) 4 scalar COM MYJS5 Scalar 10 I(4) 4 scalar COM MYJS5_P1 Scalar 14 I(4) 4 scalar COM MYJS5_P2 Scalar 14 I(4) 4 scalar COM MYJS_P1 Scalar 11 I(4) 4 scalar COM MYJS_P2 Scalar 11 I(4) 4 scalar COM MYJS_P3 Scalar 11 I(4) 4 scalar COM MYJS_P4 Scalar 11 I(4) 4 scalar COM MYJS_P5 Scalar 11 I(4) 4 scalar COM MYPE Scalar 2 I(4) 4 scalar COM 182,345 MY_E Scalar 20 I(4) 4 scalar COM MY_IE_GLB Scalar 2 I(4) 4 scalar COM MY_IE_LOC Scalar 3 I(4) 4 scalar COM MY_IS_GLB Scalar 2 I(4) 4 scalar COM Page 14 Source Listing GSCOND 2014-12-17 20:47 Symbol Table GSCOND.F Name Object Declared Type Bytes Dimen Elements Attributes References MY_IS_LOC Scalar 3 I(4) 4 scalar COM MY_JE_GLB Scalar 2 I(4) 4 scalar COM MY_JE_LOC Scalar 3 I(4) 4 scalar COM MY_JS_GLB Scalar 2 I(4) 4 scalar COM MY_JS_LOC Scalar 3 I(4) 4 scalar COM MY_N Scalar 20 I(4) 4 scalar COM MY_NE Scalar 21 I(4) 4 scalar COM MY_NEB Scalar 21 I(4) 4 1 8 COM MY_NW Scalar 21 I(4) 4 scalar COM MY_S Scalar 20 I(4) 4 scalar COM MY_SE Scalar 21 I(4) 4 scalar COM MY_SW Scalar 21 I(4) 4 scalar COM MY_W Scalar 20 I(4) 4 scalar COM NBC Scalar 5 I(4) 4 scalar COM NBOCO Scalar 6 I(4) 4 scalar COM NCNVC Scalar 7 I(4) 4 scalar COM NCP Scalar 6 I(4) 4 scalar COM NEST Scalar 7 I(4) 4 scalar COM NFCST Scalar 5 I(4) 4 scalar COM NHEAT Scalar 3 I(4) 4 scalar COM NOZ Local 71 L(4) 4 scalar NPES Scalar 2 I(4) 4 scalar COM NPHS Scalar 7 I(4) 4 scalar COM 107 NPREC Scalar 6 I(4) 4 scalar COM NRADL Scalar 7 I(4) 4 scalar COM NRADS Scalar 7 I(4) 4 scalar COM NSHDE Scalar 6 I(4) 4 scalar COM NSTART Scalar 6 I(4) 4 scalar COM NTDDMP Scalar 6 I(4) 4 scalar COM NTSD Scalar 6 I(4) 4 scalar COM NTSTM Scalar 6 I(4) 4 scalar COM P0 Scalar 4 R(4) 4 2 17955 COM 192,406 P0IJ Local 192 R(4) 4 scalar 192,248 PD Scalar 3 R(4) 4 2 17955 COM 135,406 PDSL Local 93 R(4) 4 2 17955 135,194 PDSLIJ Local 194 R(4) 4 scalar 194,216,247 PHYS Common 4 1788916 PL Scalar 7 R(4) 4 scalar COM PLQ Scalar 8 R(4) 4 scalar COM PP Local 247 R(4) 4 scalar 247,251,312,317 PP0 Local 248 R(4) 4 scalar 248,251 PQ0 Param 51 R(4) 4 scalar 56,216 PQ0C Param 56 R(4) 4 scalar PREC Scalar 12 R(4) 4 2 17955 COM PSHLTR Scalar 19 R(4) 4 2 17955 COM PT Scalar 5 R(4) 4 scalar COM 216,247,248 PTBL Scalar 25 R(4) 4 2 10184 COM PVRBLS Common 2 5530140 Q Scalar 6 R(4) 4 3 807975 COM 127,157,226,385,398 Q0 Scalar 3 R(4) 4 3 807975 COM 162,398 Q0_T Local 97 R(4) 4 3 807975 162,250 Q10 Scalar 16 R(4) 4 2 17955 COM Q2 Scalar 21 R(4) 4 3 807975 COM Q30 Scalar 14 R(4) 4 2 17955 COM QC Local 259 R(4) 4 scalar 259,263,266,294,302,313,324,333,33 Page 15 Source Listing GSCOND 2014-12-17 20:47 Symbol Table GSCOND.F Name Object Declared Type Bytes Dimen Elements Attributes References 5 QI Local 218 R(4) 4 scalar 218,220,226,259 QINT Local 219 R(4) 4 scalar 219,220,259 QKL Local 199 R(4) 4 scalar 199,250,266,312,320,324,332,335,36 4 QS Scalar 6 R(4) 4 2 17955 COM QS0 Scalar 10 R(4) 4 1 134 COM QSHLTR Scalar 18 R(4) 4 2 17955 COM QTEMP Local 332 R(4) 4 scalar 332,333 QW Local 216 R(4) 4 scalar 216,218,219 QWBS Scalar 9 R(4) 4 2 17955 COM QZ0 Scalar 5 R(4) 4 2 17955 COM Q_T Local 96 R(4) 4 3 807975 157,199,364,385 R Param 53 R(4) 4 scalar 54 RADIN Scalar 14 R(4) 4 2 17955 COM RADOT Scalar 14 R(4) 4 2 17955 COM RCP Param 56 R(4) 4 scalar 362,363 RCPR Param 54 R(4) 4 scalar RDP Scalar 7 R(4) 4 scalar COM RDPQ Scalar 8 R(4) 4 scalar COM RDQ Scalar 7 R(4) 4 scalar COM RDTH Scalar 7 R(4) 4 scalar COM RDTHE Scalar 7 R(4) 4 scalar COM RDTHEQ Scalar 8 R(4) 4 scalar COM RDTPH Local 108 R(4) 4 scalar 108,363 RES Scalar 7 R(4) 4 2 17955 COM 135,193 RESIJ Local 193 R(4) 4 scalar 193,248 RESTRT Scalar 71 L(4) 4 scalar COM RF Scalar 8 R(4) 4 2 17955 COM ROI Scalar 6 R(4) 4 scalar COM ROS Scalar 6 R(4) 4 scalar COM ROW Param 52 R(4) 4 scalar 56 RQKL Local 264 R(4) 4 scalar 264,266,271,274,294 RQKLL Local 274 R(4) 4 scalar 274,275 RQTMP Local 333 R(4) 4 scalar 333,334 RROG Param 56 R(4) 4 scalar RTWODT Local 110 R(4) 4 scalar 110,249,250,251,294,296,324,335 RUN Scalar 71 L(4) 4 scalar COM SGETMO Subr 156 156,157,158,159,161,162,163,384,38 5,387,388 SI Scalar 10 R(4) 4 2 17955 COM SICE Scalar 4 R(4) 4 2 17955 COM SIGMA Scalar 71 L(4) 4 scalar COM SIGT4 Scalar 23 R(4) 4 2 17955 COM SINGLRST Local 2 L(4) 4 scalar SM Scalar 4 R(4) 4 2 17955 COM SNO Scalar 10 R(4) 4 2 17955 COM SQRT Func 275 scalar 275 SQS Scalar 10 R(4) 4 1 134 COM SR Scalar 5 R(4) 4 2 17955 COM SST Scalar 20 R(4) 4 2 17955 COM STHE Scalar 10 R(4) 4 1 76 COM STHEQ Scalar 11 R(4) 4 1 152 COM SUBPOST Scalar 2 L(4) 4 scalar COM T Scalar 5 R(4) 4 3 807975 COM 156,217,384,399 Page 16 Source Listing GSCOND 2014-12-17 20:47 Symbol Table GSCOND.F Name Object Declared Type Bytes Dimen Elements Attributes References T0 Scalar 3 R(4) 4 3 807975 COM 161,399 T0_T Local 95 R(4) 4 3 807975 161,249 TCUCN Scalar 5 R(4) 4 3 807975 COM TDTD Scalar 5 R(4) 4 scalar COM TDTQ2 Scalar 5 R(4) 4 scalar COM TEMP1 Scalar 43 R(4) 4 2 91719 COM TEMP10 Scalar 45 R(4) 4 2 91719 COM TEMP11 Scalar 45 R(4) 4 2 91719 COM TEMP12 Scalar 45 R(4) 4 2 91719 COM TEMP13 Scalar 46 R(4) 4 2 91719 COM TEMP14 Scalar 46 R(4) 4 2 91719 COM TEMP15 Scalar 46 R(4) 4 2 91719 COM TEMP16 Scalar 46 R(4) 4 2 91719 COM TEMP2 Scalar 43 R(4) 4 2 91719 COM TEMP2X Scalar 51 R(4) 4 2 92971 COM TEMP3 Scalar 43 R(4) 4 2 91719 COM TEMP4 Scalar 43 R(4) 4 2 91719 COM TEMP5 Scalar 44 R(4) 4 2 91719 COM TEMP6 Scalar 44 R(4) 4 2 91719 COM TEMP7 Scalar 44 R(4) 4 2 91719 COM TEMP8 Scalar 44 R(4) 4 2 91719 COM TEMP9 Scalar 45 R(4) 4 2 91719 COM TEMPCOM Common 42 6603768 TEMPV Common 2 6535620 TG Scalar 19 R(4) 4 2 17955 COM TH10 Scalar 16 R(4) 4 2 17955 COM TH30 Scalar 14 R(4) 4 2 17955 COM THE0 Scalar 10 R(4) 4 1 76 COM THE0Q Scalar 11 R(4) 4 1 152 COM THEAT Scalar 3 R(4) 4 scalar COM THH Local 246 R(4) 4 scalar 246,332,349,362,363,364 THL Scalar 7 R(4) 4 scalar COM THS Scalar 6 R(4) 4 2 17955 COM THZ0 Scalar 5 R(4) 4 2 17955 COM TKL Local 198 R(4) 4 scalar 198,206,249,316,362 TM10 Param 53 R(4) 4 scalar TMT0 Local 206 R(4) 4 scalar 206,207,211,218,220,224,234,238 TMT15 Local 207 R(4) 4 scalar 207,219 TOPO Common 50 17478548 TRAIN Scalar 4 R(4) 4 3 807975 COM 163,387 TRAIN_T Local 98 R(4) 4 3 807975 163,363,387 TRESH Param 51 R(4) 4 scalar 56 TSHLTR Scalar 18 R(4) 4 2 17955 COM TTBL Scalar 25 R(4) 4 2 10184 COM TTBLQ Scalar 25 R(4) 4 2 66880 COM TTVG Scalar 51 R(4) 4 2 92971 COM TWBS Scalar 9 R(4) 4 2 17955 COM TWODT Local 109 R(4) 4 scalar 109,110,246 T_T Local 94 R(4) 4 3 807975 156,198,362,384 U Scalar 5 R(4) 4 3 807975 COM U00 Scalar 3 R(4) 4 2 17955 COM 191 U00IJ Local 191 R(4) 4 scalar 191,225,253 U00KL Local 225 R(4) 4 scalar 225,226,253,271,275,294,310,324 U10 Scalar 17 R(4) 4 2 17955 COM U30 Scalar 15 R(4) 4 2 17955 COM Page 17 Source Listing GSCOND 2014-12-17 20:47 Symbol Table GSCOND.F Name Object Declared Type Bytes Dimen Elements Attributes References UL Scalar 4 R(4) 4 1 90 COM 225,253 US Local 116 R(4) 4 scalar 116,274,275,310 US00 Local 310 R(4) 4 scalar 310,313 USTAR Scalar 3 R(4) 4 2 17955 COM UTIM Local 140 R(4) 4 scalar 140,225,253 UZ0 Scalar 4 R(4) 4 2 17955 COM V Scalar 6 R(4) 4 3 807975 COM V10 Scalar 17 R(4) 4 2 17955 COM V30 Scalar 15 R(4) 4 2 17955 COM VBM2 Scalar 3 R(4) 4 2 17955 COM VBM3 Scalar 3 R(4) 4 2 17955 COM VRBLS Common 2 13143060 VTM Scalar 7 R(4) 4 3 807975 COM VZ0 Scalar 4 R(4) 4 2 17955 COM Z0 Scalar 3 R(4) 4 2 17955 COM Page 18 Source Listing GSCOND 2014-12-17 20:47 Subprograms/Common Blocks GSCOND.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References ACMCLH Common 2 6463824 CLDWTR Common 2 3447720 CTLBLK Common 4 112 GLB_TABLE Common 37 128 GSCOND Subr 1 LOOPS Common 2 158840 MAPPINGS Common 56 5024 MASKS Common 2 6894720 MPPCOM Common 1 1464 PHYS Common 4 1788916 PVRBLS Common 2 5530140 TEMPCOM Common 42 6603768 TEMPV Common 2 6535620 TOPO Common 50 17478548 VRBLS Common 2 13143060 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__ Page 19 Source Listing GSCOND 2014-12-17 20:47 GSCOND.F -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__ -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 precise -fp_model nofast -fp_model nostrict -fp_model nosource -fp_model nodouble -fp_model noextended -fp_model novery_fast -fp_model noexcept -fp_model nono_except -fp_modbits nofp_contract -fp_modbits nono_fp_contract -fp_modbits nofenv_access -fp_modbits nono_fenv_access -fp_modbits nocx_limited_range -fp_modbits nono_cx_limited_range -fp_modbits noprec_div -fp_modbits nono_prec_div -fp_modbits noprec_sqrt -fp_modbits nono_prec_sqrt -fp_modbits noftz -fp_modbits no_ftz -fp_modbits nointrin_limited_range -fp_modbits nono_intrin_limited_range -fp_modbits notrunc_compares -fp_modbits nono_trunc_compares -fp_modbits noieee_nan_compares -fp_modbits nono_ieee_nan_compares -fp_modbits nohonor_f32_conversion -fp_modbits nono_honor_f32_conversion -fp_modbits nohonor_f64_conversion -fp_modbits nono_honor_f64_conversion -fp_modbits nono_x87_copy -fp_modbits nono_no_x87_copy -fp_modbits noexception_semantics -fp_modbits nono_exception_semantics -fp_modbits noprecise_libm_functions -fp_modbits nono_precise_libm_functions -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 : /usrx/local/intel/composerxe/tbb/include/,/usr/include/,./,/opt/ibmhpc/pe1308/mpich2/intel/include64/, /opt/ibmhpc/pe1308/base/include64/,/usrx/local/intel/composerxe/mkl/include/,/usrx/local/intel/composerxe/tbb/include/, /gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/intel64/,/gpfs/tp1/usrx/local/intel/composer_xe_2011_sp1.11.339/compiler/include/, Page 20 Source Listing GSCOND 2014-12-17 20:47 GSCOND.F /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ -list filename : GSCOND.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100