*//
*// Correction update for LEM 2.4
*//
*// Corrects evaporation of small amounts of rain - previously not
*// implimented correctly
*//
*// Ben Shipway 10/10/2006
*//
*IDENT FIX_REVP
*D WARM_RAIN.109,112
          PRevp = QR * RDT ! evaporate rain trace in 1 timestep.
          IF (L_qNr) RRevp = (QNR - 1.0) * RDT
          ! PRevp = QR * RDT ! evaporate rain trace in a single step.
          ! IF ( L_qNr ) RRevp = ( QNR - 1.0 ) * RDT
          ! Leaves behind a background QNR of 1.
*//
*//   This was....
*//
*//          PRevp=0.5*QR*RDT ! evaporate rain trace in 1 timestep.                   WARM_RAIN.109
*//          IF (L_qNr) RRevp = 0.5*QNR*RDT                                           WARM_RAIN.110
*//          ! NB. The above is not doing what it declares to be doing. Is            WARM_RAIN.111
*//          !     this what is intended? :                                           WARM_RAIN.112
*//          ! PRevp = QR * RDT ! evaporate rain trace in a single step.              WARM_RAIN.113
*//          ! IF ( L_qNr ) RRevp = ( 1.0 - AQNR ) * RDT                              WARM_RAIN.114