Page 1 Source Listing PRECPD 2025-03-12 18:21 /tmp/ifort5Mk3ax.i 1 # 1 "PRECPD.F" 2 SUBROUTINE PRECPD 3 C ****************************************************************** 4 C$$$ SUBPROGRAM DOCUMENTATION BLOCK 5 C . . . 6 C SUBPROGRAM: PRECPD LARGE SCALE PRECIPITATION 7 C PRGRMMR: ZHAO ORG: W/NP22 DATE: ??-??-?? 8 C 9 C ABSTRACT: 10 C PRECPD COMPUTES THE GRID SCALE PRECIPITATION. 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-11-20 ABELES - PARALLEL OPTIMIZATION 16 C 96-03-29 BLACK - REMOVED SCRCH COMMON 17 C 96-07-18 ZHAO - NEW WMIN CALCULATION 18 C 96-09-25 BALDWIN - NEW SR CALCULATION 19 C 98-11-02 BLACK - MODIFICATION FOR DISTRIBUTED MEMORY 20 C 21 C USAGE: CALL PRECPD FROM MAIN PROGRAM EBU 22 C 23 C INPUT ARGUMENT LIST: 24 C NONE 25 C 26 C OUTPUT ARGUMENT LIST: 27 C NONE 28 C 29 C OUTPUT FILES: 30 C NONE 31 C 32 C SUBPROGRAMS CALLED: 33 C 34 C UNIQUE: NONE 35 C 36 C LIBRARY: NONE 37 C 38 C COMMON BLOCKS: CTLBLK 39 C LOOPS 40 C MASKS 41 C PHYS 42 C VRBLS 43 C CLDWTR 44 C PVRBLS 45 C ACMCLH 46 C 47 C ATTRIBUTES: 48 C LANGUAGE: FORTRAN 90 49 C MACHINE : IBM SP 50 C$$$ 51 C ****************************************************************** 52 P A R A M E T E R 53 & (A1=610.78,A2=17.2693882,A3=273.16,A4=35.86 54 &, PQ0=379.90516,TRESH=.95,R=287.04,C0=0.15 55 &, CP=1004.6,ELWV=2.50E6,ELIV=2.834E6,ROW=1.E3,G=9.8 56 &, EPSQ=2.E-12,DLDT=2274.0,ELIW=ELIV-ELWV) 57 C Page 2 Source Listing PRECPD 2025-03-12 18:21 PRECPD.F 58 P A R A M E T E R 59 & (ARCP=A2*(A3-A4)/CP,RCP=1./CP,PQ0C=PQ0*TRESH,RROG=1./(ROW*G) 60 &, RROW=1./ROW) 61 C---------------------------------------------------------------------- 62 INCLUDE "parmeta" 85 INCLUDE "parm.tbl" 87 INCLUDE "mpp.h" 88 # 1 "./sp.h" 1 89 # 4 90 91 # 65 "PRECPD.F" 2 92 C---------------------------------------------------------------------- 151 P A R A M E T E R 152 & (IMJM=IM*JM-JM/2,JAM=6+2*(JM-10) 153 &, LP1=LM+1,LTOP=1,LBOT=LM) 154 C 155 P A R A M E T E R 156 & (IMJM_LOC=IDIM2*JDIM2,LDA=(IDIM2-IDIM1+1)*(JDIM2-JDIM1+1)) 157 C----------------------------------------------------------------------- 158 L O G I C A L 159 & RUN,FIRST,RESTRT,SIGMA,NOZ 160 C---------------------------------------------------------------------- 161 INCLUDE "CTLBLK.comm" 162 C----------------------------------------------------------------------- 172 INCLUDE "LOOPS.comm" 173 C----------------------------------------------------------------------- 180 INCLUDE "MASKS.comm" 181 C----------------------------------------------------------------------- 192 INCLUDE "PHYS.comm" 193 C----------------------------------------------------------------------- 221 INCLUDE "VRBLS.comm" 222 C----------------------------------------------------------------------- 232 INCLUDE "CLDWTR.comm" 233 C----------------------------------------------------------------------- 241 INCLUDE "PVRBLS.comm" 242 C----------------------------------------------------------------------- 272 INCLUDE "ACMCLH.comm" 273 C----------------------------------------------------------------------- 280 INCLUDE "PPTASM.comm" 281 C----------------------------------------------------------------------- 305 D I M E N S I O N 306 & IPREC(IMJM_LOC),JPREC(IMJM_LOC) 307 &,T_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 308 &,Q_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 309 &,TRAIN_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 310 &,HTM_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 311 &,CWM_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 312 &,TLAT_T(LM,IDIM1:IDIM2,JDIM1:JDIM2) 313 C----------------------------------------------------------------------- 314 D I M E N S I O N 315 & PRECRL1(IMJM_LOC),PRECSL1(IMJM_LOC),IWL1(IMJM_LOC) 316 C----------------------------------------------------------------------- 317 R E A L 318 & KE,INIT,MI0 319 C----------------------------------------------------------------------- 320 C*********************************************************************** 321 C--------------PREPARATORY CALCULATIONS--------------------------------- Page 3 Source Listing PRECPD 2025-03-12 18:21 PRECPD.F 322 DTPH = NPHS * DT 323 RDTPH = 1. / DTPH 324 TWODT= DTPH 325 RTWODT=1./TWODT 326 KE=2.0E-5 327 US=1. 328 EPS=0.622E0 329 CCLIMIT=1.0E-3 330 CLIMIT=1.0E-20 331 CWS=0.025 332 CSM1=5.0000E-8 333 CRS1=5.00000E-6 334 CRS2=6.66600E-10 335 CR=5.0E-4 336 MI0=5.0E-4 337 AA2=1.25E-3 338 AVRAIN=AVRAIN+1. 339 ARATIM=ARATIM+1 340 C-------------------PADDING CLOUD MIXING RATIO IF TOO SMALL------------- 341 !$omp parallel do 342 DO 20 L=1,LM 343 DO J=MYJS,MYJE 344 DO I=MYIS,MYIE 345 CWM(I,J,L)=CWM(I,J,L)*HTM(I,J,L)*HBM2(I,J) 346 IF(CWM(I,J,L).LT.0.)CWM(I,J,L)=0. 347 C------------------PADDING SPECIFIC HUMIDITY IF TOO SMALL--------------- 348 IF(Q(I,J,L).LT.EPSQ)Q(I,J,L)=EPSQ*HTM(I,J,L) 349 ENDDO 350 ENDDO 351 20 CONTINUE 352 C 353 UTIM=1. 354 C----------------------------------------------------------------------- 355 !$omp parallel do 356 DO N=1,IMJM_LOC 357 IWL1(N)=0 358 PRECRL1(N)=0. 359 PRECSL1(N)=0. 360 ENDDO 361 C------------CHOOSE THE COLUMNS WHERE PREC CAN BE PRODUCED-------------- 362 NPRE=0 363 DO 35 J=MYJS2,MYJE2 364 DO 35 I=MYIS,MYIE 365 C 366 DO L=2,LM 367 TTEMP=0.025*(T(I,J,L)-273.16) 368 WFIX=0.9814*EXP(0.01873*L) 369 WMIN=0.1E-3*EXP(TTEMP)*WFIX 370 IF(CWM(I,J,L).GT.WMIN)GO TO 33 371 ENDDO 372 C 373 GO TO 35 374 33 NPRE=NPRE+1 375 IPREC(NPRE)=I 376 JPREC(NPRE)=J 377 35 CONTINUE 378 C------------------------------------------------------------------------ Page 4 Source Listing PRECPD 2025-03-12 18:21 PRECPD.F 379 C*** 380 C*** TRANSPOSE ARRAYS 381 C*** 382 !$omp parallel sections 383 !$omp section 384 CALL SGETMO(T,LDA,LDA,LM,T_T,LM) 385 !$omp section 386 CALL SGETMO(Q,LDA,LDA,LM,Q_T,LM) 387 !$omp section 388 CALL SGETMO(CWM,LDA,LDA,LM,CWM_T,LM) 389 !$omp section 390 CALL SGETMO(HTM,LDA,LDA,LM,HTM_T,LM) 391 !$omp section 392 CALL SGETMO(TRAIN,LDA,LDA,LM,TRAIN_T,LM) 393 !$omp section 394 CALL SGETMO(TLAT,LDA,LDA,LM,TLAT_T,LM) 395 !$omp end parallel sections 396 C----------------------------------------------------------------------- 397 C-----------------BEGINING OF PRECIPITATION CALCULATION----------------- 398 C----------------------------------------------------------------------- 399 C*** 400 C*** LOOP OVER ALL POSSIBLE PRECIPITATION POINTS 401 C*** 402 !$omp parallel do 403 !$omp& private(aai,aetal,ai,amaxcm,amaxps,amaxrq,bi,ccr,conde, 404 !$omp& const,cpdr,cs,cwmk,detal,erk,err,errt,ers,erst,expf,fi, 405 !$omp& fiw,hbm2k,hh,htmk,i,iwl,j,lml,mi0,pdsl,pid,ppr,pps, 406 !$omp& pracw,praut,precrk,precrl,precsk,precsl,precss,psaci, 407 !$omp& psaut,psm,psm1,psm2,qc,qct,qi,qint,qintt,qit,qk,qq, 408 !$omp& qtemp,qw,qwt,rconde,rprs,rq,rqkll,rqt,rqtt,tk,tmt0, 409 !$omp& tmt0k,tmt0t,tmt15,tmt15t,totppt,tt,ttemp,ttlat,u00ij, 410 !$omp& u00kl,u00klt,ull,wfix,wmink,ww) 411 C 412 DO 300 N=1,NPRE 413 C 414 I=IPREC(N) 415 J=JPREC(N) 416 HBM2K=HBM2(I,J) 417 PDSL=RES(I,J)*PD(I,J) 418 CONST=PDSL/G*TWODT 419 LML=LM-LMH(I,J) 420 U00IJ=U00(I,J) 421 C 422 DO 180 L=2,LM 423 C 424 DETAL=DETA(L) 425 ULL=UL(L) 426 AETAL=AETA(L) 427 WFIX=0.9814*EXP(0.01873*L) 428 C 429 PRECRL=0. 430 PRECSL=0. 431 PRAUT=0. 432 PSAUT=0. 433 PRACW=0. 434 PSACI=0. 435 ERR =0. Page 5 Source Listing PRECPD 2025-03-12 18:21 PRECPD.F 436 ERS =0. 437 PSM =0. 438 PSM1 =0. 439 PSM2 =0. 440 PPR =0. 441 PPS =0. 442 CPDR =0. 443 HH =0. 444 PID =0. 445 IWL =0. 446 CONDE=0. 447 RCONDE=0. 448 C----------------------------------------------------------------------- 449 TT=T_T(L,I,J) 450 QQ=Q_T(L,I,J) 451 WW=CWM_T(L,I,J) 452 HTMK=HTM_T(L,I,J) 453 TTLAT=TLAT_T(L,I,J) 454 C----------------------------------------------------------------------- 455 U00KL=U00IJ+UL(L+LML)*(0.95-U00IJ)*UTIM 456 TTEMP=0.025*(TT-273.16) 457 WMINK=0.1E-3*EXP(TTEMP)*WFIX 458 C----------------------------------------------------------------------- 459 C----------CHOOSE THE POINTS WHERE PRECIPITATION CAN BE PRODUCED-------- 460 C----------------------------------------------------------------------- 461 PRECRK=AMAX1(0.,PRECRL1(N)) 462 PRECSK=AMAX1(0.,PRECSL1(N)) 463 HH=HTMK*HBM2K 464 IF(WW.LT.WMINK.AND.(PRECRK+PRECSK).EQ.0.)THEN 465 PID=0. 466 ELSE 467 PID=HH 468 ENDIF 469 C----------------------------------------------------------------------- 470 C-------------------QW, QI AND QINT------------------------------------- 471 C----------------------------------------------------------------------- 472 IF(PID.EQ.1.)THEN 473 CONDE=CONST*DETAL 474 RCONDE=1./CONDE 475 TK=TT 476 QK=QQ 477 TMT0=(TK-273.16)*HH 478 TMT15=AMIN1(TMT0,-15.)*HH 479 AI=0.008855 480 BI=1. 481 C 482 IF(TMT0.LT.-20.)THEN 483 AI=0.007225 484 BI=0.9674 485 ENDIF 486 C 487 QW=HH*PQ0/(PDSL*AETAL+PT) 488 1 *EXP(HH*A2*(TK-A3)/(TK-A4)) 489 QI=QW*(BI+AI*AMIN1(TMT0,0.)) 490 QINT=QW*(1.-0.00032*TMT15*(TMT15+15.)) 491 IF(TMT0.LE.-40.)QINT=QI 492 C-------------------ICE-WATER ID NUMBER IW------------------------------ Page 6 Source Listing PRECPD 2025-03-12 18:21 PRECPD.F 493 IF(TMT0.LT.-15.)THEN 494 FI=QK-U00KL*QI 495 IF(FI.GT.0..OR.WW.GT.CLIMIT) THEN 496 IWL=1 497 ELSE 498 IWL=0 499 ENDIF 500 ENDIF 501 C 502 IF(TMT0.LT.0.0.AND.TMT0.GE.-15.0)THEN 503 IWL=0 504 IF(IWL1(N).EQ.1.AND.WW.GT.CLIMIT)IWL=1 505 ENDIF 506 C 507 IF(TMT0.GE.0.)THEN 508 IWL=0 509 ENDIF 510 C----------------THE SATUATION SPECIFIC HUMIDITY------------------------ 511 FIW=FLOAT(IWL) 512 QC=(1.-FIW)*QINT+FIW*QI 513 C----------------THE RELATIVE HUMIDITY---------------------------------- 514 IF(QC.LE.0.)THEN 515 RQ=1.E-10 516 ELSE 517 RQ=QK/QC 518 ENDIF 519 C----------------CLOUD COVER RATIO CCR---------------------------------- 520 IF(RQ.LE.U00KL)THEN 521 CCR=0. 522 ELSE 523 RQKLL=AMIN1(US,RQ) 524 CCR=1.-SQRT((US-RQKLL)/(US-U00KL)) 525 ENDIF 526 C-----------CORRECT CCR IF IT IS TOO SMALL IN LARGE CWM REGIONS-------- 527 IF(CCR.GE.0.01.AND.CCR.LE.0.2.AND 528 1 .WW.GE.0.2E-3)THEN 529 CCR=AMIN1(1.,WW*1.0E3) 530 ENDIF 531 ENDIF 532 60 CONTINUE 533 C----------------------------------------------------------------------- 534 C------------------PRECIPITATION PRODUCTION RATES----------------------- 535 C------------------AUTO-CONVERT RATES----------------------------------- 536 C----------------------------------------------------------------------- 537 IF(PID.EQ.1.)THEN 538 IWK=IWL 539 CWMK=AMAX1(0.,WW-CLIMIT) 540 MI0=WMINK 541 C 542 IF(IWK.EQ.1)THEN 543 EXPF=EXP(0.025*TMT0) 544 AA1=1.E-3*EXPF 545 PSAUT=AA1*AMAX1(0.,CWMK-MI0) 546 CPDR=-PSAUT*TWODT 547 IF(-CPDR.GE.CWMK)THEN 548 CPDR=-CWMK 549 PSAUT=-CPDR*RTWODT Page 7 Source Listing PRECPD 2025-03-12 18:21 PRECPD.F 550 ENDIF 551 ELSE 552 AMAXCM=AMAX1(0.,CWMK-MI0) 553 PRAUT=C0*AMAXCM*AMAXCM 554 CPDR=-PRAUT*TWODT 555 IF(-CPDR.GE.CWMK)THEN 556 CPDR=-CWMK 557 PRAUT=-CPDR*RTWODT 558 ENDIF 559 ENDIF 560 PPR=PRAUT*CONDE 561 PPS=PSAUT*CONDE 562 ENDIF 563 C 564 IF(PID.EQ.1.)THEN 565 WW=CPDR*HH+WW 566 PRECRL=PRECRL1(N)+PPR*HH 567 PRECSL=PRECSL1(N)+PPS*HH 568 ENDIF 569 C----------------------------------------------------------------------- 570 C-----------------------ACCRETIONS-------------------------------------- 571 C----------------------------------------------------------------------- 572 IF(PID.EQ.1.)THEN 573 IWK=IWL 574 CWMK=WW 575 PRECRK=AMAX1(0.,PRECRL1(N)) 576 PRECSK=AMAX1(0.,PRECSL1(N)) 577 IF(IWK.EQ.1)THEN 578 EXPF=EXP(0.025*TMT0) 579 CS=AA2*EXPF 580 PSACI=CS*AMAX1(0.,CWMK)*PRECSK 581 CPDR=-PSACI*TWODT 582 IF(-CPDR.GE.CWMK)THEN 583 CPDR=-CWMK 584 PSACI=-CPDR*RTWODT 585 ENDIF 586 ELSE 587 PRACW=CR*AMAX1(0.,CWMK)*(PRECRK+PRECSK) 588 CPDR=-PRACW*TWODT 589 IF(-CPDR.GE.CWMK)THEN 590 CPDR=-CWMK 591 PRACW=-CPDR*RTWODT 592 ENDIF 593 ENDIF 594 PPR=PRACW*CONDE 595 PPS=PSACI*CONDE 596 ENDIF 597 C 598 IF(PID.EQ.1.)THEN 599 WW=CPDR*HH+WW 600 PRECRL=PRECRL+PPR*HH 601 PRECSL=PRECSL+PPS*HH 602 ENDIF 603 C----------------------------------------------------------------------- 604 C-----EVAPORATION/CONDENSATION OF PRECIPITATION------------------------- 605 C***** ERR & ERS POSITIVE--EVAPORATION 606 C***** ERR & ERS NEGTIVE---CONDENSATION Page 8 Source Listing PRECPD 2025-03-12 18:21 PRECPD.F 607 C----------------------------------------------------------------------- 608 IF(PID.EQ.1.0)THEN 609 QK=QQ 610 TMT0K=TMT0 611 IF(TMT0K.LT.-30.)TMT0K=-30. 612 PRECRK=AMAX1(0.,PRECRL) 613 PRECSK=AMAX1(0.,PRECSL) 614 C---------------------------------------------------------------------- 615 C INCREASE THE EVAPORATION/CONDENSATION FOR STRONG/LIGHT PREC 616 C---------------------------------------------------------------------- 617 U00KLT=U00KL 618 AMAXRQ=AMAX1(0.,U00KL-RQ) 619 ERR=KE*AMAXRQ*PRECRK**0.5 620 C 621 IF(TMT0.GE.0.)THEN 622 ERS=0. 623 ELSE 624 ERS=(CRS1+CRS2*TMT0K)*AMAXRQ*PRECSK/U00KLT 625 ENDIF 626 C 627 IF(ERR+ERS.LE.1.E-20) GO TO 125 628 C---------------CORRECT IF OVER-EVAPO./COND. OCCURS-------------------- 629 HHT=HH*TWODT 630 TTEMP=TT-RCP*(ELWV*ERR+ELIV*ERS)*HHT 631 QTEMP=QQ+HHT*(ERR+ERS) 632 TMT0T=(TTEMP-273.16)*HH 633 IF(TMT0T.LT.-30.)TMT0T=-30. 634 TMT15T=AMIN1(TMT0T,-15.)*HH 635 AI=0.008855 636 BI=1. 637 C 638 IF(TMT0T.LT.-20.)THEN 639 AI=0.007225 640 BI=0.9674 641 ENDIF 642 C 643 QWT=HH*PQ0/(PDSL*AETAL+PT) 644 1 *EXP(HH*A2*(TTEMP-A3)/(TTEMP-A4)) 645 QIT=QWT*(BI+AI*AMIN1(TMT0T,0.)) 646 QINTT=QWT*(1.-0.00032*TMT15T*(TMT15T+15.)) 647 IF(TMT0T.LE.-40.)QINTT=QIT 648 FIW=FLOAT(IWL) 649 QCT=(1.-FIW)*QINTT+FIW*QIT 650 C 651 IF(QCT.LE.1.E-10) THEN 652 RQT=1.E-10 653 RQTT=1.E-10 654 ELSE 655 RQT=QTEMP/QCT 656 RQTT=QQ/QCT 657 ENDIF 658 C 659 IF(RQT.LE.U00KL) GO TO 125 660 C 661 ERK=(U00KL-RQTT)*QCT*RTWODT 662 RPRS=ERK/(PRECRK+PRECSK) 663 ERRT=PRECRK*RPRS Page 9 Source Listing PRECPD 2025-03-12 18:21 PRECPD.F 664 ERST=PRECSK*RPRS 665 ERR=AMAX1(0.,0.5*(ERR+ERRT)) 666 ERS=AMAX1(0.,0.5*(ERS+ERST)) 667 C 668 125 CONTINUE 669 C 670 PPR=-ERR*CONDE 671 PPS=-ERS*CONDE 672 C 673 IF(-PPR.GE.PRECRK)THEN 674 PPR=-PRECRK 675 ERR=-PPR*RCONDE 676 ENDIF 677 C 678 IF(-PPS.GE.PRECSK)THEN 679 PPS=-PRECSK 680 ERS=-PPS*RCONDE 681 ENDIF 682 C 683 ENDIF 684 C 685 IF(PID.EQ.1.)THEN 686 PRECRL=PRECRL+PPR*HH 687 PRECSL=PRECSL+PPS*HH 688 ENDIF 689 C----------------------------------------------------------------------- 690 C--------------------MELTING OF THE SNOW-------------------------------- 691 C----------------------------------------------------------------------- 692 IF(PID.EQ.1.)THEN 693 CWMK=WW 694 AMAXPS=AMAX1(0.,PRECSL) 695 C 696 IF(TMT0.GT.0.)THEN 697 PSM1=CSM1*TMT0*TMT0*AMAXPS 698 PSM2=CWS*CR*CWMK*AMAXPS 699 PSM=PSM1+PSM2 700 ELSE 701 PSM1=0. 702 PSM2=0. 703 PSM=0. 704 ENDIF 705 C 706 PPR=PSM*CONDE 707 PPS=-PSM*CONDE 708 C 709 IF(-PPS.GE.AMAXPS)THEN 710 PPS=-AMAXPS 711 PPR=AMAXPS 712 PSM1=-PPS*RCONDE 713 PSM2=0. 714 PSM=PSM1 715 ENDIF 716 C 717 ENDIF 718 C 719 IF(PID.EQ.1.)THEN 720 PRECRL=PRECRL+PPR*HH Page 10 Source Listing PRECPD 2025-03-12 18:21 PRECPD.F 721 PRECSL=PRECSL+PPS*HH 722 ENDIF 723 C----------------------------------------------------------------------- 724 C---------------UPDATE T AND Q------------------------------------------ 725 C----------------------------------------------------------------------- 726 IF(PID.EQ.1.)THEN 727 HHT=HH*TWODT 728 TT=-RCP*(ELWV*ERR+ELIV*ERS+ELIW*PSM1) 729 1 *HHT+TT 730 QQ=(ERR+ERS)*HHT+QQ 731 TTLAT=-RCP*(ELWV*ERR+ELIV*ERS+ELIW*PSM1 732 & -ELWV*(PRAUT+PRACW) 733 & -ELIV*(PSAUT+PSACI))*HHT+TTLAT 734 ENDIF 735 C 736 IF(HH.EQ.1.)THEN 737 IWL1(N)=IWL 738 PRECRL1(N)=PRECRL 739 PRECSL1(N)=PRECSL 740 ENDIF 741 C 742 C ACCUMULATE LATENT HEATING DUE TO GRID-SCALE PRECIP/EVAP. 743 C SCALE BY THE RECIPROCAL OF THE PERIOD AT WHICH THIS ROUTINE 744 C IS CALLED. THIS PERIOD IS THE PHYSICS TIMESTEP. 745 C 746 TRAIN_T(L,I,J)=TRAIN_T(L,I,J)+(TT-T_T(L,I,J))*RDTPH 747 T_T(L,I,J)=TT 748 Q_T(L,I,J)=QQ 749 CWM_T(L,I,J)=WW 750 TLAT_T(L,I,J)=TTLAT 751 180 CONTINUE 752 C----------------------------------------------------------------------- 753 C-------------------THE PRECIPITATION ON SFC---------------------------- 754 C----------------------------------------------------------------------- 755 PRECRS=PRECRL1(N)*RROW 756 PRECSS=PRECSL1(N)*RROW 757 C 758 APREC(I,J)=PRECRS+PRECSS 759 PREC(I,J)=PREC(I,J)+PRECRS+PRECSS 760 ACPREC(I,J)=ACPREC(I,J)+APREC(I,J) 761 C----------------------------------------------------------------------- 762 C---------------THE SNOW AND RAIN RATIO OF SFC PREC--------------------- 763 C----SR IS THE RATIO OF SNOW TO THE TOTAL PRECIP------------------------ 764 C----IF TOTAL PRECIP IS ZERO, SR IS ZERO-------------------------------- 765 C----------------------------------------------------------------------- 766 TOTPPT=PRECRS+PRECSS 767 IF (TOTPPT.GT.1.E-8) THEN 768 SR(I,J)=PRECSS/TOTPPT 769 ELSE 770 SR(I,J)=0. 771 ENDIF 772 C----------------------------------------------------------------------- 773 300 CONTINUE 774 C----------------------------------------------------------------------- 775 C*** 776 C*** TRANSPOSE BACK 777 C*** Page 11 Source Listing PRECPD 2025-03-12 18:21 PRECPD.F 778 !$omp parallel sections 779 !$omp section 780 CALL SGETMO(T_T,LM,LM,LDA,T,LDA) 781 !$omp section 782 CALL SGETMO(Q_T,LM,LM,LDA,Q,LDA) 783 !$omp section 784 CALL SGETMO(CWM_T,LM,LM,LDA,CWM,LDA) 785 !$omp section 786 CALL SGETMO(TRAIN_T,LM,LM,LDA,TRAIN,LDA) 787 !$omp section 788 CALL SGETMO(TLAT_T,LM,LM,LDA,TLAT,LDA) 789 !$omp end parallel sections 790 C----------------------------------------------------------------------- 791 RETURN 792 END ENTRY POINTS Name precpd_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 125 Label 668 627,659 180 Label 751 422 20 Label 351 342 300 Label 773 412 33 Label 374 370 35 Label 377 363,364,373 60 Label 532 A1 Param 53 R(4) 4 scalar A2 Param 53 R(4) 4 scalar 59,488,644 A3 Param 53 R(4) 4 scalar 59,488,644 A4 Param 53 R(4) 4 scalar 59,488,644 AA1 Local 544 R(4) 4 scalar 544,545 AA2 Local 337 R(4) 4 scalar 337,579 ACMCLH Common 275 6463824 SAVE AETAL Local 426 R(4) 4 scalar 426,487,643 AI Local 479 R(4) 4 scalar 479,483,489,635,639,645 AMAX1 Func 461 scalar 461,462,539,545,552,575,576,580,58 7,612,613,618,665,666,694 AMAXCM Local 552 R(4) 4 scalar 552,553 AMAXPS Local 694 R(4) 4 scalar 694,697,698,709,710,711 AMAXRQ Local 618 R(4) 4 scalar 618,619,624 AMIN1 Func 478 scalar 478,489,523,529,634,645 ARCP Param 59 R(4) 4 scalar BI Local 480 R(4) 4 scalar 480,484,489,636,640,645 C0 Param 54 R(4) 4 scalar 553 CCLIMIT Local 329 R(4) 4 scalar 329 CCR Local 521 R(4) 4 scalar 521,524,527,529 CLDWTR Common 235 3447720 SAVE CLIMIT Local 330 R(4) 4 scalar 330,495,504,539 Page 12 Source Listing PRECPD 2025-03-12 18:21 Symbol Table PRECPD.F Name Object Declared Type Bytes Dimen Elements Attributes References CONDE Local 446 R(4) 4 scalar 446,473,474,560,561,594,595,670,67 1,706,707 CONST Local 418 R(4) 4 scalar 418,473 CP Param 55 R(4) 4 scalar 59 CPDR Local 442 R(4) 4 scalar 442,546,547,548,549,554,555,556,55 7,565,581,582,583,584,588,589,590, 591,599 CR Local 335 R(4) 4 scalar 335,587,698 CRS1 Local 333 R(4) 4 scalar 333,624 CRS2 Local 334 R(4) 4 scalar 334,624 CSM1 Local 332 R(4) 4 scalar 332,697 CTLBLK Common 166 112 SAVE CWMK Local 539 R(4) 4 scalar 539,545,547,548,552,555,556,574,58 0,582,583,587,589,590,693,698 CWM_T Local 311 R(4) 4 3 807975 388,451,749,784 CWS Local 331 R(4) 4 scalar 331,698 DETAL Local 424 R(4) 4 scalar 424,473 DLDT Param 56 R(4) 4 scalar DTPH Local 322 R(4) 4 scalar 322,323,324 ELIV Param 55 R(4) 4 scalar 56,630,728,731,733 ELIW Param 56 R(4) 4 scalar 728,731 ELWV Param 55 R(4) 4 scalar 56,630,728,731,732 EPS Local 328 R(4) 4 scalar 328 EPSQ Param 56 R(4) 4 scalar 348 ERK Local 661 R(4) 4 scalar 661,662 ERR Local 435 R(4) 4 scalar 435,619,627,630,631,665,670,675,72 8,730,731 ERRT Local 663 R(4) 4 scalar 663,665 ERS Local 436 R(4) 4 scalar 436,622,624,627,630,631,666,671,68 0,728,730,731 ERST Local 664 R(4) 4 scalar 664,666 EXP Func 368 scalar 368,369,427,457,488,543,578,644 EXPF Local 543 R(4) 4 scalar 543,544,578,579 FI Local 494 R(4) 4 scalar 494,495 FIW Local 511 R(4) 4 scalar 511,512,648,649 FLOAT Func 511 scalar 511,648 G Param 55 R(4) 4 scalar 59,418 GLB_TABLE Common 129 128 SAVE HBM2K Local 416 R(4) 4 scalar 416,463 HH Local 443 R(4) 4 scalar 443,463,467,477,478,487,488,565,56 6,567,599,600,601,629,632,634,643, 644,686,687,720,721,727,736 HHT Local 629 R(4) 4 scalar 629,630,631,727,729,730,733 HTMK Local 452 R(4) 4 scalar 452,463 HTM_T Local 310 R(4) 4 3 807975 390,452 I Local 344 I(4) 4 scalar 344,345,346,348,364,367,370,375,41 4,416,417,419,420,449,450,451,452, 453,746,747,748,749,750,758,759,76 0,768,770 IDIM1 Param 81 I(4) 4 scalar 156,177,184,185,187,188,189,206,20 7,208,209,210,211,212,213,214,215, 216,225,227,228,229,236,238,245,24 6,247,248,249,250,251,252,253,254, 255,256,257,258,259,260,261,263,26 8,277,278,283,284,286,287,307,308, Page 13 Source Listing PRECPD 2025-03-12 18:21 Symbol Table PRECPD.F Name Object Declared Type Bytes Dimen Elements Attributes References 309,310,311,312 IDIM2 Param 81 I(4) 4 scalar 156,177,184,185,187,188,189,206,20 7,208,209,210,211,212,213,214,215, 216,225,227,228,229,236,238,245,24 6,247,248,249,250,251,252,253,254, 255,256,257,258,259,260,261,263,26 8,277,278,283,284,286,287,307,308, 309,310,311,312 IGSTL Param 76 I(4) 4 scalar 81 IGSTR Param 76 I(4) 4 scalar 81 IM Param 65 I(4) 4 scalar 78,81,135,136,137,138,139,143,144, 149,152 IMJM Param 152 I(4) 4 scalar IMJM_LOC Param 156 I(4) 4 scalar 306,315,356 INIT Local 318 R(4) 4 scalar INPES Param 73 I(4) 4 scalar 78,81,119,120,121,130,131 IPREC Local 306 I(4) 4 1 15327 375,414 ITAIL Param 78 I(4) 4 scalar ITB Param 86 I(4) 4 scalar 203,218 ITBQ Param 86 I(4) 4 scalar 204,218 IWK Local 538 I(4) 4 scalar 538,542,573,577 IWL Local 445 I(4) 4 scalar 445,496,498,503,504,508,511,538,57 3,648,737 IWL1 Local 315 I(4) 4 1 15327 357,504,737 J Local 343 I(4) 4 scalar 343,345,346,348,363,367,370,376,41 5,416,417,419,420,449,450,451,452, 453,746,747,748,749,750,758,759,76 0,768,770 JAM Param 152 I(4) 4 scalar 176 JDIM1 Param 82 I(4) 4 scalar 156,177,184,185,187,188,189,206,20 7,208,209,210,211,212,213,214,215, 216,225,227,228,229,236,238,245,24 6,247,248,249,250,251,252,253,254, 255,256,257,258,259,260,261,263,26 8,277,278,283,284,286,287,307,308, 309,310,311,312 JDIM2 Param 82 I(4) 4 scalar 156,177,184,185,187,188,189,206,20 7,208,209,210,211,212,213,214,215, 216,225,227,228,229,236,238,245,24 6,247,248,249,250,251,252,253,254, 255,256,257,258,259,260,261,263,26 8,277,278,283,284,286,287,307,308, 309,310,311,312 JGSTL Param 77 I(4) 4 scalar 82 JGSTR Param 77 I(4) 4 scalar 82 JM Param 65 I(4) 4 scalar 79,82,135,136,137,138,139,143,144, 149,152 JNPES Param 73 I(4) 4 scalar 79,82,119,120,121,130,131 JPREC Local 306 I(4) 4 1 15327 376,415 JTAIL Param 79 I(4) 4 scalar JTB Param 86 I(4) 4 scalar 203,218 JTBQ Param 86 I(4) 4 scalar 218 KE Local 318 R(4) 4 scalar 326,619 L Local 342 I(4) 4 scalar 342,345,346,348,366,367,368,370,42 2,424,425,426,427,449,450,451,452, Page 14 Source Listing PRECPD 2025-03-12 18:21 Symbol Table PRECPD.F Name Object Declared Type Bytes Dimen Elements Attributes References 453,455,746,747,748,749,750 LBOT Param 153 I(4) 4 scalar LDA Param 156 I(4) 4 scalar 384,386,388,390,392,394,780,782,78 4,786,788 LM Param 65 I(4) 4 scalar 144,153,187,188,202,227,228,236,23 7,263,277,278,283,307,308,309,310, 311,312,342,366,384,386,388,390,39 2,394,419,422,780,782,784,786,788 LML Local 419 I(4) 4 scalar 419,455 LOOPS Common 175 158840 SAVE LP1 Param 153 I(4) 4 scalar 202 LSM Param 65 I(4) 4 scalar LTOP Param 153 I(4) 4 scalar MAPPINGS Common 148 5024 SAVE MASKS Common 183 6894720 SAVE MI0 Local 318 R(4) 4 scalar 336,540,545,552 MPPCOM Common 93 1464 SAVE N Local 356 I(4) 4 scalar 356,357,358,359,412,414,415,461,46 2,504,566,567,575,576,737,738,739, 755,756 NOZ Local 159 L(4) 4 scalar NPRE Local 362 I(4) 4 scalar 362,374,375,376,412 PDSL Local 417 R(4) 4 scalar 417,418,487,643 PHYS Common 197 1788916 SAVE PID Local 444 R(4) 4 scalar 444,465,467,472,537,564,572,598,60 8,685,692,719,726 PPR Local 440 R(4) 4 scalar 440,560,566,594,600,670,673,674,67 5,686,706,711,720 PPS Local 441 R(4) 4 scalar 441,561,567,595,601,671,678,679,68 0,687,707,709,710,712,721 PPTASM Common 282 3878292 SAVE PQ0 Param 54 R(4) 4 scalar 59,487,643 PQ0C Param 59 R(4) 4 scalar PRACW Local 433 R(4) 4 scalar 433,587,588,591,594,732 PRAUT Local 431 R(4) 4 scalar 431,553,554,557,560,732 PRECPD Subr 2 PRECRK Local 461 R(4) 4 scalar 461,464,575,587,612,619,662,663,67 3,674 PRECRL Local 429 R(4) 4 scalar 429,566,600,612,686,720,738 PRECRL1 Local 315 R(4) 4 1 15327 358,461,566,575,738,755 PRECRS Local 755 R(4) 4 scalar 755,758,759,766 PRECSK Local 462 R(4) 4 scalar 462,464,576,580,587,613,624,662,66 4,678,679 PRECSL Local 430 R(4) 4 scalar 430,567,601,613,687,694,721,739 PRECSL1 Local 315 R(4) 4 1 15327 359,462,567,576,739,756 PRECSS Local 756 R(4) 4 scalar 756,758,759,766,768 PSACI Local 434 R(4) 4 scalar 434,580,581,584,595,733 PSAUT Local 432 R(4) 4 scalar 432,545,546,549,561,733 PSM Local 437 R(4) 4 scalar 437,699,703,706,707,714 PSM1 Local 438 R(4) 4 scalar 438,697,699,701,712,714,728,731 PSM2 Local 439 R(4) 4 scalar 439,698,699,702,713 PVRBLS Common 244 5530140 SAVE QC Local 512 R(4) 4 scalar 512,514,517 QCT Local 649 R(4) 4 scalar 649,651,655,656,661 QI Local 489 R(4) 4 scalar 489,491,494,512 Page 15 Source Listing PRECPD 2025-03-12 18:21 Symbol Table PRECPD.F Name Object Declared Type Bytes Dimen Elements Attributes References QINT Local 490 R(4) 4 scalar 490,491,512 QINTT Local 646 R(4) 4 scalar 646,647,649 QIT Local 645 R(4) 4 scalar 645,647,649 QK Local 476 R(4) 4 scalar 476,494,517,609 QQ Local 450 R(4) 4 scalar 450,476,609,631,656,730,748 QTEMP Local 631 R(4) 4 scalar 631,655 QW Local 487 R(4) 4 scalar 487,489,490 QWT Local 643 R(4) 4 scalar 643,645,646 Q_T Local 308 R(4) 4 3 807975 386,450,748,782 R Param 54 R(4) 4 scalar RCONDE Local 447 R(4) 4 scalar 447,474,675,680,712 RCP Param 59 R(4) 4 scalar 630,728,731 RDTPH Local 323 R(4) 4 scalar 323,746 ROW Param 55 R(4) 4 scalar 59,60 RPRS Local 662 R(4) 4 scalar 662,663,664 RQ Local 515 R(4) 4 scalar 515,517,520,523,618 RQKLL Local 523 R(4) 4 scalar 523,524 RQT Local 652 R(4) 4 scalar 652,655,659 RQTT Local 653 R(4) 4 scalar 653,656,661 RROG Param 59 R(4) 4 scalar RROW Param 60 R(4) 4 scalar 755,756 RTWODT Local 325 R(4) 4 scalar 325,549,557,584,591,661 SGETMO Subr 384 384,386,388,390,392,394,780,782,78 4,786,788 SINGLRST Local 164 L(4) 4 scalar SQRT Func 524 scalar 524 TEMPCOM Common 134 6603768 SAVE TK Local 475 R(4) 4 scalar 475,477,488 TLAT_T Local 312 R(4) 4 3 807975 394,453,750,788 TMT0 Local 477 R(4) 4 scalar 477,478,482,489,491,493,502,507,54 3,578,610,621,696,697 TMT0K Local 610 R(4) 4 scalar 610,611,624 TMT0T Local 632 R(4) 4 scalar 632,633,634,638,645,647 TMT15 Local 478 R(4) 4 scalar 478,490 TMT15T Local 634 R(4) 4 scalar 634,646 TOPO Common 142 17478548 SAVE TOTPPT Local 766 R(4) 4 scalar 766,767,768 TRAIN_T Local 309 R(4) 4 3 807975 392,746,786 TRESH Param 54 R(4) 4 scalar 59 TT Local 449 R(4) 4 scalar 449,456,475,630,728,729,746,747 TTEMP Local 367 R(4) 4 scalar 367,369,456,457,630,632,644 TTLAT Local 453 R(4) 4 scalar 453,731,733,750 TWODT Local 324 R(4) 4 scalar 324,325,418,546,554,581,588,629,72 7 T_T Local 307 R(4) 4 3 807975 384,449,746,747,780 U00IJ Local 420 R(4) 4 scalar 420,455 U00KL Local 455 R(4) 4 scalar 455,494,520,524,617,618,659,661 U00KLT Local 617 R(4) 4 scalar 617,624 ULL Local 425 R(4) 4 scalar 425 US Local 327 R(4) 4 scalar 327,523,524 UTIM Local 353 R(4) 4 scalar 353,455 VRBLS Common 224 13143060 SAVE WFIX Local 368 R(4) 4 scalar 368,369,427,457 WMIN Local 369 R(4) 4 scalar 369,370 WMINK Local 457 R(4) 4 scalar 457,464,540 Page 16 Source Listing PRECPD 2025-03-12 18:21 Symbol Table PRECPD.F Name Object Declared Type Bytes Dimen Elements Attributes References WW Local 451 R(4) 4 scalar 451,464,495,504,528,529,539,565,57 4,599,693,749 TYPE COMPONENTS/COMMON VARIABLES Name Type Bytes Offset Dimen Elements Attributes References ACCLIQ R(4) 4 1292760 2 17955 COM ACPREC R(4) 4 1220940 2 17955 COM 760 ACUTIM R(4) 4 20 scalar COM AETA R(4) 4 264 1 45 COM 426 AFSI R(4) 4 5458320 2 17955 COM AKHS R(4) 4 646380 2 17955 COM AKMS R(4) 4 574560 2 17955 COM ALBASE R(4) 4 1009004 2 17955 COM ALBEDO R(4) 4 1080824 2 17955 COM APREC R(4) 4 3519180 2 17955 COM 758,760 ARATIM R(4) 4 16 scalar COM 339 AVCNVC R(4) 4 12 scalar COM AVRAIN R(4) 4 8 scalar COM 338 CI R(4) 4 40 scalar COM CLDEFI R(4) 4 1077300 2 17955 COM CLDINC R(4) 4 3734652 2 17955 COM CLDINC7 R(4) 4 3806472 2 17955 COM CNVBOT R(4) 4 721724 2 17955 COM CNVTOP R(4) 4 649904 2 17955 COM CS R(4) 4 28 scalar COM 579,580 CUPREC R(4) 4 1364580 2 17955 COM CWM R(4) 4 0 3 807975 COM 345,346,370,388,784 CZEN R(4) 4 434444 2 17955 COM CZMEAN R(4) 4 1296284 2 17955 COM DETA R(4) 4 84 1 45 COM 424 DFRLG R(4) 4 444 1 46 COM DI R(4) 4 44 scalar COM DS R(4) 4 32 scalar COM DT R(4) 4 48 scalar COM 322 DTD R(4) 4 16 scalar COM DTQ2 R(4) 4 8 scalar COM EPSR R(4) 4 75344 2 17955 COM FIRST L(4) 4 24 scalar COM FIS R(4) 4 12999420 2 17955 COM G2LI I(4) 4 0 1 239 COM G2LJ I(4) 4 1912 1 389 COM GFFC R(4) 4 865364 2 17955 COM GLAT R(4) 4 290804 2 17955 COM GLON R(4) 4 362624 2 17955 COM HBM2 R(4) 4 6751080 2 17955 COM 345,416 HBM3 R(4) 4 6822900 2 17955 COM HBOT R(4) 4 578084 2 17955 COM HDAC R(4) 4 1152644 2 17955 COM HDACV R(4) 4 1224464 2 17955 COM HTM R(4) 4 287280 3 807975 COM 345,348,390 HTMG R(4) 4 743768 3 4183695 COM HTOP R(4) 4 506264 2 17955 COM Page 17 Source Listing PRECPD 2025-03-12 18:21 Symbol Table PRECPD.F Name Type Bytes Offset Dimen Elements Attributes References IBROW I(4) 4 404 scalar COM ICHUNKTAB I(4) 4 620 1 8 COM IDAT I(4) 4 8 1 3 COM IDTAD I(4) 4 72 scalar COM IE_GLB_TABLE I(4) 4 32 1 8 COM IE_LOC_TABLE I(4) 4 556 1 8 COM IHHA I(4) 4 3040 1 760 COM IHLA I(4) 4 0 1 760 COM IHRST I(4) 4 20 scalar COM ILCOL I(4) 4 396 scalar COM ILPAD1 I(4) 4 412 scalar COM ILPAD2 I(4) 4 416 scalar COM ILPAD3 I(4) 4 420 scalar COM ILPAD4 I(4) 4 424 scalar COM ILPAD5 I(4) 4 428 scalar COM INUMQ I(4) 4 1064 1 100 COM IOUT I(4) 4 44 scalar COM IQUILT_GROUP I(4) 4 1060 scalar COM IRCOL I(4) 4 400 scalar COM IRPAD1 I(4) 4 432 scalar COM IRPAD2 I(4) 4 436 scalar COM IRPAD3 I(4) 4 440 scalar COM IRPAD4 I(4) 4 444 scalar COM IRPAD5 I(4) 4 448 scalar COM IS_GLB_TABLE I(4) 4 0 1 8 COM IS_LOC_TABLE I(4) 4 492 1 8 COM ITEMP I(4) 4 5870016 2 91719 COM ITEMP2 I(4) 4 6236892 2 91719 COM ITROW I(4) 4 408 scalar COM ITSTLOC I(4) 4 3591000 scalar COM IVHA I(4) 4 9120 1 760 COM IVLA I(4) 4 6080 1 760 COM JBPAD1 I(4) 4 452 scalar COM JBPAD2 I(4) 4 456 scalar COM JBPAD3 I(4) 4 460 scalar COM JBPAD4 I(4) 4 464 scalar COM JBPAD5 I(4) 4 468 scalar COM JE_GLB_TABLE I(4) 4 96 1 8 COM JE_LOC_TABLE I(4) 4 588 1 8 COM JRA I(4) 4 12160 1 760 COM JS_GLB_TABLE I(4) 4 64 1 8 COM JS_LOC_TABLE I(4) 4 524 1 8 COM JTPAD1 I(4) 4 472 scalar COM JTPAD2 I(4) 4 476 scalar COM JTPAD3 I(4) 4 480 scalar COM JTPAD4 I(4) 4 484 scalar COM JTPAD5 I(4) 4 488 scalar COM JTSTLOC I(4) 4 3591004 scalar COM KTM I(4) 4 0 scalar COM L2GI I(4) 4 956 1 239 COM L2GJ I(4) 4 3468 1 389 COM LC I(4) 4 3304080 2 17955 COM LIST I(4) 4 40 scalar COM LMH I(4) 4 15200 2 17955 COM 419 LMV I(4) 4 87020 2 17955 COM Page 18 Source Listing PRECPD 2025-03-12 18:21 Symbol Table PRECPD.F Name Type Bytes Offset Dimen Elements Attributes References MPI_COMM_COMP I(4) 4 652 scalar COM MPI_COMM_INTER I(4) 4 656 scalar COM MPI_COMM_INTER_ARRAY I(4) 4 660 1 100 COM MTSTPE I(4) 4 3591008 scalar COM MXSNAL R(4) 4 3524 2 17955 COM MYIE I(4) 4 52 scalar COM 344,364 MYIE1 I(4) 4 56 scalar COM MYIE1_P1 I(4) 4 120 scalar COM MYIE1_P2 I(4) 4 124 scalar COM MYIE1_P3 I(4) 4 128 scalar COM MYIE1_P4 I(4) 4 132 scalar COM MYIE2 I(4) 4 60 scalar COM MYIE2_P1 I(4) 4 136 scalar COM MYIE_P1 I(4) 4 100 scalar COM MYIE_P2 I(4) 4 104 scalar COM MYIE_P3 I(4) 4 108 scalar COM MYIE_P4 I(4) 4 112 scalar COM MYIE_P5 I(4) 4 116 scalar COM MYIS I(4) 4 40 scalar COM 344,364 MYIS1 I(4) 4 44 scalar COM MYIS1_P1 I(4) 4 84 scalar COM MYIS1_P2 I(4) 4 88 scalar COM MYIS1_P3 I(4) 4 92 scalar COM MYIS1_P4 I(4) 4 96 scalar COM MYIS2 I(4) 4 48 scalar COM MYIS_P1 I(4) 4 64 scalar COM MYIS_P2 I(4) 4 68 scalar COM MYIS_P3 I(4) 4 72 scalar COM MYIS_P4 I(4) 4 76 scalar COM MYIS_P5 I(4) 4 80 scalar COM MYJE I(4) 4 236 scalar COM 343 MYJE1 I(4) 4 240 scalar COM MYJE1_P1 I(4) 4 280 scalar COM MYJE1_P2 I(4) 4 284 scalar COM MYJE1_P3 I(4) 4 288 scalar COM MYJE1_P4 I(4) 4 292 scalar COM MYJE2 I(4) 4 244 scalar COM 363 MYJE2_P1 I(4) 4 296 scalar COM MYJE2_P2 I(4) 4 300 scalar COM MYJE2_P3 I(4) 4 304 scalar COM MYJE2_P4 I(4) 4 308 scalar COM MYJE3 I(4) 4 248 scalar COM MYJE3_P4 I(4) 4 312 scalar COM MYJE4 I(4) 4 252 scalar COM MYJE4_P1 I(4) 4 316 scalar COM MYJE4_P4 I(4) 4 320 scalar COM MYJE5 I(4) 4 256 scalar COM MYJE5_P1 I(4) 4 324 scalar COM MYJE5_P2 I(4) 4 328 scalar COM MYJE_P1 I(4) 4 260 scalar COM MYJE_P2 I(4) 4 264 scalar COM MYJE_P3 I(4) 4 268 scalar COM MYJE_P4 I(4) 4 272 scalar COM MYJE_P5 I(4) 4 276 scalar COM MYJS I(4) 4 140 scalar COM 343 Page 19 Source Listing PRECPD 2025-03-12 18:21 Symbol Table PRECPD.F Name Type Bytes Offset Dimen Elements Attributes References MYJS1 I(4) 4 144 scalar COM MYJS1_P1 I(4) 4 184 scalar COM MYJS1_P2 I(4) 4 188 scalar COM MYJS1_P3 I(4) 4 192 scalar COM MYJS1_P4 I(4) 4 196 scalar COM MYJS2 I(4) 4 148 scalar COM 363 MYJS2_P1 I(4) 4 200 scalar COM MYJS2_P2 I(4) 4 204 scalar COM MYJS2_P3 I(4) 4 208 scalar COM MYJS2_P4 I(4) 4 212 scalar COM MYJS3 I(4) 4 152 scalar COM MYJS3_P4 I(4) 4 216 scalar COM MYJS4 I(4) 4 156 scalar COM MYJS4_P1 I(4) 4 220 scalar COM MYJS4_P4 I(4) 4 224 scalar COM MYJS5 I(4) 4 160 scalar COM MYJS5_P1 I(4) 4 228 scalar COM MYJS5_P2 I(4) 4 232 scalar COM MYJS_P1 I(4) 4 164 scalar COM MYJS_P2 I(4) 4 168 scalar COM MYJS_P3 I(4) 4 172 scalar COM MYJS_P4 I(4) 4 176 scalar COM MYJS_P5 I(4) 4 180 scalar COM MYPE I(4) 4 0 scalar COM MY_E I(4) 4 336 scalar COM MY_IE_GLB I(4) 4 12 scalar COM MY_IE_LOC I(4) 4 28 scalar COM MY_IS_GLB I(4) 4 8 scalar COM MY_IS_LOC I(4) 4 24 scalar COM MY_JE_GLB I(4) 4 20 scalar COM MY_JE_LOC I(4) 4 36 scalar COM MY_JS_GLB I(4) 4 16 scalar COM MY_JS_LOC I(4) 4 32 scalar COM MY_N I(4) 4 332 scalar COM MY_NE I(4) 4 348 scalar COM MY_NEB I(4) 4 364 1 8 COM MY_NW I(4) 4 360 scalar COM MY_S I(4) 4 340 scalar COM MY_SE I(4) 4 352 scalar COM MY_SW I(4) 4 356 scalar COM MY_W I(4) 4 344 scalar COM NBC I(4) 4 36 scalar COM NBOCO I(4) 4 76 scalar COM NCNVC I(4) 4 92 scalar COM NCP I(4) 4 84 scalar COM NEST I(4) 4 108 scalar COM NFCST I(4) 4 32 scalar COM NHEAT I(4) 4 4 scalar COM NPES I(4) 4 4 scalar COM NPHS I(4) 4 88 scalar COM 322 NPREC I(4) 4 68 scalar COM NRADL I(4) 4 100 scalar COM NRADS I(4) 4 96 scalar COM NSHDE I(4) 4 80 scalar COM NSTART I(4) 4 60 scalar COM Page 20 Source Listing PRECPD 2025-03-12 18:21 Symbol Table PRECPD.F Name Type Bytes Offset Dimen Elements Attributes References NTDDMP I(4) 4 64 scalar COM NTSD I(4) 4 52 scalar COM NTSTM I(4) 4 56 scalar COM PD R(4) 4 0 2 17955 COM 417 PHOUR R(4) 4 0 2 17955 COM PL R(4) 4 48 scalar COM PLQ R(4) 4 72 scalar COM PPTDAT R(4) 4 3303720 3 53865 COM PREC R(4) 4 1149120 2 17955 COM 759 PSHLTR R(4) 4 2154600 2 17955 COM PT R(4) 4 4 scalar COM 487,643 PTBL R(4) 4 1439924 2 10184 COM Q R(4) 4 9767520 3 807975 COM 348,386,782 Q10 R(4) 4 1795500 2 17955 COM Q2 R(4) 4 2226420 3 807975 COM Q30 R(4) 4 1508220 2 17955 COM QS R(4) 4 502740 2 17955 COM QS0 R(4) 4 628 1 134 COM QSHLTR R(4) 4 2082780 2 17955 COM QWBS R(4) 4 861840 2 17955 COM QZ0 R(4) 4 359100 2 17955 COM RADIN R(4) 4 147164 2 17955 COM RADOT R(4) 4 218984 2 17955 COM RDP R(4) 4 64 scalar COM RDPQ R(4) 4 76 scalar COM RDQ R(4) 4 56 scalar COM RDTH R(4) 4 60 scalar COM RDTHE R(4) 4 68 scalar COM RDTHEQ R(4) 4 80 scalar COM RES R(4) 4 13071240 2 17955 COM 417 RESTRT L(4) 4 28 scalar COM RF R(4) 4 718200 2 17955 COM ROI R(4) 4 36 scalar COM ROS R(4) 4 24 scalar COM RUN L(4) 4 4 scalar COM SI R(4) 4 1005480 2 17955 COM SICE R(4) 4 215460 2 17955 COM SIGMA L(4) 4 0 scalar COM SIGT4 R(4) 4 1368104 2 17955 COM SM R(4) 4 143640 2 17955 COM SNO R(4) 4 933660 2 17955 COM SQS R(4) 4 1164 1 134 COM SR R(4) 4 3375900 2 17955 COM 768,770 SST R(4) 4 937184 2 17955 COM STHE R(4) 4 2004 1 76 COM STHEQ R(4) 4 2916 1 152 COM SUBPOST L(4) 4 104 scalar COM T R(4) 4 71820 3 807975 COM 367,384,780 TCUCN R(4) 4 3231924 3 807975 COM TDTD R(4) 4 20 scalar COM TDTQ2 R(4) 4 12 scalar COM TEMP1 R(4) 4 0 2 91719 COM TEMP10 R(4) 4 3301884 2 91719 COM TEMP11 R(4) 4 3668760 2 91719 COM TEMP12 R(4) 4 4035636 2 91719 COM Page 21 Source Listing PRECPD 2025-03-12 18:21 Symbol Table PRECPD.F Name Type Bytes Offset Dimen Elements Attributes References TEMP13 R(4) 4 4402512 2 91719 COM TEMP14 R(4) 4 4769388 2 91719 COM TEMP15 R(4) 4 5136264 2 91719 COM TEMP16 R(4) 4 5503140 2 91719 COM TEMP2 R(4) 4 366876 2 91719 COM TEMP2X R(4) 4 0 2 92971 COM TEMP3 R(4) 4 733752 2 91719 COM TEMP4 R(4) 4 1100628 2 91719 COM TEMP5 R(4) 4 1467504 2 91719 COM TEMP6 R(4) 4 1834380 2 91719 COM TEMP7 R(4) 4 2201256 2 91719 COM TEMP8 R(4) 4 2568132 2 91719 COM TEMP9 R(4) 4 2935008 2 91719 COM TG R(4) 4 793544 2 17955 COM TH10 R(4) 4 1723680 2 17955 COM TH30 R(4) 4 1436400 2 17955 COM THE0 R(4) 4 1700 1 76 COM THE0Q R(4) 4 2308 1 152 COM THEAT R(4) 4 0 scalar COM THL R(4) 4 52 scalar COM THS R(4) 4 430920 2 17955 COM THZ0 R(4) 4 287280 2 17955 COM TLAT R(4) 4 71820 3 807975 COM 394,788 TRAIN R(4) 4 24 3 807975 COM 392,786 TSHLTR R(4) 4 2010960 2 17955 COM TTBL R(4) 4 1480660 2 10184 COM TTBLQ R(4) 4 1521396 2 66880 COM TTVG R(4) 4 371884 2 92971 COM TWBS R(4) 4 790020 2 17955 COM U R(4) 4 3303720 3 807975 COM U00 R(4) 4 3231900 2 17955 COM 420 U10 R(4) 4 1867320 2 17955 COM U30 R(4) 4 1580040 2 17955 COM UL R(4) 4 3303720 1 90 COM 425,455 USTAR R(4) 4 71820 2 17955 COM UZ0 R(4) 4 143640 2 17955 COM V R(4) 4 6535620 3 807975 COM V10 R(4) 4 1939140 2 17955 COM V30 R(4) 4 1651860 2 17955 COM VAPINC R(4) 4 3591012 2 17955 COM VAPINC7 R(4) 4 3662832 2 17955 COM VBM2 R(4) 4 0 2 17955 COM VBM3 R(4) 4 71820 2 17955 COM VTM R(4) 4 3519180 3 807975 COM VZ0 R(4) 4 215460 2 17955 COM Z0 R(4) 4 0 2 17955 COM Page 22 Source Listing PRECPD 2025-03-12 18:21 Subprograms/Common Blocks PRECPD.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References ACMCLH Common 275 6463824 SAVE CLDWTR Common 235 3447720 SAVE CTLBLK Common 166 112 SAVE GLB_TABLE Common 129 128 SAVE LOOPS Common 175 158840 SAVE MAPPINGS Common 148 5024 SAVE MASKS Common 183 6894720 SAVE MPPCOM Common 93 1464 SAVE PHYS Common 197 1788916 SAVE PPTASM Common 282 3878292 SAVE PRECPD Subr 2 PVRBLS Common 244 5530140 SAVE TEMPCOM Common 134 6603768 SAVE TOPO Common 142 17478548 SAVE VRBLS Common 224 13143060 SAVE COMPILER OPTIONS BEING USED -align noall -align nonone -align nocommons -align nodcommons -align noqcommons -align nozcommons -align records -align nosequence -align norec1byte -align norec2byte -align norec4byte -align norec8byte -align norec16byte -align norec32byte -align norec64byte -align noarray8byte -align noarray16byte -align noarray32byte -align noarray64byte -align noarray128byte -align noarray256byte -altparam -assume accuracy_sensitive -assume nobscc -assume nobuffered_io -assume nobuffered_stdout -assume byterecl -assume nocontiguous_assumed_shape -assume nocontiguous_pointer -assume nocc_omp -assume nocstring -assume nodummy_aliases -assume nofpe_summary -assume noieee_fpe_flags -assume nominus0 -assume noold_boz -assume old_complex_align -assume old_unit_star -assume old_inquire_recl -assume old_ldout_format -assume old_ldout_zero -assume noold_logical_assign -assume noold_logical_ldio -assume old_maxminloc -assume old_xor -assume noprotect_allocates -assume protect_constants -assume noprotect_parens -assume split_common -assume source_include -assume nostd_intent_in -assume std_minus0_rounding -assume nostd_mod_proc_name -assume std_value -assume realloc_lhs -assume underscore -assume no2underscores -assume norecursion no -auto -auto_scalar no -bintext -ccdefault default -check noarg_temp_created -check noassume -check nobounds -check nocontiguous Page 23 Source Listing PRECPD 2025-03-12 18:21 PRECPD.F -check noformat -check nooutput_conversion -check nooverflow -check nopointers -check noshape -check nostack -check nouninitialized -check noudio_iostat -coarray-num-procs 0 no -coarray-config-file -convert big_endian -cross_reference -D __INTEL_COMPILER=1910 -D __INTEL_COMPILER_UPDATE=3 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D __amd64 -D __amd64__ -D __INTEL_COMPILER_BUILD_DATE=20200925 -D __INTEL_OFFLOAD -D __MMX__ -D __SSE__ -D __SSE_MATH__ -D __SSE2__ -D __SSE2_MATH__ -D __SSE3__ -D __SSSE3__ -D __SSE4_1__ -D __SSE4_2__ -D __POPCNT__ -D __PCLMUL__ -D __AES__ -D __AVX__ -D __F16C__ -D __AVX_I__ -D __RDRND__ -D __FMA__ -D __FP_FAST_FMA -D __FP_FAST_FMAF -D __BMI__ -D __LZCNT__ -D __AVX2__ -D __haswell -D __haswell__ -D __tune_haswell__ -D __core_avx2 -D __core_avx2__ -D __tune_core_avx2__ -D __CRAY_X86_ROME -D __CRAYXT_COMPUTE_LINUX_TARGET -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 Page 24 Source Listing PRECPD 2025-03-12 18:21 PRECPD.F -g2 -iface nomixed_str_len_arg -iface nono_mixed_str_len_arg -init noarrays -init nohuge -init noinfinity -init nominus_huge -init nominus_infinity -init nominus_tiny -init nonan -init nosnan -init notiny -init nozero no -intconstant -integer_size 32 no -mixed_str_len_arg no -module -names lowercase no -noinclude no -o -offload-build=host -openmp-simd -O2 no -pad_source -real_size 32 no -recursive -reentrancy threaded -vec=simd -show nofullpath -show noinclude -show map -show options no -syntax_only no -threadcom no -U no -vms -w noall -w nonone -w alignments -w nodeclarations -w noexternals -w general -w noignore_bounds -w noignore_loc -w nointerfaces -w noshape -w notruncated_source -w uncalled -w uninitialized -w nounused -w usage no -wrap-margins -includepath : /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/, .f90,./.f90,/opt/cray/pe/mpich/8.1.12/ofi/intel/19.0/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/ipp/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/mkl/include/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/pstl/stdlib/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/tbb/include/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/intel64/.f90,/pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/icc/.f90, /pe/intel/compilers_and_libraries_2020.4.304/linux/compiler/include/.f90,/usr/lib64/gcc/x86_64-suse-linux/7/include/.f90, /usr/lib64/gcc/x86_64-suse-linux/7/include-fixed/.f90,/usr/include/.f90,/usr/include/.f90,/usr/include/.f90 -list filename : PRECPD.lst no -o COMPILER: Intel(R) Fortran 19.1-1655