**++ Symbol table for subprogram SBEMIT in file sbemit.for produced by SPAG 6.70Rc-40 at 15:33:38 on 10 Dec 2012 0 X sbemit.for,0000008,0000169 1 D U +../inc/erosion/e2erod.inc 2 D U +../inc/erosion/m2geo.inc 3 D +../inc/file.inc 4 D +../inc/m1flag.inc 5 D U +../inc/m1sim.inc 6 D U +../inc/p1werm.inc 7 C / 2/ U 35 /DATETIME/DT,MSTRING 8 3 C / 1/ 120 /DECFILES/LUODEC 9 1 C / 4/S U 4032064 /E2EROD/EGT,EGTCS,EGTSS,EGT10 10 4 C /28/S 112 /M1FLAG/AM0IFL,AM0EIF,AM0CGF,AM0CIF,AM0DIF,AM0HFL,AM0GDF,AM0TIL,AM0DEFOLIATEFL,AM0KILFL,AM0CROPUPFL,AM0SFL,AM0TFL,AM0CFL,AM0DFL, AM0EFL,AM0OIF,AM0SIF,INIT_LOOP,CALIB_LOOP,REPORT_LOOP,CALIB_DONE,MAX_CALIB_CYCLES,CALIB_CYCLE,N_ROT_CYCLES, WIND_GEN_FMT_FLAG,CLI_GEN_FMT_FLAG,WIND_MAX_FLAG 11 5 C / 6/S U 24 /M1SIM/AM0JD,NTSTEP,EROD_INTERVAL,AMALAT,AMALON,AMZELE 12 2 C / 6/S U 24 /M2GEO/IMAX,JMAX,IX,JY,XGDPT,YGDPT 13 R MU E AEGT 14 R MU E AEGT10 15 R SMU E AEGT10P 16 R SMU E AEGTP 17 R MU E AEGTSS 18 R SMU E AEGTSSP 31 11 1 I C U E AM0JD 42 s ( 3) CALDATW (I4V,I4V,I4V) 47 I S?U E DA 48 7 1 I ( 1)C U E 8 DT(8) 49 9 1 R ( 2)C U E 252004 EGT(0:mngdpt,0:mngdpt) 50 9 4 R ( 2)C U E 252004 EGT10(0:mngdpt,0:mngdpt) 52 9 3 R ( 2)C U E 252004 EGTSS(0:mngdpt,0:mngdpt) 53 R MU E EMIT10 54 R MU E EMITSS 55 R MU E EMITTOT 57 141 3 R A U E HHR 58 I MU E I 59 12 1 I C U E IMAX 60 I SMU E INITFLG 63 I MU E J 64 12 2 I C U E JMAX 122 6 PI U E 501 MNGDPT=501 133 I S?U E MO 134 7 2 C*3 C U E MSTRING*3 135 11 2 I C U E NTSTEP 138 141 1 I A U E OUNIT 139 I SMU E PREV_EROSION_JDAY 141 S ( 3) U 44 SBEMIT(OUNIT,WS,HHR) 142 R SMU E TIMS 143 R MU E TT 146 141 2 R A U E WS 149 I S?U E YR **-- END OF SYMBOL TABLE **+-!*--SBEMIT25 ./Restructure/Output/sbemit.spg