Symbol Description Uses
RAMPFC 5



File Line number Procedure Code
./pkg/fizhi/fizhi_lsm.F 1358 RCANOP
      _RL ETCRIT,RAMPFC
./pkg/fizhi/fizhi_lsm.F 1389 RCANOP
      RAMPFC=ETURB(CHNO)/ETCRIT
./pkg/fizhi/fizhi_lsm.F 1390 RCANOP
      IF ( RAMPFC .GE. 0. ) RC(CHNO) = RC(CHNO)*(1.-RAMPFC)
./pkg/fizhi/fizhi_lsm.F 1391 RCANOP
      IF ( RAMPFC .GT. 1. ) RC(ChNo) = 0.