IBM XL Fortran Enterprise Edition V10.1 for AIX (5724-M13) Version 10.01.0000.0002 --- /gpfs/m/nco/ops/nwprod/sorc/sref_eta_etapost.fd/GENBIL.f 10/02/06 10:01:25 >>>>> OPTIONS SECTION <<<<< *** Options In Effect *** == On / Off Options == CR NODBG ESCAPE FULLPATH I4 INLGLUE NOLIBESSL NOLIBPOSIX OBJECT SOURCE STDFRAMEWORK STRICT SWAPOMP THREADED UNWIND NOZEROSIZE == Options Of Integer Type == FIXED(72) MAXMEM(-1) OPTIMIZE(2) SPILLSIZE(2000) STACKTEMP(0) == Options Of Character Type == 64(LARGETYPE) ALIAS(STD,INTPTR) ALIGN(BINDC(POWER),STRUCT(NATURAL)) ARCH(PWR5X) ATTR(FULL) AUTODBL(NONE) DIRECTIVE(IBM*,IBMT) ENUM() FLAG(I,I) FLOAT(RNDSNGL,MAF,FOLD,RNGCHK) HALT(S) IEEE(NEAR) INTSIZE(4) LANGLVL(EXTENDED) POSITION(APPENDOLD) REALSIZE(4) SAVE(ALL) TUNE(PWR5) UNROLL(AUTO) XREF(FULL) XLF77(NOLEADZERO,GEDIT77,NOBLANKPAD,OLDBOZ,INTARG,INTXOR,PERSISTENT,SOFTEOF) XLF90(NOSIGNEDZERO,NOAUTODEALLOC) >>>>> SOURCE SECTION <<<<< 1 | SUBROUTINE GENBIL(EGFUL,IMOT,JMOT) 2 |C 3 |C$$$ SUBPROGRAM DOCUMENTATION BLOCK 4 |C . . . 5 |C SUBPROGRAM: GENBIL COMPUTE BILINEAR INTRP WEIGHTS 6 |C PRGRMMR: TREADON ORG: W/NP2 DATE: 92-12-23 7 |C 8 |C ABSTRACT: 9 |C THIS ROUTINE IS BASED ON CODE SUBROUTINE INTERP FOUND 10 |C IN DAVID PLUMMER'S ETAPACKC. GIVEN THE E-GRID AND 11 |C OUTPUT GRID BILINEAR INTERPOLATION WEIGHTS ARE COMPUTED 12 |C AND SAVED COMMON BLOCK LLGRDS ARRAYS. THE PASSED FILLED 13 |C E-GRID ARRAY, EGFUL CAN CONTAIN ANY FIELD. IT IS USED 14 |C TO DETERMINE THE EXTENT KNOW DATA VALUES IN THE E-GRID. 15 |C THOSE GRID POINTS ON THE E-GRID WHICH EQUAL OR EXCEED 16 |C THE SPECIAL VALUE, SPVC, ARE TREATED DIFFERENTLY IN THE 17 |C INTERPOLATION. FOR MOST APPLICATIONS THIS CHECK IS NOT 18 |C NECESSARY. 19 |C . 20 |C 21 |C PROGRAM HISTORY LOG: 22 |C ??-??-?? DAVID PLUMMER - SUBROUTINE INTERP IN ETAPACKC 23 |C 92-12-23 RUSS TREADON - EXTRACTED CODE FROM INTERP AND 24 |C GENERALIZED TO HANDLE VARIOUS 25 |C INPUT AND OUTPUT GRIDS 26 |C 27 |C USAGE: CALL GENBIL(EGFUL,IMOT,JMOT) 28 |C INPUT ARGUMENT LIST: 29 |C EGFUL - FILLED E-GRID DEFINING EXTENT OF E-GRID. 30 |C IMOT - FIRST DIMENSION OF OUTPUT GRID. 31 |C JMOT - SECOND DIMENSION OF OUTPUT GRID. 32 |C OUTPUT ARGUMENT LIST: 33 |C 34 |C OUTPUT FILES: 35 |C STDOUT - RUN TIME STANDARD OUT. 36 |C 37 |C SUBPROGRAMS CALLED: 38 |C UTILITIES: 39 |C NONE 40 |C LIBRARY: 41 |C COMMON - LLGRDS 42 |C IOUNIT 43 |C 44 |C ATTRIBUTES: 45 |C LANGUAGE: FORTRAN 46 |C MACHINE : CRAY C-90 47 |C$$$ 48 |C 49 |C 50 |C INCLUDE DECLARED GRID DIMENSIONS. 51 | INCLUDE "parmeta" 1 1 |C------------------------------------------------------------- 1 2 |C*** SET PRIMARY GRID DIMENSIONS AND PRESSURE OUTPUT LEVELS 1 3 | PARAMETER (IM=237,JM=387,LM=60,LSM=39) 1 4 |C------------------------------------------------------------- 1 5 |C*** SET THE NUMBER OF PEs IN THE I-DIRECTION AND J-DIRECTION 1 6 | PARAMETER(INPES=02,JNPES=02) 1 7 |C------------------------------------------------------------- 1 8 |C 1 9 | PARAMETER(IGSTL=-5,IGSTR=5) 1 10 | PARAMETER(JGSTL=-5,JGSTR=5) 1 11 | PARAMETER(ITAIL=IM-(INPES*(IM/INPES))) 1 12 | PARAMETER(JTAIL=JM-(JNPES*(JM/JNPES))) 1 13 |C 1 14 | PARAMETER(IDIM1=IGSTL,IDIM2=IM/INPES+IGSTR+1) 1 15 | PARAMETER(JDIM1=JGSTL,JDIM2=JM/JNPES+JGSTR+1) 1 16 |C 1 17 |C------------------------------------------------------------- 52 | INCLUDE "parmout" 2 1 |C MAXIMUM DIMENSIONS FOR OUTPUT GRID, FIELDS, AND LEVELS. 2 2 |C 2 3 | PARAMETER(IMX=IM,JMX=JM,MXFLD=250,MXLVL=LM) 53 | PARAMETER (IMJM=IM*JM-JM/2,IMT=2*IM-1,JMT=JM) 54 |C 55 |C DECLARE VARIABLES. 56 | LOGICAL LM0N0,LM1N0,LM0N1,LM1N1 57 | INTEGER IMOT,JMOT 58 | REAL EGFUL(IMT,JMT) 59 |C 60 |C INCLUDE COMMON. 61 | INCLUDE "LLGRDS.comm" 3 1 |C 3 2 | COMMON /LLGRDS/ 3 3 | & GDLAT(IMX,JMX),GDLON(IMX,JMX) 3 4 | &,GDTLAT(IMX,JMX),GDTLON(IMX,JMX) 3 5 | &,HTLAT(IM,JM),HTLON(IM,JM) 3 6 | &,IEGRDK(IM,JM),JEGRDK(IM,JM) 3 7 | &,VTLAT(IM,JM),VTLON(IM,JM),FVTLON(IMT,JMT) 3 8 | &,EVLAT(IMT,JMT),EVLON(IMT,JMT) 3 9 | &,EGRDI(IMX,JMX),EGRDJ(IMX,JMX) 3 10 | &,IEGRD(IMX,JMX),JEGRD(IMX,JMX) 3 11 | &,IWGT(IMX,JMX),WIJ(IMX,JMX),WIPJ(IMX,JMX) 3 12 | &,WIJP(IMX,JMX),WIPJP(IMX,JMX) 62 | INCLUDE "IOUNIT.comm" 4 1 |C 4 2 | INTEGER STDOUT 4 3 |C 4 4 | COMMON /IOUNIT/ 4 5 | & STDOUT, LCNTRL, LUNCO, LUNLL, LUNOUT 4 6 |C 63 |C 64 |C SET TOLERANCE LIMITS. 65 |C 66 | DATA SPVC,SMALL /1.E20,1.E-4/ 67 |C 68 |C****************************************************************** 69 |C START GENBIL HERE. 70 |C 71 |C COMPUTE INTERPOLATION WEIGHTS. 72 |C 73 | WRITE(STDOUT,*)'GENBIL: GENERATE BILIN WEIGHTS' 74 | MAXI = IMT 75 | MAXJ = JMT 76 | DO 90 J = 1,JMOT 77 | DO 90 I = 1,IMOT 78 | XX = EGRDI(I,J) 79 | YY = EGRDJ(I,J) 80 | M = XX 81 | N = YY 82 | IEGRD(I,J) = M 83 | JEGRD(I,J) = N 84 |C 85 | IF ( ( M.LE.0 ).OR.( N.LE.0 ) ) THEN 86 | WIJ(I,J) = 0. 87 | WIPJ(I,J) = 0. 88 | WIJP(I,J) = 0. 89 | WIPJP(I,J) = 0. 90 | IWGT(I,J) = 0 91 | GOTO 75 92 | ENDIF 93 |C 94 | IF ( (XX.GT.MAXI).OR.(YY.GT.MAXJ) ) THEN 95 | WIJ(I,J) = 0. 96 | WIPJ(I,J) = 0. 97 | WIJP(I,J) = 0. 98 | WIPJP(I,J) = 0. 99 | IWGT(I,J) = 0 100 | GOTO 75 101 | ENDIF 102 |C 103 | DX = (XX - M) 104 | DY = (YY - N) 105 | DX1 = 1.0 - DX 106 | DY1 = 1.0 - DY 107 | IF ( (ABS(DX ).LT.SMALL).AND.(ABS(DY ).LT.SMALL) ) THEN 108 | W00 = 1. 109 | W10 = 0. 110 | W01 = 0. 111 | W11 = 0. 112 | WIJ(I,J) = W00 113 | WIPJ(I,J) = W10 114 | WIJP(I,J) = W01 115 | WIPJP(I,J) = W11 116 | IWGT(I,J) = 1 117 | GOTO 75 118 |CX DAT = EGFUL(M,N) 119 | ELSEIF ( (ABS(DX ).LT.SMALL).AND. 120 | X (ABS(DY1).LT.SMALL) ) THEN 121 | W00 = 0. 122 | W10 = 0. 123 | W01 = 1. 124 | W11 = 0. 125 | WIJ(I,J) = W00 126 | WIPJ(I,J) = W10 127 | WIJP(I,J) = W01 128 | WIPJP(I,J) = W11 129 | IWGT(I,J) = 1 130 | GOTO 75 131 |CX DAT = EGFUL(M,N+1) 132 | ELSEIF ( (ABS(DX1).LT.SMALL).AND. 133 | X (ABS(DY ).LT.SMALL) ) THEN 134 | W00 = 0. 135 | W10 = 1. 136 | W01 = 0. 137 | W11 = 0. 138 | WIJ(I,J) = W00 139 | WIPJ(I,J) = W10 140 | WIJP(I,J) = W01 141 | WIPJP(I,J) = W11 142 | IWGT(I,J) = 1 143 | GOTO 75 144 |CX DAT = EGFUL(M+1,N) 145 | ELSEIF ( (ABS(DX1).LT.SMALL).AND. 146 | X (ABS(DY1).LT.SMALL) ) THEN 147 | W00 = 0. 148 | W10 = 0. 149 | W01 = 0. 150 | W11 = 1. 151 | WIJ(I,J) = W00 152 | WIPJ(I,J) = W10 153 | WIJP(I,J) = W01 154 | WIPJP(I,J) = W11 155 | IWGT(I,J) = 1 156 | GOTO 75 157 |CX DAT = EGFUL(M+1,N+1) 158 | END IF 159 |C 160 |C DONE WITH SPECIAL CASES. NOW FOR GENERAL CASES. 161 |C 162 | LM0N0 = (EGFUL(M ,N ).GE.SPVC) 163 | LM1N0 = (EGFUL(M+1,N ).GE.SPVC) 164 | LM0N1 = (EGFUL(M ,N+1).GE.SPVC) 165 | LM1N1 = (EGFUL(M+1,N+1).GE.SPVC) 166 | IF ( (.NOT.LM0N0).AND.(.NOT.LM1N0).AND. 167 | X (.NOT.LM0N1).AND.(.NOT.LM1N1) ) THEN 168 | W00 = (1.-DY)*(1.-DX) 169 | W10 = (1.-DY)*DX 170 | W01 = DY*(1.-DX) 171 | W11 = DY*DX 172 | WIJ(I,J) = W00 173 | WIPJ(I,J) = W10 174 | WIJP(I,J) = W01 175 | WIPJP(I,J) = W11 176 | IWGT(I,J) = 1 177 |CX DAT = (1.0-DY)*((1.0-DX)*EGFUL(M,N) + 178 |CX DX*EGFUL(M+1,N)) + 179 |CX DY*((1.0-DX)*EGFUL(M,N+1) + 180 |CX DX*EGFUL(M+1,N+1)) 181 | GOTO 75 182 | ELSEIF (LM0N0.AND.LM1N0.AND.LM0N1.AND.LM1N1) THEN 183 | WIJ(I,J) = 0. 184 | WIPJ(I,J) = 0. 185 | WIJP(I,J) = 0. 186 | WIPJP(I,J) = 0. 187 | IWGT(I,J) = 0 188 | GOTO 75 189 |CX DAT = SPVAL 190 | ELSE 191 | IM0N0 = 1 192 | IF (LM0N0) IM0N0 = 0 193 | IM1N0 = 1 194 | IF (LM1N0) IM1N0 = 0 195 | IM0N1 = 1 196 | IF (LM0N1) IM0N1 = 0 197 | IM1N1 = 1 198 | IF (LM1N1) IM1N1 = 0 199 | RXX = ((SQRT(2.0)/4.0)*(IM0N0+IM1N0+IM0N1+IM1N1))**2 200 | R00 = ( DX * DX) + ( DY * DY) 201 | R10 = ((1.0-DX)*(1.0-DX)) + ( DY * DY) 202 | R01 = ( DX * DX) + ((1.0-DY)*(1.0-DY)) 203 | R11 = ((1.0-DX)*(1.0-DX)) + ((1.0-DY)*(1.0-DY)) 204 | W00 = IM0N0 * MAX(0.0,(RXX - R00)) / (RXX + R00) 205 | W10 = IM1N0 * MAX(0.0,(RXX - R10)) / (RXX + R10) 206 | W01 = IM0N1 * MAX(0.0,(RXX - R01)) / (RXX + R01) 207 | W11 = IM1N1 * MAX(0.0,(RXX - R11)) / (RXX + R11) 208 | WSUM = W00 + W01 + W10 + W11 209 | IF (WSUM .NE. 0.0) THEN 210 | WIJ(I,J) = W00/WSUM 211 | WIPJ(I,J) = W10/WSUM 212 | WIJP(I,J) = W01/WSUM 213 | WIPJP(I,J) = W11/WSUM 214 | IWGT(I,J) = 1 215 | GOTO 75 216 |CX DAT = (W00*EGFUL(M,N)+W10*EGFUL(M+1,N) + 217 |CX W01*EGFUL(M,N+1)+W11*EGFUL(M+1,N+1)) / WSUM 218 | ELSE 219 | WIJ(I,J) = 0. 220 | WIPJ(I,J) = 0. 221 | WIJP(I,J) = 0. 222 | WIPJP(I,J) = 0. 223 | IWGT(I,J) = 0 224 | GOTO 75 225 |CX DAT = SPVAL 226 | END IF 227 | END IF 228 | WRITE(STDOUT,*)'GENWGT: SHOULD NOT REACH THIS LINE' 229 | 75 CONTINUE 230 | 90 CONTINUE 231 |C 232 |C END OF ROUTINE. 233 |C 234 | RETURN 235 | END >>>>> ATTRIBUTE AND CROSS REFERENCE SECTION <<<<< IDENTIFIER NAME CROSS REFERENCE AND ATTRIBUTES abs Pure Intrinsic 0-107.19 0-107.43 0-119.23 0-120.22 0-132.23 0-133.22 0-145.23 0-146.22 dx Static, Real(4), Offset: 0, Alignment: full word 0-103.13@ 0-105.25 0-107.23 0-119.27 0-168.34 0-169.30 0-170.29 0-171.25 0-200.28 0-200.37 0-201.28 0-201.37 0-202.28 0-202.37 0-203.28 0-203.37 dx1 Static, Real(4), Offset: 0, Alignment: full word 0-105.13@ 0-132.27 0-145.27 dy Static, Real(4), Offset: 0, Alignment: full word 0-104.13@ 0-106.25 0-107.47 0-133.26 0-168.26 0-169.26 0-170.22 0-171.22 0-200.50 0-200.59 0-201.50 0-201.59 0-202.50 0-202.59 0-203.50 0-203.59 dy1 Static, Real(4), Offset: 0, Alignment: full word 0-106.13@ 0-120.26 0-146.26 egful Reference argument, Real(4) (1:473, 1:387), Offset: 0, Alignment: full word 0-58.12$ 0-1.25 0-162.22 0-163.22 0-164.22 0-165.22 egrdi Common member, Real(4) (1:237, 1:387), Offset: 5865372, Alignment: full word 3-9.8$ 0-78.18 egrdj Common member, Real(4) (1:237, 1:387), Offset: 6232248, Alignment: double word 3-9.23$ 0-79.18 evlat Common member, Real(4) (1:473, 1:387), Offset: 4400964, Alignment: full word 3-8.8$ evlon Common member, Real(4) (1:473, 1:387), Offset: 5133168, Alignment: quadruple word 3-8.23$ fvtlon Common member, Real(4) (1:473, 1:387), Offset: 3668760, Alignment: double word 3-7.34$ gdlat Common member, Real(4) (1:237, 1:387), Offset: 0, Alignment: quadruple word 3-3.8$ gdlon Common member, Real(4) (1:237, 1:387), Offset: 366876, Alignment: full word 3-3.23$ gdtlat Common member, Real(4) (1:237, 1:387), Offset: 733752, Alignment: double word 3-4.8$ gdtlon Common member, Real(4) (1:237, 1:387), Offset: 1100628, Alignment: full word 3-4.24$ genbil Subroutine 0-1.18$ htlat Common member, Real(4) (1:237, 1:387), Offset: 1467504, Alignment: quadruple word 3-5.8$ htlon Common member, Real(4) (1:237, 1:387), Offset: 1834380, Alignment: full word 3-5.21$ i Static, Integer(4), Offset: 0, Alignment: full word 0-77.16@ 0-78.24 0-79.24 0-82.19 0-83.19 0-86.20 0-87.21 0-88.21 0-89.22 0-90.21 0-95.20 0-96.21 0-97.21 0-98.22 0-99.21 0-112.20 0-113.21 0-114.21 0-115.22 0-116.21 0-125.20 0-126.21 0-127.21 0-128.22 0-129.21 0-138.20 0-139.21 0-140.21 0-141.22 0-142.21 0-151.20 0-152.21 0-153.21 0-154.22 0-155.21 0-172.20 0-173.21 0-174.21 0-175.22 0-176.21 0-183.20 0-184.21 0-185.21 0-186.22 0-187.21 0-210.23 0-211.24 0-212.24 0-213.25 0-214.24 0-219.23 0-220.24 0-221.24 0-222.25 0-223.24 idim1 Parameter, Integer(4) 1-14.17$ idim2 Parameter, Integer(4) 1-14.29$ iegrd Common member, Integer(4) (1:237, 1:387), Offset: 6599124, Alignment: full word 3-10.8$ 0-82.13@ iegrdk Common member, Integer(4) (1:237, 1:387), Offset: 2201256, Alignment: double word 3-6.8$ igstl Parameter, Integer(4) 1-9.17$ 1-14.23 igstr Parameter, Integer(4) 1-9.26$ 1-14.44 im Parameter, Integer(4) 1-3.18$ 0-53.23 0-53.40 1-11.23 1-11.34 1-14.35 2-3.21 3-5.14 3-5.27 3-6.15 3-6.29 3-7.14 3-7.27 im0n0 Static, Integer(4), Offset: 0, Alignment: full word 0-191.16@ 0-192.28@ 0-199.40 0-204.22 im0n1 Static, Integer(4), Offset: 0, Alignment: full word 0-195.16@ 0-196.28@ 0-199.52 0-206.22 im1n0 Static, Integer(4), Offset: 0, Alignment: full word 0-193.16@ 0-194.28@ 0-199.46 0-205.22 im1n1 Static, Integer(4), Offset: 0, Alignment: full word 0-197.16@ 0-198.28@ 0-199.58 0-207.22 imjm Parameter, Integer(4) 0-53.18$ imot Reference argument, Integer(4), Offset: 0, Alignment: full word 0-57.15$ 0-1.31 0-77.22 imt Parameter, Integer(4) 0-53.34$ 0-58.18 0-74.14 3-7.41 3-8.14 3-8.29 imx Parameter, Integer(4) 2-3.17$ 3-3.14 3-3.29 3-4.15 3-4.31 3-9.14 3-9.29 3-10.14 3-10.29 3-11.13 3-11.26 3-11.40 3-12.13 3-12.28 inpes Parameter, Integer(4) 1-6.17$ 1-11.27 1-11.37 1-14.38 iounit Common Block, Alignment: double word 4-4.15$ itail Parameter, Integer(4) 1-11.17$ iwgt Common member, Integer(4) (1:237, 1:387), Offset: 7332876, Alignment: full word 3-11.8$ 0-90.16@ 0-99.16@ 0-116.16@ 0-129.16@ 0-142.16@ 0-155.16@ 0-176.16@ 0-187.16@ 0-214.19@ 0-223.19@ j Static, Integer(4), Offset: 0, Alignment: full word 0-76.13@ 0-78.26 0-79.26 0-82.21 0-83.21 0-86.22 0-87.23 0-88.23 0-89.24 0-90.23 0-95.22 0-96.23 0-97.23 0-98.24 0-99.23 0-112.22 0-113.23 0-114.23 0-115.24 0-116.23 0-125.22 0-126.23 0-127.23 0-128.24 0-129.23 0-138.22 0-139.23 0-140.23 0-141.24 0-142.23 0-151.22 0-152.23 0-153.23 0-154.24 0-155.23 0-172.22 0-173.23 0-174.23 0-175.24 0-176.23 0-183.22 0-184.23 0-185.23 0-186.24 0-187.23 0-210.25 0-211.26 0-212.26 0-213.27 0-214.26 0-219.25 0-220.26 0-221.26 0-222.27 0-223.26 jdim1 Parameter, Integer(4) 1-15.17$ jdim2 Parameter, Integer(4) 1-15.29$ jegrd Common member, Integer(4) (1:237, 1:387), Offset: 6966000, Alignment: quadruple word 3-10.23$ 0-83.13@ jegrdk Common member, Integer(4) (1:237, 1:387), Offset: 2568132, Alignment: full word 3-6.22$ jgstl Parameter, Integer(4) 1-10.17$ 1-15.23 jgstr Parameter, Integer(4) 1-10.26$ 1-15.44 jm Parameter, Integer(4) 1-3.25$ 0-53.26 0-53.29 0-53.49 1-12.23 1-12.34 1-15.35 2-3.28 3-5.17 3-5.30 3-6.18 3-6.32 3-7.17 3-7.30 jmot Reference argument, Integer(4), Offset: 0, Alignment: full word 0-57.20$ 0-1.36 0-76.19 jmt Parameter, Integer(4) 0-53.45$ 0-58.22 0-75.14 3-7.45 3-8.18 3-8.33 jmx Parameter, Integer(4) 2-3.24$ 3-3.18 3-3.33 3-4.19 3-4.35 3-9.18 3-9.33 3-10.18 3-10.33 3-11.17 3-11.30 3-11.44 3-12.17 3-12.32 jnpes Parameter, Integer(4) 1-6.26$ 1-12.27 1-12.37 1-15.38 jtail Parameter, Integer(4) 1-12.17$ lcntrl Common member, Integer(4), Offset: 4, Alignment: full word 4-5.16$ llgrds Common Block, Alignment: double word 3-2.15$ lm Parameter, Integer(4) 1-3.32$ 2-3.47 lm0n0 Static, Logical(4), Offset: 0, Alignment: full word 0-56.15$ 0-162.13@ 0-166.24 0-182.21 0-192.20 lm0n1 Static, Logical(4), Offset: 0, Alignment: full word 0-56.27$ 0-164.13@ 0-167.24 0-182.41 0-196.20 lm1n0 Static, Logical(4), Offset: 0, Alignment: full word 0-56.21$ 0-163.13@ 0-166.41 0-182.31 0-194.20 lm1n1 Static, Logical(4), Offset: 0, Alignment: full word 0-56.33$ 0-165.13@ 0-167.41 0-182.51 0-198.20 lsm Parameter, Integer(4) 1-3.38$ lunco Common member, Integer(4), Offset: 8, Alignment: double word 4-5.24$ lunll Common member, Integer(4), Offset: 12, Alignment: full word 4-5.31$ lunout Common member, Integer(4), Offset: 16, Alignment: quadruple word 4-5.38$ m Static, Integer(4), Offset: 0, Alignment: full word 0-80.13@ 0-82.26 0-85.20 0-103.25 0-162.28 0-163.28 0-164.28 0-165.28 max Pure Intrinsic 0-204.30 0-205.30 0-206.30 0-207.30 maxi Static, Integer(4), Offset: 0, Alignment: full word 0-74.7@ 0-94.25 maxj Static, Integer(4), Offset: 0, Alignment: full word 0-75.7@ 0-94.41 mxfld Parameter, Integer(4) 2-3.31$ mxlvl Parameter, Integer(4) 2-3.41$ n Static, Integer(4), Offset: 0, Alignment: full word 0-81.13@ 0-83.26 0-85.36 0-104.25 0-162.32 0-163.32 0-164.32 0-165.32 r00 Static, Real(4), Offset: 0, Alignment: full word 0-200.16@ 0-204.45 0-204.60 r01 Static, Real(4), Offset: 0, Alignment: full word 0-202.16@ 0-206.45 0-206.60 r10 Static, Real(4), Offset: 0, Alignment: full word 0-201.16@ 0-205.45 0-205.60 r11 Static, Real(4), Offset: 0, Alignment: full word 0-203.16@ 0-207.45 0-207.60 rxx Static, Real(4), Offset: 0, Alignment: full word 0-199.16@ 0-204.39 0-204.54 0-205.39 0-205.54 0-206.39 0-206.54 0-207.39 0-207.54 small Static, Real(4), Offset: 0, Alignment: full word 0-66.17* 0-107.31 0-107.55 0-119.35 0-120.34 0-132.35 0-133.34 0-145.35 0-146.34 spvc Static, Real(4), Offset: 0, Alignment: full word 0-66.12* 0-162.40 0-163.40 0-164.40 0-165.40 sqrt Pure Intrinsic 0-199.24 stdout Common member, Integer(4), Offset: 0, Alignment: quadruple word 4-2.15$ 4-5.8$ 0-73.13 0-228.19 vtlat Common member, Real(4) (1:237, 1:387), Offset: 2935008, Alignment: quadruple word 3-7.8$ vtlon Common member, Real(4) (1:237, 1:387), Offset: 3301884, Alignment: full word 3-7.21$ w00 Static, Real(4), Offset: 0, Alignment: full word 0-108.16@ 0-112.29 0-121.16@ 0-125.29 0-134.16@ 0-138.29 0-147.16@ 0-151.29 0-168.16@ 0-172.29 0-204.16@ 0-208.23 0-210.32 w01 Static, Real(4), Offset: 0, Alignment: full word 0-110.16@ 0-114.29 0-123.16@ 0-127.29 0-136.16@ 0-140.29 0-149.16@ 0-153.29 0-170.16@ 0-174.29 0-206.16@ 0-208.29 0-212.32 w10 Static, Real(4), Offset: 0, Alignment: full word 0-109.16@ 0-113.29 0-122.16@ 0-126.29 0-135.16@ 0-139.29 0-148.16@ 0-152.29 0-169.16@ 0-173.29 0-205.16@ 0-208.35 0-211.32 w11 Static, Real(4), Offset: 0, Alignment: full word 0-111.16@ 0-115.29 0-124.16@ 0-128.29 0-137.16@ 0-141.29 0-150.16@ 0-154.29 0-171.16@ 0-175.29 0-207.16@ 0-208.41 0-213.32 wij Common member, Real(4) (1:237, 1:387), Offset: 7699752, Alignment: double word 3-11.22$ 0-86.16@ 0-95.16@ 0-112.16@ 0-125.16@ 0-138.16@ 0-151.16@ 0-172.16@ 0-183.16@ 0-210.19@ 0-219.19@ wijp Common member, Real(4) (1:237, 1:387), Offset: 8433504, Alignment: quadruple word 3-12.8$ 0-88.16@ 0-97.16@ 0-114.16@ 0-127.16@ 0-140.16@ 0-153.16@ 0-174.16@ 0-185.16@ 0-212.19@ 0-221.19@ wipj Common member, Real(4) (1:237, 1:387), Offset: 8066628, Alignment: full word 3-11.35$ 0-87.16@ 0-96.16@ 0-113.16@ 0-126.16@ 0-139.16@ 0-152.16@ 0-173.16@ 0-184.16@ 0-211.19@ 0-220.19@ wipjp Common member, Real(4) (1:237, 1:387), Offset: 8800380, Alignment: full word 3-12.22$ 0-89.16@ 0-98.16@ 0-115.16@ 0-128.16@ 0-141.16@ 0-154.16@ 0-175.16@ 0-186.16@ 0-213.19@ 0-222.19@ wsum Static, Real(4), Offset: 0, Alignment: full word 0-208.16@ 0-209.20 0-210.36 0-211.36 0-212.36 0-213.36 xx Static, Real(4), Offset: 0, Alignment: full word 0-78.13@ 0-80.17 0-94.19 0-103.20 yy Static, Real(4), Offset: 0, Alignment: full word 0-79.13@ 0-81.17 0-94.35 0-104.20 ** genbil === End of Compilation 1 === >>>>> FILE TABLE SECTION <<<<< FILE CREATION FROM FILE NO FILENAME DATE TIME FILE LINE 0 GENBIL.f 12/13/05 09:58:05 1 /gpfs/m/nco/ops/nwprod/sorc/sref_eta_etapost.fd/parmeta 12/13/05 09:58:06 0 51 2 /gpfs/m/nco/ops/nwprod/sorc/sref_eta_etapost.fd/parmout 12/13/05 09:58:06 0 52 3 /gpfs/m/nco/ops/nwprod/sorc/sref_eta_etapost.fd/LLGRDS.comm 12/13/05 09:58:05 0 61 4 /gpfs/m/nco/ops/nwprod/sorc/sref_eta_etapost.fd/IOUNIT.comm 12/13/05 09:58:05 0 62 >>>>> COMPILATION EPILOGUE SECTION <<<<< FORTRAN Summary of Diagnosed Conditions TOTAL UNRECOVERABLE SEVERE ERROR WARNING INFORMATIONAL (U) (S) (E) (W) (I) 0 0 0 0 0 0 Source records read....................................... 273 1501-510 Compilation successful for file GENBIL.f. 1501-543 Object file created.