Symbol Description Uses
WTOTAL 10


File Line number Procedure Code
./pkg/fizhi/fizhi_lsm.F 1431 WUPDAT 
     &     WTOTAL,WLAY1,WLAY2,ELAY1,ELAY2,EGROI
./pkg/fizhi/fizhi_lsm.F 1441 WUPDAT 
      WTOTAL = WLAY1 + WLAY2
./pkg/fizhi/fizhi_lsm.F 1454 WUPDAT 
      IF(EGROI .GT. CAPAC(CHNO)+WTOTAL) THEN
./pkg/fizhi/fizhi_lsm.F 1455 WUPDAT 
        ESNO(CHNO)=ESNO(CHNO)+EGROI-(CAPAC(CHNO)+WTOTAL)
./pkg/fizhi/fizhi_lsm.F 1456 WUPDAT 
        EGROI=CAPAC(CHNO)+WTOTAL
./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 1481 WUPDAT 
      IF( WTOTAL .GT. 0. ) THEN
./pkg/fizhi/fizhi_lsm.F 1482 WUPDAT 
          FWS = EVEG(CHNO) / WTOTAL