Symbol Description Uses
EGRO 13


File Line number Procedure Code
./pkg/fizhi/fizhi_lsm.F 1430 WUPDAT 
      _RL  DTSTEP, EGRO, FWS, THRU, DEWRUN,
./pkg/fizhi/fizhi_lsm.F 1445 WUPDAT 
      EGRO = EVAP(CHNO)*DTSTEP - ESNO(CHNO) - EINT(CHNO)
./pkg/fizhi/fizhi_lsm.F 1453 WUPDAT 
      EGROI=EGRO+EINT(CHNO)
./pkg/fizhi/fizhi_lsm.F 1459 WUPDAT 
      EINT(CHNO)=EGROI-EGRO
./pkg/fizhi/fizhi_lsm.F 1461 WUPDAT 
        EGRO=EGRO+EINT(CHNO)-CAPAC(CHNO)
./pkg/fizhi/fizhi_lsm.F 1464 WUPDAT 
      IF(EGRO .GT. WTOTAL) THEN
./pkg/fizhi/fizhi_lsm.F 1465 WUPDAT 
        EINT(CHNO)=EINT(CHNO)+EGRO-WTOTAL
./pkg/fizhi/fizhi_lsm.F 1466 WUPDAT 
        EGRO=WTOTAL
./pkg/fizhi/fizhi_lsm.F 1472 WUPDAT 
          ESOI(CHNO)=EGRO*RX1(CHNO)/(RX1(CHNO)+RX2(CHNO))
./pkg/fizhi/fizhi_lsm.F 1473 WUPDAT 
          EVEG(CHNO)=EGRO - ESOI(CHNO)
./pkg/fizhi/fizhi_lsm.F 1475 WUPDAT 
          ESOI(CHNO)=EGRO/2.
./pkg/fizhi/fizhi_lsm.F 1476 WUPDAT 
          EVEG(CHNO)=EGRO/2.