Symbol Description Uses
RSURF 8



File Line number Procedure Code
./pkg/fizhi/fizhi_lsm.F 1304 RSURFP
      _RL  U2, RSURF, HESAT
./pkg/fizhi/fizhi_lsm.F 1312 RSURFP
      RSURF = RDC(ChNo) / U2 + 26. + 6. / (1.E-20 + WET(ChNo))**2
./pkg/fizhi/fizhi_lsm.F 1318 RSURFP
          RSURF=RSURF*( 1. + (ESATTC(CHNO)-HESAT)/(HESAT-EA(CHNO)) )
./pkg/fizhi/fizhi_lsm.F 1320 RSURFP
          RSURF=1.E10
./pkg/fizhi/fizhi_lsm.F 1325 RSURFP
      RX2(CHNO)=RSURF
./pkg/fizhi/fizhi_lsm.F 1327 RSURFP
      RC(ChNo) = RC(CHNO) * RSURF / ( RC(ChNo) + RSURF )