**++ Symbol table for subprogram SBDIRINI in file sbdirini.for produced by SPAG 6.70Rc-40 at 15:33:38 on 10 Dec 2012 0 X sbdirini.for,0000009,0000130 1 D MU +../inc/erosion/e3grid.inc 2 D U +../inc/erosion/m2geo.inc 3 D +../inc/erosion/s2sgeo.inc 4 D U +../inc/m1geo.inc 5 D +../inc/m1subr.inc 6 D U +../inc/p1werm.inc 7 D +../inc/s1sgeo.inc 8 D +../inc/w1wind.inc 9 1 C /11/SMU 44 /E3GRID/KBR,I1,I2,I3,I4,I5,I6,AWA,SIN_AWA,COS_AWA,TAN_AWA 10 4 C /12/S U 54160 /M1GEO/NACCTR,NBR,SIM_AREA,AMASIM,AMPBR,AMXAR,AMXBR,AMXBRW,AMXSIM,AMXSR,AMZBR,AMZBT 11 5 C /12/S 1464 /M1SUBR/NSUBR,AM0CSR,AMNRYR,AMNROTCYCLE,AMRSLP,SFCOV,WATEREROSION,SOILROCKFRAGMENTS,AM0SID,AM0TAX,AM0LOCALPHASE,SOILLOSSTOL 12 2 C / 6/S U 24 /M2GEO/IMAX,JMAX,IX,JY,XGDPT,YGDPT 13 7 C /11/S 176 /S1SGEO/ASZRGH,ASZRHO,ASXRGW,ASXRGS,ASARGO,ASXDKS,ASXDKH,AS0RRK,ASLRRC,ASLRR,ASLRRO 14 3 C / 3/S 2016048 /S2SGEO/SZRGH,SXPRG,SLRR 15 8 C / 9/S 11624 /W1WIND/AWADIR,AWHRMX,AWRMXN,AWUDMX,AWUDMN,AWUDAV,AWU,AWDIR,AWWISN 20 10 4 R C U E AMASIM 43 9 8 R CMU E AWA 54 I? ( 1) U I COS 55 9 10 R CM E COS_AWA 57 9 2 I CM E I1 58 9 3 I CM E I2 59 9 4 I CM E I3 60 9 5 I CM E I4 61 9 6 I CM E I5 62 9 7 I CM E I6 64 12 1 I C U E IMAX 67 12 2 I C U E JMAX 69 9 1 I CM E KBR 70 I M E KE 72 6 PI U E 4 MNAR=4 73 6 PI U E 2 MNARPT=2 75 6 PI U E 2 MNBPT=2 76 6 PI U E 500 MNBR=500 80 6 PI U E 501 MNGDPT=501 86 6 PI U E 2 MNSPT=2 87 6 PI U E 2 MNSRPT=2 88 6 PI U E 4 MNSUB=4 90 6 PI U E 1440 MNTIME=1440 95 PR U E PID180=3.14159/180. 96 97 2 R AMU E PREV_DIR 97 S ( 2) MU 59 SBDIRINI(WIND_DIR,PREV_DIR) 104 I? ( 1) U I SIN 105 9 9 R CM E SIN_AWA 111 I? ( 1) U I TAN 112 9 11 R CM E TAN_AWA 114 97 1 R A U E WIND_DIR **-- END OF SYMBOL TABLE **+-!*--SBDIRINI25 ./Restructure/Output/sbdirini.spg