Page 1 Source Listing RADFS 2014-12-17 20:47 /tmpnwprd/ifortFfjQzV.i 1 # 1 "RADFS.F" 2 SUBROUTINE RADFS 3 C ***************************************************************** 4 C * * 5 C * THE INTERNAL DRIVE FOR GFDL RADIATION * 6 C * THIS SUBROUTINE WAS FROM Y.H AND K.A.C (1993) * 7 C * AND MODIFIED BY Q. ZHAO FOR USE IN THE ETA MODEL * 8 C * NOV. 18, 1993 * 9 C * * 10 C * UPDATE: THIS SUBROUTINE WAS MODIFIED TO USE CLOUD FRACTION * 11 C * ON EACH MODEL LAYER. * 12 C * QINGYUN ZHAO 95-3-22 * 13 C * * 14 C * UPDATE: R1 HAS BEEN ADDED TO THE INPUTS FROM RADTN TO * 15 C * COMPUTE THE VARIATION OF SOLAR CONSTANT AT THE TOP * 16 C * OF ATMOSPHERE WITH JULIAN DAY IN A YEAR. * 17 C * QINGYUN ZHAO 96-7-23 * 18 C ***************************************************************** 19 C*** 20 C*** REQUIRED INPUT: 21 C*** 22 1 (QS,PP,PPI,QQH2O,TT,O3QO3,TSFC,SLMSK,ALBEDO,XLAT 23 2, CAMT,ITYP,KTOP,KBTM,NCLDS,EMCLD,RRCL,TTCL 24 3, COSZRO,TAUDAR,IBEG 25 4, KO3,KALB 26 5, SLMRF,SLYMRF,ITIMSW,ITIMLW 27 C*************************************************************************** 28 C* IX IS THE LENGTH OF A ROW IN THE DOMAIN 29 C 30 C* QS(IX): THE SURFACE PRESSURE (PA) 31 C* PP(IX,L): THE MIDLAYER PRESSURES (PA) (L IS THE VERT. DIMEN.) 32 C* PPI(IX,LP1) THE INTERFACE PRESSURES (PA) 33 C* QQH2O(IX,L): THE MIDLAYER WATER VAPOR MIXING RATIO (KG/KG) 34 C* TT(IX,L): THE MIDLAYER TEMPERATURE (K) 35 C* O3QO3(IX,L): THE MIDLAYER OZONE MIXING RATIO 36 C* TSFC(IX): THE SKIN TEMP. (K); NEGATIVE OVER WATER 37 C* SLMSK(IX): THE SEA MASK (LAND=0,SEA=1) 38 C* ALBEDO(IX): THE SURFACE ALBEDO (EXPRESSED AS A FRACTION) 39 C* XLAT(IX): THE GEODETIC LATITUDES OF EACH COLUMN IN DEGREES 40 C* (N.H.> 0) 41 C* THE FOLLOWING ARE CLOUD INFORMATION FOR EACH CLOUD LAYER 42 C* LAYER=1:SURFACE 43 C* LAYER=2:FIRST LAYER ABOVE GROUND, AND SO ON 44 C* CAMT(IX,LP1): CLOUD FRACTION OF EACH CLOUD LAYER 45 C* ITYP(IX,LP1): CLOUD TYPE(=1: STRATIFORM, =2:CONVECTIVE) 46 C* KTOP(IX,LP1): HEIGHT OF CLOUD TOP OF EACH CLOUD LAYER (IN ETA LEVEL) 47 C* KBTM(IX,LP1): BOTTOM OF EACH CLOUD LAYER 48 C* NCLDS(IX): NUMBER OF CLOUD LAYERS 49 C* EMCLD(IX,LP1): CLOUD EMISSIVITY 50 C* RRCL(IX,NB,LP1) CLOUD REFLECTTANCES FOR SW SPECTRAL BANDS 51 C* TTCL(IX,NB,LP1) CLOUD TRANSMITANCES FOR SW SPECTRAL BANDS 52 C* THE ABOVE ARE CLOUD INFORMATION FOR EACH CLOUD LAYER 53 C* 54 C* COSZRO(IX): THE COSINE OF THE SOLAR ZENITH ANGLE 55 C* TAUDAR: =1.0 56 C* IBEG: =1 57 C* KO3: =1 ( READ IN THE QZONE DATA) Page 2 Source Listing RADFS 2014-12-17 20:47 RADFS.F 58 C* KALB: =0 59 C* SLMRF(LP1): THE INTERFACE'S ETA (LP1=L+1) 60 C* SLYMRF(L): THE MIDLAYER ETA 61 C* ITIMSW: =1/0 (SHORTWAVE CALC. ARE DESIRED/NOT DESIRED) 62 C* ITIMLW: =1/0 (LONGWAVE CALC. ARE DESIRED/NOT DESIRED) 63 C************************************************************************ 64 C*** 65 C*** THE FOLLOWING ARE ADDITIONAL FOR ETA MODEL 66 C*** 67 6, JD,R1,GMT 68 C************************************************************************** 69 C* JD: JULIAN DAY IN A YEAR 70 C* R1: THE NON-DIMENSIONAL SUN-EARTH DISTANCE 71 C* GMT:HOUR 72 C************************************************************************** 73 C*** 74 C*** GENERATED OUTPUT REQUIRED BY THE ETA MODEL 75 C*** 76 7, SWH,HLW 77 8, FLWUP,FSWUP,FSWDN,FSWDNS,FSWUPS,FLWDNS,FLWUPS) 78 C************************************************************************ 79 C* SWH: ATMOSPHERIC SHORTWAVE HEATING RATES IN K/S. 80 C* SWH IS A REAL ARRAY DIMENSIONED (NCOL X LM). 81 C* HLW: ATMOSPHERIC LONGWAVE HEATING RATES IN K/S. 82 C* HLW IS A REAL ARRAY DIMENSIONED (NCOL X LM). 83 C* FLWUP: UPWARD LONGWAVE FLUX AT TOP OF THE ATMOSPHERE IN W/M**2. 84 C* FLWUP IS A REAL ARRAY DIMENSIONED (NCOL). 85 C* FSWUP: UPWARD SHORTWAVE FLUX AT TOP OF THE ATMOSPHERE IN W/M**2. 86 C* FSWUP IS A REAL ARRAY DIMENSIONED (NCOL). 87 C* FSWDN: DOWNWARD SHORTWAVE FLUX AT TOP OF THE ATMOSPHERE IN W/M**2. 88 C* FSWDN IS A REAL ARRAY DIMENSIONED (NCOL). 89 C* FSWDNS: DOWNWARD SHORTWAVE FLUX AT THE SURFACE IN W/M**2. 90 C* FSWDNS IS A REAL ARRAY DIMENSIONED (NCOL). 91 C* FSWUPS: UPWARD SHORTWAVE FLUX AT THE SURFACE IN W/M**2. 92 C* FSWUPS IS A REAL ARRAY DIMENSIONED (NCOL). 93 C* FLWDNS: DOWNWARD LONGWAVE FLUX AT THE SURFACE IN W/M**2. 94 C* FLWDNS IS A REAL ARRAY DIMENSIONED (NCOL). 95 C* FLWUPS: UPWARD LONGWAVE FLUX AT THE SURFACE IN W/M**2. 96 C* FLWUPS IS A REAL ARRAY DIMENSIONED (NCOL). 97 C************************************************************************ 98 C*** 99 C*** THE FOLLOWING OUTPUTS ARE NOT REQUIRED BY THE ETA MODEL 100 C*** 101 C---------------------------------------------------------------------- 102 INCLUDE "parmeta" 125 INCLUDE "mpp.h" 126 # 1 "./sp.h" 1 127 # 4 128 129 # 104 "RADFS.F" 2 130 C---------------------------------------------------------------------- 131 C **************************************************************** 132 C * GENERALIZED FOR PLUG-COMPATIBILITY - * 133 C * ORIGINAL CODE WAS CLEANED-UP GFDL CODE...K.CAMPANA MAR89..* 134 C......* EXAMPLE FOR MRF: * 135 C * KO3 =0 AND O3QO3=DUMMY ARRAY. (GFDL CLIMO O3 USED) * 136 C * KEMIS=0 AND HI CLD EMIS COMPUTED HERE (CEMIS=DUMMY INPUT)* Page 3 Source Listing RADFS 2014-12-17 20:47 RADFS.F 137 C * KALB =0 AND SFC ALBEDO OVER OPEN WATER COMPUTED BELOW... * 138 C * KCCO2=0,CO2 OBTAINED FROM BLOCK DATA * 139 C * =1,CO2 COMPUTED IN HERE --- NOT AVAILABLE YET... * 140 C * SLMRF = INTERFACE (LEVELS) SIGMA * 141 C * SLYMRF= LAYER SIGMA * 142 C * UPDATED FOR YUTAI HOU SIB SW RADIATION....KAC 6 MAR 92 * 143 C * OCEAN ALBEDO FOR BEAM SET TO BULK SFCALB, SINCE * 144 C * COSINE ZENITH ANGLE EFFECTS ALREADY THERE(REF:PAYNE) * 145 C * SLMSK = 0. * 146 C * SNOW ICE ALBEDO FOR BEAM NOT ENHANCED VIA COSINE ZENITH * 147 C * ANGLE EITHER CAUSE VALU ALREADY HIGH (WE SEE POLAR * 148 C * COOLING IF WE DO BEAM CALCULATION)....KAC 17MAR92 * 149 C * ALBEDO GE .5 * 150 C * UPDATED TO OBTAIN CLEAR SKY FLUXES "ON THE FLY" FOR * 151 C * CLOUD FORCING DIAGNOSTICS ELSEWHERE...KAC 7AUG92 * 152 C * SEE ##CLR LINES...RADFS,LWR88,FST88,SPA88 ....... * 153 C * UPDATED FOR USE NEW CLD SCHEME ......YH DEC 92 * 154 C * INPUT CLD MAY BE AS ORIGINAL IN 3 DOMAIN (CLD,MTOP,MBOT) * 155 C * OR IN A VERTICAL ARRAY OF 18 MDL LAYERS (CLDARY) * 156 C * IEMIS=0 USE THE ORG. CLD EMIS SCHEME * 157 C * =1 USE TEMP DEP. CLD EMIS SCHEME * 158 C * UPDATED TO COMPUTE CLD LAYER REFLECTTANCE AND TRANSMITTANCE * 159 C * INPUT CLD EMISSIVITY AND OPTICAL THICKNESS 'EMIS0,TAUC0' * 160 C * ......YH FEB 93 * 161 C **************************************************************** 162 C 221 INCLUDE "HCON.comm" 269 INCLUDE "rdparm" 301 PARAMETER (LNGTH=37*L) 302 INCLUDE "RNDDTA.comm" 413 INCLUDE "CO2DTA.comm" 495 INCLUDE "TABCOM.comm" 496 C 497 C...................................................................... 498 C ********************************************* 499 C====> * INPUT FROM FROM CALLING PROGRAM * 500 C ********************************************* 530 DIMENSION 531 1 QS(IDIM1:IDIM2),PP(IDIM1:IDIM2,L),QQH2O(IDIM1:IDIM2,L) 532 2, TT(IDIM1:IDIM2,L),TSFC(IDIM1:IDIM2),SLMSK(IDIM1:IDIM2) 533 3, ALBEDO(IDIM1:IDIM2),XLAT(IDIM1:IDIM2),ITYP(IDIM1:IDIM2,LP1) 534 4, COSZRO(IDIM1:IDIM2),TAUDAR(IDIM1:IDIM2),PPI(IDIM1:IDIM2,LP1) 535 5, NCLDS(IDIM1:IDIM2),CAMT(IDIM1:IDIM2,LP1) 536 6, KTOP(IDIM1:IDIM2,LP1),KBTM(IDIM1:IDIM2,LP1) 537 7, EMCLD(IDIM1:IDIM2,LP1) 538 8, RRCL(IDIM1:IDIM2,NB,LP1),TTCL(IDIM1:IDIM2,NB,LP1) 539 C 540 DIMENSION SLMRF(LP1),SLYMRF(L) 541 C 542 C ********************************************* 543 C====> * POSSIBLE INPUT FROM CALLING PROGRAM * 544 C ********************************************* 545 DIMENSION 546 1 O3QO3(IDIM1:IDIM2,L) 547 DIMENSION 548 1 ALVBR(IDIM1:IDIM2),ALNBR(IDIM1:IDIM2) 549 2, ALVDR(IDIM1:IDIM2),ALNDR(IDIM1:IDIM2) Page 4 Source Listing RADFS 2014-12-17 20:47 RADFS.F 550 C ********************************************* 551 C====> * OUTPUT TO CALLING PROGRAM * 552 C ********************************************* 553 DIMENSION SWH(IDIM1:IDIM2,L),HLW(IDIM1:IDIM2,L) 554 DIMENSION FSWUP(IDIM1:IDIM2),FSWUPS(IDIM1:IDIM2) 555 1, FSWDN(IDIM1:IDIM2),FSWDNS(IDIM1:IDIM2) 556 2, FLWUP(IDIM1:IDIM2),FLWUPS(IDIM1:IDIM2) 557 3, FLWDNS(IDIM1:IDIM2) 558 C ********************************************* 559 C====> * POSSIBLE OUTPUT TO CALLING PROGRAM * 560 C ********************************************* 561 C...... DOWNWARD SW FLUXES FOR THE SIB PARAMETERIZATION 562 DIMENSION 563 1 GDFVBR(IDIM1:IDIM2),GDFNBR(IDIM1:IDIM2) 564 2, GDFVDR(IDIM1:IDIM2),GDFNDR(IDIM1:IDIM2) 565 C ************************************************************ 566 C====> * ARRAYS NEEDED BY SWR91SIB..FOR CLEAR SKY DATA(EG.FSWL) * 567 C ************************************************************ 568 DIMENSION 569 1 FSWL(IDIM1:IDIM2,LP1),HSWL(IDIM1:IDIM2,LP1) 570 2, UFL(IDIM1:IDIM2,LP1),DFL(IDIM1:IDIM2,LP1) 571 C ****************************************************** 572 C====> * ARRAYS NEEDED BY CLO88, LWR88, SWR89 OR SWR91SIB * 573 C ****************************************************** 574 DIMENSION EQCMT(IDIM1:IDIM2,LP1) 575 DIMENSION CLDFAC(IDIM1:IDIM2,LP1,LP1) 576 DIMENSION PRESS(IDIM1:IDIM2,LP1),TEMP(IDIM1:IDIM2,LP1) 577 1, RH2O(IDIM1:IDIM2,L),QO3(IDIM1:IDIM2,L) 578 DIMENSION HEATRA(IDIM1:IDIM2,L),GRNFLX(IDIM1:IDIM2) 579 1, TOPFLX(IDIM1:IDIM2) 580 DIMENSION FSW(IDIM1:IDIM2,LP1),HSW(IDIM1:IDIM2,LP1) 581 1, GRDFLX(IDIM1:IDIM2) 582 2, UF(IDIM1:IDIM2,LP1),DF(IDIM1:IDIM2,LP1) 583 DIMENSION COSZEN(IDIM1:IDIM2),TAUDA(IDIM1:IDIM2) 584 C..... ADD PRESSURE INTERFACE 585 COMMON /SWRSAV/ ABCFF(NB),PWTS(NB),CFCO2,CFO3,REFLO3,RRAYAV 586 C ********************************************* 587 C====> * VECTOR TEMPORARIES FOR CLOUD CALC. * 588 C ********************************************* 589 DIMENSION 590 1 JJROW(IDIM1:IDIM2),DO3V(IDIM1:IDIM2) 591 2, DO3VP(IDIM1:IDIM2),TTHAN(IDIM1:IDIM2) 592 C====> ************************************************************** 593 C-- SEASONAL CLIMATOLOGIES OF O3 (OBTAINED FROM A PREVIOUSLY RUN 594 C CODE WHICH INTERPOLATES O3 TO USER VERTICAL COORDINATE). 595 C DEFINED AS 5 DEG LAT MEANS N.P.->S.P. 596 COMMON /SAVMEM/ 597 C- ...WINTER.... ...SPRING.... ...SUMMER.... ....FALL..... 598 1 DDUO3N(37,L), DDO3N2(37,L), DDO3N3(37,L), DDO3N4(37,L) 599 DIMENSION RAD1(LNGTH), RAD2(LNGTH), RAD3(LNGTH), RAD4(LNGTH) 600 EQUIVALENCE (RAD1(1),DDUO3N(1,1)),(RAD2(1),DDO3N2(1,1)) 601 EQUIVALENCE (RAD3(1),DDO3N3(1,1)),(RAD4(1),DDO3N4(1,1)) 602 C====> ************************************************************** 603 C 604 COMMON / SSALB / 605 2 ALBD(21,20), ZA(20), TRN(21), 606 3 DZA(19) Page 5 Source Listing RADFS 2014-12-17 20:47 RADFS.F 607 C 608 C *********************************************************** 609 C *********************************************************** 610 C 611 DIMENSION 612 1 ALVB(IDIM1:IDIM2),ALNB(IDIM1:IDIM2) 613 2, ALVD(IDIM1:IDIM2),ALND(IDIM1:IDIM2) 614 3, GDFVB(IDIM1:IDIM2),GDFNB(IDIM1:IDIM2) 615 4, GDFVD(IDIM1:IDIM2),GDFND(IDIM1:IDIM2) 616 DIMENSION SFCALB(IDIM1:IDIM2) 617 DIMENSION XAMT(IDIM1:IDIM2,LP1),MTOPSW(IDIM1:IDIM2,LP1) 618 1, MBTMSW(IDIM1:IDIM2,LP1) 619 COMMON /RDFSAV/ EMISP,EMIST,XLATT,XLATP,Q19001,HP98,H3M6, 620 * HP75,H6M2,HP537,H74E1,H15E1,Q14330,HP2,TWENTY,HNINE, 621 * DEGRAD,HSIGMA,DAYSEC,RCO2, 622 * CAO3SW(5),CAH2SW(5),CBSW(5) 623 COMMON /ASTSAV/ SOLC,RSIN1,RCOS1,RCOS2 624 C====> BEGIN HERE ....................... 625 C 626 C SOLC,THE SOLAR CONSTANT IS SCALED TO A MORE CURRENT VALUE. 627 C I.E. IF SOLC=2.0 LY/MIN THEN SSOLAR=1.96 LY/MIN. 628 C.. RE-COMPUTED CAUSE SSOLAR OVERWRITTEN AS PART OF SCRATCH COMMON 629 C 630 C******ZHAO 631 C NOTE: XLAT IS IN DEGREE HERE 632 C*****ZHAO 633 YEAR=365.25 634 RLAG=14.8125 635 TPI=6.283185308 636 PI=3.1415927 637 SC=2. 638 SOLC=SC/(R1*R1) 639 C***************************** 640 C Special note: The solar constant is reduced extra 3 percent to account 641 C for the lack of aerosols in the shortwave radiation 642 C parameterization. Q. Zhao 96-7-23 643 C**************************** 644 SSOLAR=SOLC*HP98 645 SSOLAR=SSOLAR*0.97 646 DATE=JD+GMT/24.0 647 RANG=TPI*(DATE-RLAG)/YEAR 648 RSIN1=SIN(RANG) 649 RCOS1=COS(RANG) 650 RCOS2=COS(2.0*RANG) 651 DO 40 I=MYIS,MYIE 652 IR = I + IBEG - 1 653 TH2=HP2*XLAT(IR) 654 JJROW(I)=Q19001-TH2 655 TTHAN(I)=(19-JJROW(I))-TH2 656 C..... NOTE THAT THE NMC VARIABLES ARE IN MKS (THUS PRESSURE IS IN 657 C CENTIBARS)WHILE ALL GFDL VARIABLES ARE IN CGS UNITS 658 SFCALB(I) = ALBEDO(IR) 659 C..... NOW PUT SFC TEMP,PRESSURES, ZENITH ANGLE INTO SW COMMON BLOCK... 660 C***ZHAO 661 C NOTE: ALL PRESSURES INPUT FROM THE ETA MODEL ARE IN PA 662 C THE UNIT FOR PRESS IS MICRO BAR 663 C SURFACE TEMPERATURE ARE NEGATIVE OVER OCEANS IN THE ETA MODEL Page 6 Source Listing RADFS 2014-12-17 20:47 RADFS.F 664 C***ZHAO 665 PRESS(I,LP1)=QS(IR)*10.0 666 TEMP(I,LP1)=ABS(TSFC(IR)) 667 c if(mype.eq.13.and.i.eq.40) then 668 c if(mype.eq.13) then 669 c print*,'ir,i,lp1=',ir,i,lp1 670 c print*,'tsfc(ir)=',tsfc(ir) 671 c endif 672 COSZEN(I) = COSZRO(IR) 673 TAUDA(I) = TAUDAR(IR) 674 40 CONTINUE 675 C***ZHAO 676 C..... ALL GFDL VARIABLES HAVE K=1 AT THE TOP OF THE ATMOSPHERE.NMC 677 C ETA MODEL HAS THE SAME STRUCTURE 678 C***ZHAO 679 DO 50 K=1,L 680 DO 50 I=MYIS,MYIE 681 IR = I + IBEG - 1 682 C..... NOW PUT TEMP,PRESSURES, INTO SW COMMON BLOCK.......... 683 TEMP(I,K) = TT(IR,K) 684 PRESS(I,K) = 10.0 * PP(IR,K) 685 C.... STORE LYR MOISTURE AND ADD TO SW COMMON BLOCK 686 RH2O(I,K)=QQH2O(IR,K) 687 IF(RH2O(I,K).LT.H3M6) RH2O(I,K)=H3M6 688 50 CONTINUE 689 C... ************************* 690 IF (KO3.EQ.0) GO TO 65 691 C... ************************* 692 DO 60 K=1,L 693 DO 60 I=MYIS,MYIE 694 QO3(I,K) = O3QO3(I+IBEG-1,K) 695 60 CONTINUE 696 65 CONTINUE 697 C... ************************************ 698 IF (KALB.GT.0) GO TO 110 699 C... ************************************ 700 C..... THE FOLLOWING CODE GETS ALBEDO FROM PAYNE,1972 TABLES IF 701 C 1) OPEN SEA POINT (SLMSK=1);2) KALB=0 702 IQ=INT(TWENTY*HP537+ONE) 703 DO 105 I=MYIS,MYIE 704 IF(COSZEN(I).GT.0.0 .AND. SLMSK(I+IBEG-1).GT.0.5) THEN 705 ZEN=DEGRAD*ACOS(MAX(COSZEN(I),0.0)) 706 IF(ZEN.GE.H74E1) JX=INT(HAF*(HNINETY-ZEN)+ONE) 707 IF(ZEN.LT.H74E1.AND.ZEN.GE.FIFTY) 708 1 JX=INT(QUARTR*(H74E1-ZEN)+HNINE) 709 IF(ZEN.LT.FIFTY) JX=INT(HP1*(FIFTY-ZEN)+H15E1) 710 DZEN=-(ZEN-ZA(JX))/DZA(JX) 711 ALB1=ALBD(IQ,JX)+DZEN*(ALBD(IQ,JX+1)-ALBD(IQ,JX)) 712 ALB2=ALBD(IQ+1,JX)+DZEN*(ALBD(IQ+1,JX+1)-ALBD(IQ+1,JX)) 713 SFCALB(I)=ALB1+TWENTY*(ALB2-ALB1)*(HP537-TRN(IQ)) 714 ENDIF 715 105 CONTINUE 716 110 CONTINUE 717 C ********************************** 718 IF (KO3.GT.0) GO TO 135 719 C ********************************** 720 C.... COMPUTE CLIMATOLOGICAL ZONAL MEAN OZONE, Page 7 Source Listing RADFS 2014-12-17 20:47 RADFS.F 721 C.... SEASONAL AND SPATIAL INTERPOLATION DONE BELOW. 722 DO 130 K=1,L 723 DO 125 I=MYIS,MYIE 724 DO3V(I) = DDUO3N(JJROW(I),K) + RSIN1*DDO3N2(JJROW(I),K) 725 1 +RCOS1*DDO3N3(JJROW(I),K) 726 2 +RCOS2*DDO3N4(JJROW(I),K) 727 DO3VP(I) = DDUO3N(JJROW(I)+1,K) + RSIN1*DDO3N2(JJROW(I)+1,K) 728 1 +RCOS1*DDO3N3(JJROW(I)+1,K) 729 2 +RCOS2*DDO3N4(JJROW(I)+1,K) 730 C... NOW LATITUDINAL INTERPOLATION, AND 731 C CONVERT O3 INTO MASS MIXING RATIO(ORIGINAL DATA MPY BY 1.E4) 732 QO3(I,K) = H1M4 * (DO3V(I)+TTHAN(I)*(DO3VP(I)-DO3V(I))) 733 125 CONTINUE 734 130 CONTINUE 735 135 CONTINUE 736 C............. 737 DO 195 I=MYIS,MYIE 738 C..... VISIBLE AND NEAR IR DIFFUSE ALBEDO 739 ALVD(I) = SFCALB(I) 740 ALND(I) = SFCALB(I) 741 C..... VISIBLE AND NEAR IR DIRECT BEAM ALBEDO 742 ALVB(I) = SFCALB(I) 743 ALNB(I) = SFCALB(I) 744 C..... VISIBLE AND NEAR IR DIRECT BEAM ALBEDO,IF NOT OCEAN NOR SNOW 745 C ..FUNCTION OF COSINE SOLAR ZENITH ANGLE.. 746 IF (SLMSK(I+IBEG-1).LT.0.5) THEN 747 IF (SFCALB(I).LE.0.5) THEN 748 ALBD0 = -18.0 * (0.5 - ACOS(COSZEN(I))/PI) 749 ALBD0 = EXP (ALBD0) 750 ALVD1 = (ALVD(I) - 0.054313) / 0.945687 751 ALND1 = (ALND(I) - 0.054313) / 0.945687 752 ALVB(I) = ALVD1 + (1.0 - ALVD1) * ALBD0 753 ALNB(I) = ALND1 + (1.0 - ALND1) * ALBD0 754 END IF 755 END IF 756 195 CONTINUE 757 C.....SURFACE VALUES OF RRCL AND TTCL 758 DO 200 N=1,2 759 DO 200 I=MYIS,MYIE 760 RRCL(I,N,1)=ALVD(I) 761 TTCL(I,N,1)=ZERO 762 200 CONTINUE 763 DO 220 N=3,NB 764 DO 220 I=MYIS,MYIE 765 RRCL(I,N,1)=ALND(I) 766 TTCL(I,N,1)=ZERO 767 220 CONTINUE 768 C... ************************** 769 C... * END OF CLOUD SECTION * 770 C... ************************** 771 C... THE FOLLOWING CODE CONVERTS RRVCO2,THE VOLUME MIXING RATIO OF CO2 772 C INTO RRCO2,THE MASS MIXING RATIO. 773 RRVCO2=RCO2 774 RRCO2=RRVCO2*RATCO2MW 775 250 IF(ITIMLW .EQ. 0) GO TO 300 776 C 777 C *********************** Page 8 Source Listing RADFS 2014-12-17 20:47 RADFS.F 778 C====> * LONG WAVE RADIATION * 779 C *********************** 780 C 781 C.... ACCOUNT FOR REDUCED EMISSIVITY OF ANY CLDS 782 DO 240 K=1,LP1 783 DO 240 I=MYIS,MYIE 784 EQCMT(I,K)=CAMT(I,K)*EMCLD(I,K) 785 240 CONTINUE 786 C.... GET CLD FACTOR FOR LW CALCULATIONS 787 C.... 788 CALL CLO89(CLDFAC,EQCMT,NCLDS,KBTM,KTOP) 789 C===> LONG WAVE RADIATION 790 CALL LWR88(HEATRA,GRNFLX,TOPFLX, 791 1 PRESS,TEMP,RH2O,QO3,CLDFAC, 792 2 EQCMT,NCLDS,KTOP,KBTM) 793 C.... 794 DO 280 I=MYIS,MYIE 795 IR = I + IBEG - 1 796 FLWUP(IR) = TOPFLX(I) * .001E0 797 GRNFLX(I)=Q14330*(HSIGMA*TEMP(I,LP1)**4-GRNFLX(I)) 798 C.... GET LW FLUX DOWN AND UP AT GROUND(WATTS/M**2) - GRNFLX=LW DOWN. 799 FLWDNS(IR)=GRNFLX(I)/(1.43306E-06*1000.E0) 800 FLWUPS(IR)=HSIGMA*.001E0 * TEMP(I,LP1)**4 801 280 CONTINUE 802 C.... CONVERT HEATING RATES TO DEG/SEC 803 DO 290 K=1,L 804 DO 290 I=MYIS,MYIE 805 c if(mype.eq.13.and.(i+ibeg-1).eq.40.and.j.eq.77) then 806 c if(mype.eq.13) then 807 c print*,'ibeg,i,i+ibeg-1=',ibeg,i,i+ibeg-1 808 c print*,'i,k,heatra(i,k)=',i,k,heatra(i,k) 809 c endif 810 HLW(I+IBEG-1,K)=HEATRA(I,K)*DAYSEC 811 290 CONTINUE 812 300 CONTINUE 813 IF(ITIMSW .EQ. 0) GO TO 350 814 CSW 815 CALL SWR93(FSW,HSW,UF,DF,FSWL,HSWL,UFL,DFL, 816 1 PRESS,COSZEN,TAUDA,RH2O,RRCO2,SSOLAR,QO3, 817 2 NCLDS,KTOP,KBTM,CAMT,RRCL,TTCL, 818 3 ALVB,ALNB,ALVD,ALND,GDFVB,GDFNB,GDFVD,GDFND) 819 CSW 820 C 821 C..... GET SW FLUXES IN WATTS/M**2 822 DO 320 I=MYIS,MYIE 823 IR = I + IBEG - 1 824 FSWUP(IR) = UF(I,1) * 1.E-3 825 FSWDN(IR) = DF(I,1) * 1.E-3 826 FSWUPS(IR) = UF(I,LP1) * 1.E-3 827 CC..COUPLE W/M2 DIFF, IF FSWDNS(IR)=DF(I,LP1)*1.#E-3 828 FSWDNS(IR) = (GDFVB(I)+GDFNB(I)+GDFVD(I)+GDFND(I)) * 1.E-3 829 C... DOWNWARD SFC FLUX FOR THE SIB PARAMETERATION 830 C..... VISIBLE AND NEAR IR DIFFUSE 831 GDFVDR(IR) = GDFVD(I) * 1.E-3 832 GDFNDR(IR) = GDFND(I) * 1.E-3 833 C..... VISIBLE AND NEAR IR DIRECT BEAM 834 GDFVBR(IR) = GDFVB(I) * 1.E-3 Page 9 Source Listing RADFS 2014-12-17 20:47 RADFS.F 835 GDFNBR(IR) = GDFNB(I) * 1.E-3 836 320 CONTINUE 837 C.... CONVERT HEATING RATES TO DEG/SEC 838 DO 330 K=1,L 839 DO 330 I=MYIS,MYIE 840 SWH(I+IBEG-1,K)=HSW(I,K)*DAYSEC 841 330 CONTINUE 842 350 CONTINUE 843 RETURN 844 1000 FORMAT(1H ,' YOU ARE CALLING GFDL RADIATION CODE FOR',I5,' PTS', 845 1 'AND',I4,' LYRS,WITH KDAPRX,KO3,KCZ,KEMIS,KALB = ',5I2) 846 END ENTRY POINTS Name radfs_ SYMBOL CROSS REFERENCE Name Object Declared Type Bytes Dimen Elements Attributes References 1000 Label 462 105 Label 333 321 110 Label 334 316 125 Label 351 341 130 Label 352 340 135 Label 353 336 195 Label 374 355 200 Label 380 376,377 220 Label 385 381,382 240 Label 403 400,401 250 Label 393 280 Label 419 412 290 Label 429 421,422 300 Label 430 393 320 Label 454 440 330 Label 459 456,457 350 Label 460 431 40 Label 292 269 50 Label 306 297,298 60 Label 313 310,311 65 Label 314 308 AB15 Scalar 36 R(4) 4 1 2 COM AB15CM Scalar 108 R(4) 4 1 2 COM AB15WD Scalar 67 R(4) 4 scalar COM ABCFF Scalar 203 R(4) 4 1 12 COM ABS Func 284 scalar 284 ACOMB Scalar 105 R(4) 4 1 15 COM ACOS Func 323 scalar 323,366 ALB1 Local 329 R(4) 4 scalar 329,331 ALB2 Local 330 R(4) 4 scalar 330,331 ALBD Scalar 223 R(4) 4 2 420 COM 329,330 ALBD0 Local 366 R(4) 4 scalar 366,367,370,371 Page 10 Source Listing RADFS 2014-12-17 20:47 Symbol Table RADFS.F Name Object Declared Type Bytes Dimen Elements Attributes References ALBEDO Dummy 21 R(4) 4 1 45 ARG,INOUT 276 ALNB Local 230 R(4) 4 1 45 361,371,436 ALNBR Local 166 R(4) 4 1 45 ALND Local 231 R(4) 4 1 45 358,369,383,436 ALND1 Local 369 R(4) 4 scalar 369,371 ALNDR Local 167 R(4) 4 1 45 ALVB Local 230 R(4) 4 1 45 360,370,436 ALVBR Local 166 R(4) 4 1 45 ALVD Local 231 R(4) 4 1 45 357,368,378,436 ALVD1 Local 368 R(4) 4 scalar 368,370 ALVDR Local 167 R(4) 4 1 45 AMOLWT Scalar 1 R(4) 4 scalar COM AO3CM Scalar 108 R(4) 4 1 3 COM AO3RND Scalar 36 R(4) 4 1 3 COM AP Scalar 34 R(4) 4 1 163 COM APCM Scalar 106 R(4) 4 1 15 COM APWD Scalar 65 R(4) 4 scalar COM ARNDM Scalar 34 R(4) 4 1 163 COM ASTSAV Common 241 16 ATP Scalar 35 R(4) 4 1 163 COM ATPCM Scalar 106 R(4) 4 1 15 COM ATPWD Scalar 65 R(4) 4 scalar COM AWIDE Scalar 64 R(4) 4 scalar COM B0 Scalar 37 R(4) 4 scalar COM B1 Scalar 37 R(4) 4 scalar COM B2 Scalar 37 R(4) 4 scalar COM B3 Scalar 37 R(4) 4 scalar COM BANDHI Scalar 36 R(4) 4 1 163 COM BANDLO Scalar 35 R(4) 4 1 163 COM BANDTA Common 34 5900 BCOMB Scalar 105 R(4) 4 1 15 COM BDCOMB Common 105 736 BDHICM Scalar 107 R(4) 4 1 15 COM BDHIWD Scalar 66 R(4) 4 scalar COM BDLOCM Scalar 107 R(4) 4 1 15 COM BDLOWD Scalar 66 R(4) 4 scalar COM BDWIDE Common 64 56 BETACM Scalar 106 R(4) 4 1 15 COM BETAD Scalar 34 R(4) 4 1 163 COM BETAWD Scalar 64 R(4) 4 scalar COM BETINC Scalar 107 R(4) 4 scalar COM BETINW Scalar 66 R(4) 4 scalar COM BO3CM Scalar 108 R(4) 4 1 3 COM BO3RND Scalar 36 R(4) 4 1 3 COM BP Scalar 35 R(4) 4 1 163 COM BPCM Scalar 106 R(4) 4 1 15 COM BPWD Scalar 65 R(4) 4 scalar COM BRNDM Scalar 34 R(4) 4 1 163 COM BTP Scalar 35 R(4) 4 1 163 COM BTPCM Scalar 107 R(4) 4 1 15 COM BTPWD Scalar 65 R(4) 4 scalar COM BWIDE Scalar 64 R(4) 4 scalar COM C2D31 Scalar 53 R(4) 4 1 46 COM C2D38 Scalar 53 R(4) 4 1 46 COM C2D51 Scalar 35 R(4) 4 2 2116 COM Page 11 Source Listing RADFS 2014-12-17 20:47 Symbol Table RADFS.F Name Object Declared Type Bytes Dimen Elements Attributes References C2D58 Scalar 35 R(4) 4 2 2116 COM C2D71 Scalar 69 R(4) 4 1 46 COM C2D78 Scalar 69 R(4) 4 1 46 COM C2DM51 Scalar 36 R(4) 4 1 45 COM C2DM58 Scalar 36 R(4) 4 1 45 COM CAH2SW Scalar 240 R(4) 4 1 5 COM CAMT Dummy 22 R(4) 4 2 2070 ARG,INOUT 402,435 CAO3SW Scalar 240 R(4) 4 1 5 COM CBSW Scalar 240 R(4) 4 1 5 COM CDT31 Scalar 52 R(4) 4 1 46 COM CDT38 Scalar 53 R(4) 4 1 46 COM CDT51 Scalar 34 R(4) 4 2 2116 COM CDT58 Scalar 35 R(4) 4 2 2116 COM CDT71 Scalar 68 R(4) 4 1 46 COM CDT78 Scalar 69 R(4) 4 1 46 COM CDTM51 Scalar 36 R(4) 4 1 45 COM CDTM58 Scalar 36 R(4) 4 1 45 COM CFCO2 Scalar 203 R(4) 4 scalar COM CFO3 Scalar 203 R(4) 4 scalar COM CLDFAC Local 193 R(4) 4 3 95220 406,409 CLO89 Subr 406 406 CO211 Scalar 79 R(4) 4 1 46 COM CO218 Scalar 79 R(4) 4 1 46 COM CO231 Scalar 52 R(4) 4 1 46 COM CO238 Scalar 52 R(4) 4 1 46 COM CO251 Scalar 34 R(4) 4 2 2116 COM CO258 Scalar 34 R(4) 4 2 2116 COM CO271 Scalar 68 R(4) 4 1 46 COM CO278 Scalar 68 R(4) 4 1 46 COM CO2BD2 Common 52 1104 CO2BD3 Common 34 52248 CO2BD4 Common 68 1104 CO2BD5 Common 79 368 CO2M51 Scalar 35 R(4) 4 1 45 COM CO2M58 Scalar 36 R(4) 4 1 45 COM COS Func 267 scalar 267,268 COSZEN Local 201 R(4) 4 1 45 290,322,323,366,434 COSZRO Dummy 23 R(4) 4 1 45 ARG,INOUT 290 CSUBP Scalar 1 R(4) 4 scalar COM DATE Local 264 R(4) 4 scalar 264,265 DAYSEC Scalar 239 R(4) 4 scalar COM 428,458 DDO3N2 Scalar 216 R(4) 4 2 1665 COM 342,345 DDO3N3 Scalar 216 R(4) 4 2 1665 COM 343,346 DDO3N4 Scalar 216 R(4) 4 2 1665 COM 344,347 DDUO3N Scalar 216 R(4) 4 2 1665 COM 342,345 DEGRAD Scalar 239 R(4) 4 scalar COM 323 DF Local 200 R(4) 4 2 2070 433,443 DFL Local 188 R(4) 4 2 2070 433 DIFFCTR Scalar 1 R(4) 4 scalar COM DO3V Local 208 R(4) 4 1 45 342,350 DO3VP Local 209 R(4) 4 1 45 345,350 DSRCE Scalar 27 R(4) 4 2 420 COM DZA Scalar 224 R(4) 4 1 19 COM 328 DZEN Local 328 R(4) 4 scalar 328,329,330 EIGHT Scalar 7 R(4) 4 scalar COM Page 12 Source Listing RADFS 2014-12-17 20:47 Symbol Table RADFS.F Name Object Declared Type Bytes Dimen Elements Attributes References EM1 Scalar 25 R(4) 4 2 5040 COM EM1WDE Scalar 25 R(4) 4 2 5040 COM EM3 Scalar 26 R(4) 4 2 5040 COM EMCLD Dummy 22 R(4) 4 2 2070 ARG,INOUT 402 EMISP Scalar 237 R(4) 4 scalar COM EMIST Scalar 237 R(4) 4 scalar COM EQCMT Local 192 R(4) 4 2 2070 402,406,410 EXP Func 367 scalar 367 FIFTY Scalar 7 R(4) 4 scalar COM 325,327 FIVE Scalar 7 R(4) 4 scalar COM FLWDNS Dummy 76 R(4) 4 1 45 ARG,INOUT 417 FLWUP Dummy 76 R(4) 4 1 45 ARG,INOUT 414 FLWUPS Dummy 76 R(4) 4 1 45 ARG,INOUT 418 FOUR Scalar 8 R(4) 4 scalar COM FSW Local 198 R(4) 4 2 2070 433 FSWDN Dummy 76 R(4) 4 1 45 ARG,INOUT 443 FSWDNS Dummy 76 R(4) 4 1 45 ARG,INOUT 446 FSWL Local 187 R(4) 4 2 2070 433 FSWUP Dummy 76 R(4) 4 1 45 ARG,INOUT 442 FSWUPS Dummy 76 R(4) 4 1 45 ARG,INOUT 444 G Scalar 1 R(4) 4 scalar COM G2LI Scalar 55 I(4) 4 1 239 COM G2LJ Scalar 55 I(4) 4 1 389 COM GDFNB Local 232 R(4) 4 1 45 436,446,453 GDFNBR Local 181 R(4) 4 1 45 453 GDFND Local 233 R(4) 4 1 45 436,446,450 GDFNDR Local 182 R(4) 4 1 45 450 GDFVB Local 232 R(4) 4 1 45 436,446,452 GDFVBR Local 181 R(4) 4 1 45 452 GDFVD Local 233 R(4) 4 1 45 436,446,449 GDFVDR Local 182 R(4) 4 1 45 449 GINV Scalar 5 R(4) 4 scalar COM GLB_TABLE Common 37 128 GMT Dummy 66 R(4) 4 scalar ARG,INOUT 264 GP0INV Scalar 5 R(4) 4 scalar COM GRAVDR Scalar 1 R(4) 4 scalar COM GRDFLX Local 199 R(4) 4 1 45 GRNFLX Local 196 R(4) 4 1 45 408,415,417 GTEMP Scalar 37 R(4) 4 1 46 COM H101M16 Scalar 40 R(4) 4 scalar COM H102M5 Scalar 39 R(4) 4 scalar COM H1036E2 Scalar 38 R(4) 4 scalar COM H114M11 Scalar 22 R(4) 4 scalar COM H1174M7 Scalar 17 R(4) 4 scalar COM H11M10 Scalar 19 R(4) 4 scalar COM H11M11 Scalar 22 R(4) 4 scalar COM H1224E3 Scalar 11 R(4) 4 scalar COM H1226E1 Scalar 33 R(4) 4 scalar COM H128M5 Scalar 16 R(4) 4 scalar COM H129M2 Scalar 37 R(4) 4 scalar COM H12M12 Scalar 26 R(4) 4 scalar COM H12M13 Scalar 27 R(4) 4 scalar COM H12M31 Scalar 29 R(4) 4 scalar COM H135M13 Scalar 27 R(4) 4 scalar COM H1386E2 Scalar 37 R(4) 4 scalar COM Page 13 Source Listing RADFS 2014-12-17 20:47 Symbol Table RADFS.F Name Object Declared Type Bytes Dimen Elements Attributes References H1439M5 Scalar 16 R(4) 4 scalar COM H14M10 Scalar 18 R(4) 4 scalar COM H14M11 Scalar 22 R(4) 4 scalar COM H14M12 Scalar 26 R(4) 4 scalar COM H14M14 Scalar 27 R(4) 4 scalar COM H14M30 Scalar 29 R(4) 4 scalar COM H15E1 Scalar 238 R(4) 4 scalar COM 327 H15E2 Scalar 12 R(4) 4 scalar COM H15M11 Scalar 22 R(4) 4 scalar COM H15M14 Scalar 27 R(4) 4 scalar COM H15M5 Scalar 41 R(4) 4 scalar COM H161E1 Scalar 40 R(4) 4 scalar COM H165E5 Scalar 10 R(4) 4 scalar COM H16E1 Scalar 40 R(4) 4 scalar COM H16M12 Scalar 26 R(4) 4 scalar COM H181E1 Scalar 12 R(4) 4 scalar COM H18E1 Scalar 12 R(4) 4 scalar COM H18E3 Scalar 41 R(4) 4 scalar COM H18M11 Scalar 22 R(4) 4 scalar COM H1E11 Scalar 9 R(4) 4 scalar COM H1E13 Scalar 9 R(4) 4 scalar COM H1E15 Scalar 9 R(4) 4 scalar COM H1E4 Scalar 10 R(4) 4 scalar COM H1E6 Scalar 32 R(4) 4 scalar COM H1E8 Scalar 9 R(4) 4 scalar COM H1M10 Scalar 19 R(4) 4 scalar COM H1M11 Scalar 23 R(4) 4 scalar COM H1M13 Scalar 27 R(4) 4 scalar COM H1M16 Scalar 43 R(4) 4 scalar COM H1M17 Scalar 28 R(4) 4 scalar COM H1M18 Scalar 28 R(4) 4 scalar COM H1M19 Scalar 28 R(4) 4 scalar COM H1M2 Scalar 32 R(4) 4 scalar COM H1M20 Scalar 28 R(4) 4 scalar COM H1M21 Scalar 28 R(4) 4 scalar COM H1M22 Scalar 28 R(4) 4 scalar COM H1M23 Scalar 28 R(4) 4 scalar COM H1M24 Scalar 29 R(4) 4 scalar COM H1M3 Scalar 15 R(4) 4 scalar COM H1M4 Scalar 15 R(4) 4 scalar COM 350 H1M5 Scalar 16 R(4) 4 scalar COM H1M6 Scalar 17 R(4) 4 scalar COM H1M60 Scalar 30 R(4) 4 scalar COM H1M8 Scalar 18 R(4) 4 scalar COM H1P082 Scalar 37 R(4) 4 scalar COM H1P25892 Scalar 13 R(4) 4 scalar COM H1P4 Scalar 13 R(4) 4 scalar COM H1P41819 Scalar 35 R(4) 4 scalar COM H1P4387 Scalar 13 R(4) 4 scalar COM H1P8 Scalar 13 R(4) 4 scalar COM H2075E3 Scalar 11 R(4) 4 scalar COM H20788E3 Scalar 10 R(4) 4 scalar COM H2118M2 Scalar 38 R(4) 4 scalar COM H21M12 Scalar 25 R(4) 4 scalar COM H21M31 Scalar 29 R(4) 4 scalar COM Page 14 Source Listing RADFS 2014-12-17 20:47 Symbol Table RADFS.F Name Object Declared Type Bytes Dimen Elements Attributes References H235M3 Scalar 36 R(4) 4 scalar COM H23E2 Scalar 12 R(4) 4 scalar COM H23M10 Scalar 18 R(4) 4 scalar COM H23M11 Scalar 21 R(4) 4 scalar COM H24E3 Scalar 10 R(4) 4 scalar COM H24M11 Scalar 21 R(4) 4 scalar COM H24M12 Scalar 25 R(4) 4 scalar COM H25452M6 Scalar 17 R(4) 4 scalar COM H257M8 Scalar 18 R(4) 4 scalar COM H25E2 Scalar 41 R(4) 4 scalar COM H25M31 Scalar 29 R(4) 4 scalar COM H26E2 Scalar 35 R(4) 4 scalar COM H26M30 Scalar 29 R(4) 4 scalar COM H28571M2 Scalar 43 R(4) 4 scalar COM H285M4 Scalar 15 R(4) 4 scalar COM H28E1 Scalar 46 R(4) 4 scalar COM H28M11 Scalar 21 R(4) 4 scalar COM H28M12 Scalar 25 R(4) 4 scalar COM H29316E2 Scalar 33 R(4) 4 scalar COM H2945E2 Scalar 11 R(4) 4 scalar COM H29M12 Scalar 25 R(4) 4 scalar COM H2E2 Scalar 35 R(4) 4 scalar COM H2E6 Scalar 32 R(4) 4 scalar COM H2M11 Scalar 22 R(4) 4 scalar COM H2P5 Scalar 13 R(4) 4 scalar COM H2P8 Scalar 12 R(4) 4 scalar COM H2P9 Scalar 12 R(4) 4 scalar COM H3082E2 Scalar 11 R(4) 4 scalar COM H3116E1 Scalar 33 R(4) 4 scalar COM H323M4 Scalar 38 R(4) 4 scalar COM H327M8 Scalar 18 R(4) 4 scalar COM H32M11 Scalar 21 R(4) 4 scalar COM H35E1 Scalar 12 R(4) 4 scalar COM H35M11 Scalar 21 R(4) 4 scalar COM H36M13 Scalar 26 R(4) 4 scalar COM H37412M5 Scalar 16 R(4) 4 scalar COM H37M11 Scalar 20 R(4) 4 scalar COM H37M12 Scalar 25 R(4) 4 scalar COM H38M12 Scalar 24 R(4) 4 scalar COM H391M7 Scalar 17 R(4) 4 scalar COM H394M5 Scalar 16 R(4) 4 scalar COM H3E2 Scalar 11 R(4) 4 scalar COM H3M11 Scalar 21 R(4) 4 scalar COM H3M12 Scalar 25 R(4) 4 scalar COM H3M14 Scalar 27 R(4) 4 scalar COM H3M3 Scalar 40 R(4) 4 scalar COM H3M4 Scalar 44 R(4) 4 scalar COM H3M6 Scalar 237 R(4) 4 scalar COM 305 H3P5 Scalar 41 R(4) 4 scalar COM H3P6 Scalar 12 R(4) 4 scalar COM H41666M2 Scalar 33 R(4) 4 scalar COM H42M11 Scalar 20 R(4) 4 scalar COM H42M2 Scalar 38 R(4) 4 scalar COM H44194M2 Scalar 35 R(4) 4 scalar COM H44871M2 Scalar 15 R(4) 4 scalar COM Page 15 Source Listing RADFS 2014-12-17 20:47 Symbol Table RADFS.F Name Object Declared Type Bytes Dimen Elements Attributes References H44M11 Scalar 20 R(4) 4 scalar COM H44M12 Scalar 24 R(4) 4 scalar COM H451M6 Scalar 39 R(4) 4 scalar COM H45M12 Scalar 24 R(4) 4 scalar COM H45M32 Scalar 30 R(4) 4 scalar COM H46M13 Scalar 26 R(4) 4 scalar COM H488E4 Scalar 10 R(4) 4 scalar COM H48M11 Scalar 20 R(4) 4 scalar COM H4999M6 Scalar 17 R(4) 4 scalar COM H4E5 Scalar 9 R(4) 4 scalar COM H4M12 Scalar 24 R(4) 4 scalar COM H4M33 Scalar 30 R(4) 4 scalar COM H53M11 Scalar 20 R(4) 4 scalar COM H559M3 Scalar 15 R(4) 4 scalar COM H55M32 Scalar 30 R(4) 4 scalar COM H5725E4 Scalar 10 R(4) 4 scalar COM H5E2 Scalar 11 R(4) 4 scalar COM H625M2 Scalar 34 R(4) 4 scalar COM H62M12 Scalar 24 R(4) 4 scalar COM H62M34 Scalar 30 R(4) 4 scalar COM H658M2 Scalar 38 R(4) 4 scalar COM H65M12 Scalar 23 R(4) 4 scalar COM H67390E2 Scalar 39 R(4) 4 scalar COM H6938M5 Scalar 16 R(4) 4 scalar COM H69766E5 Scalar 36 R(4) 4 scalar COM H6M12 Scalar 24 R(4) 4 scalar COM H6M2 Scalar 238 R(4) 4 scalar COM H6P08108 Scalar 42 R(4) 4 scalar COM H71E26 Scalar 9 R(4) 4 scalar COM H72M11 Scalar 20 R(4) 4 scalar COM H74E1 Scalar 238 R(4) 4 scalar COM 324,325,326 H74M12 Scalar 23 R(4) 4 scalar COM H75826M4 Scalar 37 R(4) 4 scalar COM H77M11 Scalar 19 R(4) 4 scalar COM H77M12 Scalar 23 R(4) 4 scalar COM H7M6 Scalar 17 R(4) 4 scalar COM H8121E1 Scalar 35 R(4) 4 scalar COM H82M11 Scalar 19 R(4) 4 scalar COM H83E26 Scalar 9 R(4) 4 scalar COM H83M11 Scalar 19 R(4) 4 scalar COM H8725M8 Scalar 18 R(4) 4 scalar COM H8M11 Scalar 19 R(4) 4 scalar COM H8M13 Scalar 26 R(4) 4 scalar COM H93M12 Scalar 23 R(4) 4 scalar COM H96M12 Scalar 23 R(4) 4 scalar COM H987M4 Scalar 15 R(4) 4 scalar COM H9M32 Scalar 30 R(4) 4 scalar COM H9P94 Scalar 34 R(4) 4 scalar COM HAF Scalar 8 R(4) 4 scalar COM 324 HCON Common 7 872 HEATRA Local 196 R(4) 4 2 2025 408,428 HLW Dummy 75 R(4) 4 2 2025 ARG,INOUT 428 HM13EZ Scalar 31 R(4) 4 scalar COM HM1597E1 Scalar 41 R(4) 4 scalar COM HM161E1 Scalar 40 R(4) 4 scalar COM Page 16 Source Listing RADFS 2014-12-17 20:47 Symbol Table RADFS.F Name Object Declared Type Bytes Dimen Elements Attributes References HM1797E1 Scalar 34 R(4) 4 scalar COM HM181E1 Scalar 31 R(4) 4 scalar COM HM19EZ Scalar 31 R(4) 4 scalar COM HM1E1 Scalar 31 R(4) 4 scalar COM HM1E2 Scalar 31 R(4) 4 scalar COM HM1EZ Scalar 35 R(4) 4 scalar COM HM2M2 Scalar 33 R(4) 4 scalar COM HM6666M2 Scalar 32 R(4) 4 scalar COM HM8E1 Scalar 45 R(4) 4 scalar COM HMP5 Scalar 33 R(4) 4 scalar COM HMP575 Scalar 31 R(4) 4 scalar COM HMP66667 Scalar 32 R(4) 4 scalar COM HMP805 Scalar 42 R(4) 4 scalar COM HNINE Scalar 238 R(4) 4 scalar COM 326 HNINETY Scalar 7 R(4) 4 scalar COM 324 HP1 Scalar 14 R(4) 4 scalar COM 327 HP118666 Scalar 41 R(4) 4 scalar COM HP144 Scalar 36 R(4) 4 scalar COM HP166666 Scalar 32 R(4) 4 scalar COM HP2 Scalar 238 R(4) 4 scalar COM 271 HP219 Scalar 36 R(4) 4 scalar COM HP228 Scalar 34 R(4) 4 scalar COM HP26 Scalar 36 R(4) 4 scalar COM HP369 Scalar 14 R(4) 4 scalar COM HP3795 Scalar 39 R(4) 4 scalar COM HP5048 Scalar 39 R(4) 4 scalar COM HP518 Scalar 13 R(4) 4 scalar COM HP526315 Scalar 42 R(4) 4 scalar COM HP537 Scalar 238 R(4) 4 scalar COM 320,331 HP6 Scalar 34 R(4) 4 scalar COM HP602409 Scalar 42 R(4) 4 scalar COM HP60241 Scalar 34 R(4) 4 scalar COM HP75 Scalar 238 R(4) 4 scalar COM HP8 Scalar 13 R(4) 4 scalar COM HP805 Scalar 37 R(4) 4 scalar COM HP816 Scalar 36 R(4) 4 scalar COM HP98 Scalar 237 R(4) 4 scalar COM 262 HSIGMA Scalar 239 R(4) 4 scalar COM 415,418 HSW Local 198 R(4) 4 2 2070 433,458 HSWL Local 187 R(4) 4 2 2070 433 HTMG Scalar 52 R(4) 4 3 4183695 COM HUNDRED Scalar 7 R(4) 4 scalar COM I Local 269 I(4) 4 scalar 269,270,272,273,276,283,284,290,29 1,298,299,301,302,304,305,311,312, 321,322,323,331,341,342,343,344,34 5,346,347,350,355,357,358,360,361, 364,365,366,368,369,370,371,377,37 8,379,382,383,384,401,402,412,413, 414,415,417,418,422,428,440,441,44 2,443,444,446,449,450,452,453,457, 458 IBAND Scalar 105 I(4) 4 1 40 COM IBEG Dummy 23 I(4) 4 scalar ARG,INOUT 270,299,312,322,364,413,428,441,45 8 IBROW Scalar 22 I(4) 4 scalar COM Page 17 Source Listing RADFS 2014-12-17 20:47 Symbol Table RADFS.F Name Object Declared Type Bytes Dimen Elements Attributes References ICHUNKTAB Scalar 29 I(4) 4 1 8 COM IDIM1 Param 19 I(4) 4 scalar 149,150,151,152,153,154,155,156,16 4,166,167,171,172,173,174,175,181, 182,187,188,192,193,194,195,196,19 7,198,199,200,201,208,209,230,231, 232,233,234,235,236 IDIM2 Param 19 I(4) 4 scalar 149,150,151,152,153,154,155,156,16 4,166,167,171,172,173,174,175,181, 182,187,188,192,193,194,195,196,19 7,198,199,200,201,208,209,230,231, 232,233,234,235,236 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 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 15,16,19,43,44,45,46,47,51,52,57 IMAX Param 15 I(4) 4 scalar 23,28 IND Scalar 23 I(4) 4 1 237 COM INDX2 Scalar 23 I(4) 4 1 2116 COM INLTE Param 27 I(4) 4 scalar 27 INLTEP Param 27 I(4) 4 scalar INPES Param 11 I(4) 4 scalar 16,19,27,28,29,38,39 INT Func 320 scalar 320,324,326,327 INUMQ Scalar 34 I(4) 4 1 100 COM IQ Local 320 I(4) 4 scalar 320,329,330,331 IQUILT_GROUP Scalar 33 I(4) 4 scalar COM IR Local 270 I(4) 4 scalar 270,271,276,283,284,290,291,299,30 1,302,304,413,414,417,418,441,442, 443,444,446,449,450,452,453 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 ITEMP Scalar 47 I(4) 4 2 91719 COM ITEMP2 Scalar 47 I(4) 4 2 91719 COM ITIMLW Dummy 25 I(4) 4 scalar ARG,INOUT 393 ITIMSW Dummy 25 I(4) 4 scalar ARG,INOUT 431 ITROW Scalar 22 I(4) 4 scalar COM ITYP Dummy 22 I(4) 4 2 2070 ARG,INOUT 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 Page 18 Source Listing RADFS 2014-12-17 20:47 Symbol Table RADFS.F Name Object Declared Type Bytes Dimen Elements Attributes References JD Dummy 66 I(4) 4 scalar ARG,INOUT 264 JDIM1 Param 20 I(4) 4 scalar JDIM2 Param 20 I(4) 4 scalar 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 JJROW Local 208 I(4) 4 1 45 272,273,342,343,344,345,346,347 JM Param 3 I(4) 4 scalar 17,20,43,44,45,46,47,51,52,57 JNPES Param 11 I(4) 4 scalar 17,20,27,28,29,38,39 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 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 JX Local 324 I(4) 4 scalar 324,326,327,328,329,330 K Local 297 I(4) 4 scalar 297,301,302,304,305,310,312,340,34 2,343,344,345,346,347,350,400,402, 421,428,456,458 KALB Dummy 24 I(4) 4 scalar ARG,INOUT 316 KBTM Dummy 22 I(4) 4 2 2070 ARG,INOUT 406,410,435 KMAXV Scalar 23 I(4) 4 1 46 COM KMAXVM Scalar 24 I(4) 4 scalar COM KO2 Param 30 I(4) 4 scalar 31 KO21 Param 31 I(4) 4 scalar KO2M Param 31 I(4) 4 scalar KO3 Dummy 24 I(4) 4 scalar ARG,INOUT 308,336 KTOP Dummy 22 I(4) 4 2 2070 ARG,INOUT 406,410,435 L Param 14 I(4) 4 scalar 18,19,20,23,25,35,36,139,149,150,1 58,164,171,195,196,216,297,310,340 ,421,456 L2GI Scalar 57 I(4) 4 1 239 COM L2GJ Scalar 57 I(4) 4 1 389 COM LL Param 20 I(4) 4 scalar 20,21 LL3P Param 25 I(4) 4 scalar 28 LL3PI Param 28 I(4) 4 scalar LLM1 Param 21 I(4) 4 scalar LLM2 Param 21 I(4) 4 scalar LLM3 Param 21 I(4) 4 scalar LLP1 Param 20 I(4) 4 scalar 28 LLP1I Param 28 I(4) 4 scalar LLP2 Param 20 I(4) 4 scalar LLP3 Param 20 I(4) 4 scalar LM Param 3 I(4) 4 scalar 14,52 LM1 Param 19 I(4) 4 scalar LM2 Param 19 I(4) 4 scalar LM3 Param 19 I(4) 4 scalar LNGTH Param 139 I(4) 4 scalar 217 LP1 Param 18 I(4) 4 scalar 22,23,24,28,34,35,37,52,53,68,69,7 9,151,152,153,154,155,156,158,187, 188,192,193,194,198,200,235,236,28 3,284,400,415,418,444 Page 19 Source Listing RADFS 2014-12-17 20:47 Symbol Table RADFS.F Name Object Declared Type Bytes Dimen Elements Attributes References LP121 Param 24 I(4) 4 scalar LP1I Param 28 I(4) 4 scalar LP1M Param 22 I(4) 4 scalar 22 LP1M1 Param 22 I(4) 4 scalar LP1V Param 23 I(4) 4 scalar 23 LP2 Param 18 I(4) 4 scalar LP3 Param 18 I(4) 4 scalar LSM Param 3 I(4) 4 scalar LWR88 Subr 408 408 MAPPINGS Common 56 5024 MAX Func 323 scalar 323 MBTMSW Local 236 I(4) 4 2 2070 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 MTOPSW Local 235 I(4) 4 2 2070 MYIE Scalar 4 I(4) 4 scalar COM 269,298,311,321,341,355,377,382,40 1,412,422,440,457 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 269,298,311,321,341,355,377,382,40 1,412,422,440,457 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 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 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 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 Page 20 Source Listing RADFS 2014-12-17 20:47 Symbol Table RADFS.F Name Object Declared Type Bytes Dimen Elements Attributes References 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 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 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 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 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 Page 21 Source Listing RADFS 2014-12-17 20:47 Symbol Table RADFS.F Name Object Declared Type Bytes Dimen Elements Attributes References N Local 376 I(4) 4 scalar 376,378,379,381,383,384 NB Param 26 I(4) 4 scalar 29,156,203,381 NB1 Param 29 I(4) 4 scalar NBLM Param 17 I(4) 4 scalar NBLW Param 16 I(4) 4 scalar 34,35,36 NBLX Param 16 I(4) 4 scalar NBLY Param 16 I(4) 4 scalar 17,24,26,27,105,106,107 NCLDS Dummy 22 I(4) 4 1 45 ARG,INOUT 406,410,435 NNLTE Param 27 I(4) 4 scalar NPES Scalar 2 I(4) 4 scalar COM O3DIFCTR Scalar 1 R(4) 4 scalar COM O3QO3 Dummy 21 R(4) 4 2 2025 ARG,INOUT 312 ONE Scalar 8 R(4) 4 scalar COM 320,324 P0 Scalar 1 R(4) 4 scalar COM P0INV Scalar 5 R(4) 4 scalar COM P0X2 Scalar 2 R(4) 4 scalar COM P0XZP2 Scalar 2 R(4) 4 scalar COM P0XZP8 Scalar 2 R(4) 4 scalar COM PHYCON Common 1 80 PI Local 254 R(4) 4 scalar 254,366 PP Dummy 21 R(4) 4 2 2025 ARG,INOUT 302 PPI Dummy 21 R(4) 4 2 2070 ARG,INOUT PRESS Local 194 R(4) 4 2 2070 283,302,409,434 PWTS Scalar 203 R(4) 4 1 12 COM Q14330 Scalar 238 R(4) 4 scalar COM 415 Q19001 Scalar 237 R(4) 4 scalar COM 272 QO3 Local 195 R(4) 4 2 2025 312,350,409,434 QQH2O Dummy 21 R(4) 4 2 2025 ARG,INOUT 304 QS Dummy 21 R(4) 4 1 45 ARG,INOUT 283 QUARTR Scalar 8 R(4) 4 scalar COM 326 R1 Dummy 66 R(4) 4 scalar ARG,INOUT 256 RAD1 Scalar 217 R(4) 4 1 1665 COM RAD2 Scalar 217 R(4) 4 1 1665 COM RAD3 Scalar 217 R(4) 4 1 1665 COM RAD4 Scalar 217 R(4) 4 1 1665 COM RADCON Scalar 2 R(4) 4 scalar COM RADCON1 Scalar 4 R(4) 4 scalar COM RADFS Subr 1 RANG Local 265 R(4) 4 scalar 265,266,267,268 RATCO2MW Scalar 3 R(4) 4 scalar COM 392 RATH2OMW Scalar 3 R(4) 4 scalar COM RCO2 Scalar 239 R(4) 4 scalar COM 391 RCOS1 Scalar 241 R(4) 4 scalar COM 267,343,346 RCOS2 Scalar 241 R(4) 4 scalar COM 268,344,347 RDFSAV Common 237 140 REFLO3 Scalar 203 R(4) 4 scalar COM RGAS Scalar 2 R(4) 4 scalar COM RGASSP Scalar 2 R(4) 4 scalar COM RH2O Local 195 R(4) 4 2 2025 304,305,409,434 RLAG Local 252 R(4) 4 scalar 252,265 RRAYAV Scalar 203 R(4) 4 scalar COM RRCL Dummy 22 R(4) 4 3 24840 ARG,INOUT 378,383,435 RRCO2 Local 392 R(4) 4 scalar 392,434 RRVCO2 Local 391 R(4) 4 scalar 391,392 RSIN1 Scalar 241 R(4) 4 scalar COM 266,342,345 Page 22 Source Listing RADFS 2014-12-17 20:47 Symbol Table RADFS.F Name Object Declared Type Bytes Dimen Elements Attributes References SAVMEM Common 214 26640 SC Local 255 R(4) 4 scalar 255,256 SECPDA Scalar 2 R(4) 4 scalar COM SFCALB Local 234 R(4) 4 1 45 276,331,357,358,360,361,365 SIN Func 266 scalar 266 SIXTY Scalar 7 R(4) 4 scalar COM SKC1R Scalar 67 R(4) 4 scalar COM SKO2D Scalar 67 R(4) 4 scalar COM SKO3R Scalar 67 R(4) 4 scalar COM SLMRF Dummy 25 R(4) 4 1 46 ARG,INOUT SLMSK Dummy 21 R(4) 4 1 45 ARG,INOUT 322,364 SLYMRF Dummy 25 R(4) 4 1 45 ARG,INOUT SOLC Scalar 241 R(4) 4 scalar COM 256,262 SOURCE Scalar 26 R(4) 4 2 420 COM SSALB Common 222 1920 SSOLAR Local 262 R(4) 4 scalar 262,263,434 STEMP Scalar 37 R(4) 4 1 46 COM SWH Dummy 75 R(4) 4 2 2025 ARG,INOUT 458 SWR93 Subr 433 433 SWRSAV Common 203 112 TABCOM Common 23 133920 TABLE1 Scalar 25 R(4) 4 2 5040 COM TABLE2 Scalar 26 R(4) 4 2 5040 COM TABLE3 Scalar 26 R(4) 4 2 5040 COM TAUDA Local 201 R(4) 4 1 45 291,434 TAUDAR Dummy 23 R(4) 4 1 45 ARG,INOUT 291 TEMP Local 194 R(4) 4 2 2070 284,301,409,415,418 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 TEN Scalar 7 R(4) 4 scalar COM TH2 Local 271 R(4) 4 scalar 271,272,273 THREE Scalar 8 R(4) 4 scalar COM TOPFLX Local 197 R(4) 4 1 45 408,414 TOPO Common 50 17478548 TPI Local 253 R(4) 4 scalar 253,265 TRN Scalar 223 R(4) 4 1 21 COM 331 TSFC Dummy 21 R(4) 4 1 45 ARG,INOUT 284 TT Dummy 21 R(4) 4 2 2025 ARG,INOUT 301 TTCL Dummy 22 R(4) 4 3 24840 ARG,INOUT 379,384,435 Page 23 Source Listing RADFS 2014-12-17 20:47 Symbol Table RADFS.F Name Object Declared Type Bytes Dimen Elements Attributes References TTHAN Local 209 R(4) 4 1 45 273,350 TTVG Scalar 51 R(4) 4 2 92971 COM TWENTY Scalar 238 R(4) 4 scalar COM 320,331 TWO Scalar 8 R(4) 4 scalar COM UF Local 200 R(4) 4 2 2070 433,442,444 UFL Local 188 R(4) 4 2 2070 433 XAMT Local 235 R(4) 4 2 2070 XLAT Dummy 21 R(4) 4 1 45 ARG,INOUT 271 XLATP Scalar 237 R(4) 4 scalar COM XLATT Scalar 237 R(4) 4 scalar COM YEAR Local 251 R(4) 4 scalar 251,265 ZA Scalar 223 R(4) 4 1 20 COM 328 ZEN Local 323 R(4) 4 scalar 323,324,325,326,327,328 ZERO Scalar 8 R(4) 4 scalar COM 379,384 Page 24 Source Listing RADFS 2014-12-17 20:47 Subprograms/Common Blocks RADFS.F SUBPROGRAMS/COMMON BLOCKS Name Object Declared Type Bytes Dimen Elements Attributes References ASTSAV Common 241 16 BANDTA Common 34 5900 BDCOMB Common 105 736 BDWIDE Common 64 56 CO2BD2 Common 52 1104 CO2BD3 Common 34 52248 CO2BD4 Common 68 1104 CO2BD5 Common 79 368 GLB_TABLE Common 37 128 HCON Common 7 872 MAPPINGS Common 56 5024 MPPCOM Common 1 1464 PHYCON Common 1 80 RADFS Subr 1 RDFSAV Common 237 140 SAVMEM Common 214 26640 SSALB Common 222 1920 SWRSAV Common 203 112 TABCOM Common 23 133920 TEMPCOM Common 42 6603768 TOPO Common 50 17478548 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 Page 25 Source Listing RADFS 2014-12-17 20:47 RADFS.F -cross_reference -D __INTEL_COMPILER=1210 -D __unix__ -D __unix -D __linux__ -D __linux -D __gnu_linux__ -D unix -D linux -D __ELF__ -D __x86_64 -D __x86_64__ -D _MT -D __INTEL_COMPILER_BUILD_DATE=20120612 -D __i686 -D __i686__ -D __pentiumpro -D __pentiumpro__ -D __pentium4 -D __pentium4__ -D __tune_pentium4__ -D __SSE2__ -D __SSE__ -D __MMX__ -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 Page 26 Source Listing RADFS 2014-12-17 20:47 RADFS.F -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/, /usr/local/include/,/usr/lib/gcc/x86_64-redhat-linux/4.4.7/include/,/usr/include/,/usr/include/ -list filename : RADFS.lst -o filename : none COMPILER: Intel(R) Fortran 12.1-2100